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>Any idea why the substitute is not working?
>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 >>