lcStr = filetostr( "TheBad.csv" ) > >i = 0 > >FixIt( chr(10) + ",", " ," ) >FixIt( [,] + chr(10), " ," ) >FixIt( " " + chr(10), " " ) >FixIt( chr(10) + " ", " " ) > >FixIt( chr(10) + chr(10), " " ) > >FixIt( chr(13) + " ", " " ) >FixIt( chr(13) + ",", " ," ) > >? "write", datetime() >strtofile( lcStr, "TheGood.csv" ) >? "done", datetime() > >function FixIt( pcSearch, pcFix ) >i = i + 1 >? "convert", i, datetime() >lcStr = strtran( lcStr, pcSearch, pcFix ) >return>
lcStr = "1234567890" >for i = 1 to 20 > lcStr = lcStr + lcStr >endfor > >for i = 1 to 5 > strtofile( lcStr, "c:\temp\bigfile.txt", .t. ) >endfor > >lcStr = filetostr( "c:\temp\bigfile.txt" ) >? datetime(), len( lcStr ) >? datetime(), occurs( '0', lcStr ) >lcStr = chrtran( lcStr, '0', 'a' ) >? datetime(), occurs( 'a', lcStr )>