Information générale
Catégorie:
Codage, syntaxe et commandes
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)
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement