Help fixing a file 1

[chomps303]

I have the following lines in a file. How can I find the
^M in the middle of the line. ie: JOHN^MS HOPKINSAPL . I need to identify this line. BUT all lines end with a ^M.
Is this possible?

Please HELP!!!! and thanks in advance

Brandt

^M
DA123299911C8A 2929
SOMEWHERE XX21738 99945551212 JOHN^MS HOPKINSAPL


^M
EA0 1234876C8A NN0 N Y12349218N 4

N00000002189 6227 AY20040308COLUMBIA 31 OFFICE

 

[CaKiwi]

What do you want do do with the line when you have "identified" it? To delete the ^M, use

/^M.*^M/ {
while ($0 ~ /^M.*^M/) sub(/^M/,"")
print
}


CaKiwi

 

[PHV]

Try something like this:
cM=`echo \015`
sed -e "s!$cM\(..\)!\1!g" </path/to/input > output

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[chomps303]

PHV

I tried your sed line and it seems to find every line since each line has a ^M at the end of the line. I just want to find it if the ^M is NOT at the end of the line.

Thanks

Brandt

 

[futurelet]

BEGIN{cr=sprintf("%c",13)}

{ sub(cr"$", "")
  if (index($0,cr))
  { printf "Found cr in line %d:\n%s\n",
        NR, $0
    sub(cr, "@")
    print "Changed cr to @."
    print
  }
}

 

[chomps303]

futurelet

This looks good how do I use this snipit of code?

Thanks

Brandt

 

[PHV]

Sorry, misread the question:
cM=`echo \015`
sed -n "s!$cM\(..\)!\1!p" </path/to/input

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[futurelet]

I would put in a file named something like 'find-cr.awk' and run it with:
[tt]awk -f find-cr.awk datafile[/tt]