lcline="" lccode="REM Test.txt"+CHR(13) lccode=lccode+"COPY %1 <<IMPORTPATH>> <<IMPORTFILE>>" BG_ACCUWIN="C:\FOXPRO\TMP\" m.handle=FCREATE("test.txt") lcLine=STRTRAN(lcCode,"<<IMPORTPATH>>",BG_ACCUWIN) lcLine=STRTRAN(lcline,"<<IMPORTFILE>>","ACCUWIN.TXT") FPUTS(m.handle,lcline) FCLOSE(m.handle) MODIFY COMMAND test.txt>Ok, then why doesn't this work?
>clear >lcline="" >lccode="REM Test.txt"+CHR(13) >lccode=lccode+"COPY %1 <<IMPORTPATH>> <<IMPORTFILE>>" >BG_ACCUWIN="C:\FOXPRO\TMP\" >m.handle=FCREATE("test.txt") >FOR i = 1 TO LEN(lccode) > IF ASC(SUBSTR(lccode,i,1))=13 .OR. ASC(SUBSTR(lccode,i,1))=13 > lcline=lcline+CHR(13)+CHR(10) > ? lcline > ELSE > lcline=lcline+SUBSTR(lccode,i,1) > IF "<<IMPORTPATH>>" $ lcline > ?"Original lines: "+lcline > STRTRAN(lcline,"<<IMPORTPATH>>",BG_ACCUWIN) > ?"New Lines: "+lcline > ?"******************************" > WAIT WINDOW "Found <<IMPORTPATH>>" > ENDIF > IF "<<IMPORTFILE>>" $ lcline > ?"Original line: "+lcline > STRTRAN(lcline,"<<IMPORTFILE>>","ACCUWIN.TXT") > ?"New Line: "+lcline > ?"******************************" > WAIT WINDOW "Found <<IMPORTFILE>>" > ENDIF > ENDIF >ENDFOR >=FPUTS(m.handle,lcline) >=FCLOSE(m.handle) >MODIFY COMMAND test.txt >>
>>IF ASC(SUBSTR(lccode,i,1))=13 .or. ASC(SUBSTR(lccode,i,1))=13 >>>>prevent the code to execute...
>>> >>>lcline="" >>>lccode="COPY %1 <<IMPORTPATH>> <<IMPORTFILE>>" >>>BG_ACCUWIN="C:\FOXPRO\TMP\" >>>FOR i = 1 TO LEN(lccode) >>> IF ASC(SUBSTR(lccode,i,1))=13 .or. ASC(SUBSTR(lccode,i,1))=13 >>> lcline=lcline+CHR(13)+CHR(10) >>> ? lcline >>> IF "<<IMPORTPATH>>" $ lcline >>> STRTRAN(lcline,"<<IMPORTPATH>>",BG_ACCUWIN) >>> ENDIF >>> IF "<<IMPORTFILE>>" $ lcline >>> STRTRAN(lcline,"<<IMPORTFILE>>","ACCUWIN.TXT") >>> ENDIF >>> i = i+1 >>> ELSE >>> lcline=lcline+SUBSTR(lccode,i,1) >>> ENDIF >>> =FPUTS(m.handle,lcline) >>>ENDFOR >>>=FCLOSE(m.handle) >>>MODIFY COMMAND test.txt >>>