>Hi all
>
>I've been asked to convert an old UNIX text file which has fields delimited by pipes ("|") - YUK...
>
>The file does not contain fixed field lengths so I don't think that the approach I've used before :
>
> mfileopen=FOPEN("&mfilenam")
> USE mytable
> DO WHILE !FEOF(mfileopen)
> etc
> etc
> etc
>
>...then using the SUBSTR command will work as the field lengths vary. The only solution I can see is to somehow strip out the "|" and replace them with "," so I can import the file into a table.
>
>Does anyone have any ideas on how I can achieve this????
>
>Regards
>
>Chris Kable
>FuelTrac

---

Chris,
If you think stripping out "|" will do it then yu could do it like this :

lcFileName = "mytext.txt"
lcOutFile = "myouttext.txt"
handlein = fopen(lcFileName)
lnSize = fseek(handlein,0,2) && Get size
=fseek(handlein,0,0)         && Rewind to top
handleout = fcreate(lcOutFile)
=fwrite(handleout, chrtran(fread(handlein, lnSize), "|",","), lnSize)
=fclose(handlein)
=fclose(handleout)

In VFP6 you could also use FILETOSTR() and STRTOFILE().
Cetin