Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Filetostr(),Strtofile()
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00394054
Message ID:
00395096
Views:
14
Here's what I decided to do and it seems like it works so far. I replace all the spaces with semi-colons, then loop through each line and replace each double set of semi-colons (";;") with a single one, to make it a semi-colon delimited file.
**********************
lnHandle=Fcreate(lcTempfile)
lnLines=Alines(laFileStr,lcFileStr,.t.)
For i=1 to lnLines
laFileStr[i]=strtran(laFileStr[i],space(2),";")
llContinue=";;" $laFileStr[i]

Do while llContinue=.t.
laFileStr[i]=strtran(laFileStr[i],";;",";")
llContinue=";;" $laFileStr[i]
Enddo
laFileStr[i]=Reduce(laFileStr[i],space(2))
=Fputs(lnHandle,laFileStr[i])
Endfor
=Fclose(lnHandle)
Previous
Reply
Map
View

Click here to load this message in the networking platform