Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
STRTRAN not working
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00799472
Message ID:
00799551
Vues:
29
This message has been marked as a message which has helped to the initial question of the thread.
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
>>>
If we exchange an apple, we both get an apple.
But if we exchange an idea, we both get 2 ideas, cool...


Gérald Santerre
Independant programmer - internet or intranet stuff - always looking for contracts big or small :)
http://www.siteintranet.qc.ca
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform