tams-ellipsoid.awk: use more rubust parsing of sample id - ebeltoft-ams - AMS results for channel deposit at Ebeltoft, Denmark
 (HTM) git clone git://src.adamsgaard.dk/ebeltoft-ams
 (DIR) Log
 (DIR) Files
 (DIR) Refs
       ---
 (DIR) commit 33b1357c61551014b65127eba88a5b102a4e14cc
 (DIR) parent 2de749e6f5d5f3154e8e1e28453c91145d608556
 (HTM) 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(-)
       ---
 (DIR) diff --git a/ams-ellipsoid.awk b/ams-ellipsoid.awk
       t@@ -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/ {