Shell Programming and Scripting

awk '/^Line:/ {print ; getline ; print; getline ; print}' log1.txt
Line: 100
FSP: 10
LSP: 200
Line: 200
FSP: 20
LSP: 300
Line: 300
FSP: 10
LSP: 100

more log1.txt

Line: 100
FSP: 10
LSP: 200

Line: 200
FSP: 20
LSP: 300

Line: 300
FSP: 10
LSP: 100

more log1.scr

BEGIN { FS="\t"; OFS="\t" }
{
        # Replace the various has/and/width and their spaces with a single tab.
        gsub(/ *(has|and|width) */, "\t");
        # Eliminate some more extra spaces.
        gsub(/ *: */, ":");

        # Now that we have them arranged in sane columns:
        PF=""
        for(N=1; N<=NF; N++)
        {
                # Split NR:1 into A[1]="NR", A[2]="1"
                split($N, A, ":");

                # Print row of titles if this is the first line
                if(NR == 1)
                {
                        printf(PF "%s", A[1]);
                        PF=FS;
                }

                # Set the column to the value and nothing else
                $N=A[2];
        }

        if(NR==1)       printf("\n");

        # Print the row of data for every single line
} 1

awk -f log1.scr log1.txt

Line
100
10
200

200
20
300

300
10
100

line name = 76-145-294
ORIGINAL TAPE INPUT 856342
number of traces = 4812
trace header length = 240
number of samples = 2400
start time = 0 msec
end time = 4798 msec
sample rate = 2 msec
sample format = 1   (IBM Real)
trace number extracted from byte number 21, format Integer 4-Byte
  first trace number = 4155
  last trace number = 6375
  trace number increment = 5
shotpoint number extracted from byte number 17, format Integer 4-Byte
  first shotpoint = 424
  last shotpoint = 669
  shotpoint increment = 1
x coordinate extracted from byte number 73, format Integer 4-Byte
  first x coordinate =         65.00
  last x coordinate =        378.00
y coordinate extracted from byte number 77, format Integer 4-Byte
  first y coordinate =       3739.00
  last y coordinate =      57428.00
3D line number extracted from byte number 9, format Integer 4-Byte
  smallest 3D line value = 171001
  largest 3D line value = 174020
3D trace number extracted from byte number 21, format Integer 4-Byte
  smallest 3D trace value = 4155
  largest 3D trace value = 6375
minimum amplitude in file = -529.406
maximum amplitude in file = 529.375



line name = 76-145-294
ORIGINAL TAPE INPUT 856341
number of traces = 4800
trace header length = 240
number of samples = 2400
start time = 0 msec
end time = 4798 msec
sample rate = 2 msec
sample format = 1   (IBM Real)
trace number extracted from byte number 21, format Integer 4-Byte
  first trace number = 6380
  last trace number = 8695
  trace number increment = 5
shotpoint number extracted from byte number 17, format Integer 4-Byte
  first shotpoint = 638
  last shotpoint = 858
  shotpoint increment = -1
x coordinate extracted from byte number 73, format Integer 4-Byte
  first x coordinate =        340.00
  last x coordinate =        561.00
y coordinate extracted from byte number 77, format Integer 4-Byte
  first y coordinate =      50609.00
  last y coordinate =      98810.00
3D line number extracted from byte number 9, format Integer 4-Byte
  smallest 3D line value = 174005
  largest 3D line value = 177027
3D trace number extracted from byte number 21, format Integer 4-Byte
  smallest 3D trace value = 6380
  largest 3D trace value = 8695
minimum amplitude in file = -529.406
maximum amplitude in file = 529.375

$ cat tape.awk

BEGIN {
        FS=" = ";       OFS="\t"
        # Load the list of fields you want
        while(getline<"fields.txt")
        {
                FIELD[$1]=$2
                FIELD[++N]=$2
        }
        # Remove the two lines below to not print a header line
        for(N=1; FIELD[N]; N++) $N=FIELD[N]
        print
}

# Delete needless extra spaces
{ gsub(/[ \t][ \t]+/, "");      sub(/^ +/, ""); }

# Shoehorn that one funny line into the format of the rest
/ORIGINAL TAPE INPUT/ { sub(/INPUT/, "INPUT = ");       }

# If it matches one of the fields we want, grab it.
FIELD[$1] {
        T=FIELD[$1]
        split($2, A, " ");


        # If we already have one of those, print and start over
        if(V[T])
        {
                for(N=1; FIELD[N]; N++)
                {
                        $N=V[FIELD[N]];
                        delete V[FIELD[N]]
                }
                NF=(N-1)
                print
        }

        V[T]=A[1];
}

END {
        if(V[FIELD[1]])
        {
                for(N=1; FIELD[N]; N++) $N=V[FIELD[N]];
                print
        }
}

$ cat fields.txt

line name = LINE-NAME
ORIGINAL TAPE INPUT = OTI
number of traces = NOT
sample rate = SR
end time = ET
first trace number = FTN
last trace number = LTN
first shotpoint = FSP
last shotpoint = LSP

$ awk -f tape.awk data
LINE-NAME       OTI     NOT     SR      ET      FTN     LTN     FSP     LSP
76-145-294      856342  4812    2       4798    4155    6375    424     669
76-145-294      856341  4800    2       4798    6380    8695    638     858

$