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 *...>Y'know Tracy, I'm still real curious about that IF (ASC(... line. should one side of the .OR. say "ASC(SUBSTR(lccode,i,1))=10" instead of "=13" on both sides?
>>>>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 >>>>