>llReturn = strToFile( strTran( fileToStr( lcFileName ),["],''), lcSendFileName ) >>
set safe off lcFileName="l:\redp\output\customer\website\ctxa0051.txt" lcSendFileName="l:\redp\output\customer\website\test.txt" lnSec=seconds() ? "File To Str Idea" for i=1 to 5 llReturn = strToFile( strTran( fileToStr( lcFileName ),["],''), lcSendFileName ) next ?seconds()-lnSec, (seconds()-lnSec)/5 ? "Cursor Idea" lnSec=seconds() for i=1 to 5 create cursor curWork (workFile M) append blank append memo WorkFile from (lcFileName) overwrite replace workFile with strtran(workFile,["],"") copy to (lcSendFileName) use in CurWork next ?seconds()-lnSec, (seconds()-lnSec)/5Result:
File to Str: 66.486 13.2972 Cursor Idea: 67.607 13.5124for 639KB file.