ebeltoft-ams

commit 33b1357c61551014b65127eba88a5b102a4e14cc
parent 2de749e6f5d5f3154e8e1e28453c91145d608556
Author: Anders Damsgaard <anders@adamsgaard.dk>
Date:   Fri, 24 Jun 2022 12:40:15 +0200

ams-ellipsoid.awk: use more rubust parsing of sample id

Diffstat:
M
ams-ellipsoid.awk
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ams-ellipsoid.awk b/ams-ellipsoid.awk
@@ -6,9 +6,9 @@ BEGIN {
 	printf "No.\tTrend\tPlunge\n"
 }
 
-/_[A-z0-9]+ +/ {
-	if (match($0, /_[A-z0-9]+ /))
-		id = substr($0, RSTART + 1, RLENGTH - 2)
+/ANISOTROPY OF SUSCEPTIBILITY/ {
+	if (match($1, /[A-z0-9\-_]+/))
+		id = substr($1, RSTART, RLENGTH)
 }
 
 /^Specimen/ {