Hi Harsh.

Like normal VFP functions, StrTran doesn't change a string, rather it returns a changed string. All you need to do is assign the return value e.g. cFile = StrTran(.....

Ian Simcock.


>Hi,
>
>I have Taken the contents of a File using FIletoSTR in cFile.
>
>Now I am trying to Replace some Strings using STRTRAN but the same is not being done. Here is what I am Doing
>
>

>Select Missingobject 
>
>SCAN
>
>IF RECNO()=1
>cReplacedText=ALLTRIM(STR(FObjectno))+" 0 obj <</Type /Page /Parent 2 0 R /MediaBox"
>nObjectPosition=ATC('_123456789_123456789_123456789__0 R /MediaBox',cFile,RECNO())
>STRTRAN(cFile,'_123456789_123456789_123456789__0 R /MediaBox',cReplacedText,nObjectPosition,RECNO())
>*STRTRAN(cFIle,'_123456789_123456789_123456789__0 R /MediaBox',cReplacedText)
>ENDIF
>
>IF RECNO()>1
>cReplacedText=ALLTRIM(STR(FObjectno))+" 0 obj <</Type /Page /Parent 2 0 R /MediaBox"
>nObjectPosition=ATC('_123456789_123456789_123456789__ 0 R /MediaBox',cFile,RECNO())
>*STRTRAN(cFile,'_123456789_123456789_123456789__ 0 R /MediaBox',cReplacedText,RECNO())
>STRTRAN(cFile,'_123456789_123456789_123456789__ 0 R /MediaBox',cReplacedText,nObjectPosition,RECNO())
>Endif
>Endscan
>
>STRTOFILE(cFile,'D:\1024729126-WMCCC.PDF')
>
>
>I need to Replace Two types of Strings in cFile  i.e '_123456789_123456789_123456789__0 R /MediaBox' and ''_123456789_123456789_123456789__ 0 R /MediaBox'  with  ALLTRIM(STR(FObjectno))+" 0 obj <</Type /Page /Parent 2 0 R /MediaBox.
>
>

>
>The value of ALLTRIM(STR(FObjectno)) will Change to next record With Each next occurrence of the above _123456789 string.
>
>I am Not getting the changed output file with my above code used. Whats wrong in this ? There can be any more simple code to do this ?
>
>Regards