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