>M.Handle=FCREATE("\accuwin\sc\vendor\proaccu.bat") >IF M.Handle <> -1 && file created > =FPUTS(M.Handle,"@ECHO OFF") > PRIVATE IMPORTPATH > PRIVATE IMPORTFILE > IMPORTPATH=ALLTRIM(Bg_Accuwin) > IMPORTFILE="ACCUWIN.TXT" > PRIVATE lcline > lcline="" > FOR i = 1 TO LEN(lccode) > IF ASC(SUBSTR(lccode,i,1))=13 .OR. ASC(SUBSTR(lccode,i,1))=10 > IF ASC(SUBSTR(lccode,i,1))=13 > lcline=lcline+CHR(13)+CHR(10) > ENDIF > ELSE > lcline=lcline+SUBSTR(lccode,i,1) > ENDIF > ENDFOR > lcLine = STRTRAN(lcline,"<<IMPORTPATH>> <<IMPORTFILE>>",IMPORTPATH+IMPORTFILE,1) > lcLine = STRTRAN(lcline,"<<IMPORTPATH>><<IMPORTFILE>>",IMPORTPATH+IMPORTFILE,1) > =FPUTS(m.handle,lcline) > =FCLOSE(m.handle) >ELSE >*... >>
>>>>>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 >>>>>