Shell Programming and Scripting

Hi,
This is my first time post a new thread. I have been trying to work on this for the past 2 days and could not find any good solution.
I have 1 long long line ( EDI wrapped file) like below:
NEW*SR*04411763447*279*278*Q~*ZR*AAV*SR*04511763460*SQ*21B37F04~HL*305*304*Q~K~SN1*1*1*SR*0551176346 1* and so on...all in 1 long line.

I need to extract certain pattern =grep 'SR\*[0-9]\{11\}\*' ( example SR*04411763447*) and remove others and put it to output file like:
SR*04411763447*
SR*04511763460*
SR*05511763461*
.
. etc.

I tried use grep and sed..but have no luck working on wrap file.
Please help.

I've been working with X12 documents for the last year and a half and finally wrote a C program to print out the segments one per line. However, a nice quick-and-dirty trick is to convert the segment terminator (usually, but not always, a tilde) to a newline.

# cat file | tr '~' '\n' | grep 'SR\*[0-9]\{11\}\*'

Thank you so much. I wish I post this 2 days ago.
I added cut cmd..a bit tuning and it should be ok.
cat file.txt |tr '~' '\n' | grep 'SR\*[0-9]\{11\}\*'| cut -c 75-85 >final.txt

Thanks a bunch.

You can also use:

Code:

echo $LINE|awk 'FS="\*" {for (i = 1; i <= NF; ++i){ if ($i ~ /[0-9]{11}/) print $i }}'

Regards

Hi Klashxx, could you break up the awk command that you posted? Thx

Code:

$ cat fields.dat 
NEW*SR*04411763447*279*278*Q~*ZR*AAV*SR*04511763460*SQ*21B37F04~HL*305*304*
     R*01234567891*279*278*Q~*ZR*AAV*SR*04511763460*SQ*21B37F04~HL*305*304*
NEW*SR*09876543210*279*278*Q~*ZR*AAV*SR*04511763460*SQ*21B37F04~HL*305*304*
$ cat fields.awk 
awk '{

FS="\*"

{
for (i = 1; i <= NF; ++i)
   { 
   if ($i ~ /[0-9]{11}/) 
   print $i 
   }
}

}' 
$ fields.awk <fields.dat
04411763447
04511763460
01234567891
04511763460
09876543210
04511763460

Cheers

Hi Klashxx,
I got an error that said:
awk: Input line ISA*00* *00 cannot be longer than 3,000 bytes.
I guess my input file is too big to handle for awk? My files mostly more than 1200 Kilo bytes.