Everyone caught that mistake but me today! :o) Thanks Gerald.

>You dont assign the result of STRTRAN, that was the main problem :-)
>
>BTW, why do you scan char by char?
>
>

>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
>>

>>
>>>Any idea why the substitute is not working?
>>>>
>>>
>>>The line
>>>

>>>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
>>>>