Thanks Cetin

I don't quite understand how it works - but it does!

Chris


>>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