>Following line Generates Error, when I take the PS File (The PS file is attached). It is working fine when the Value of lnPageCount is 6, but when i take the Sample file attached with this mail , which has lnPageCount=3. It gives error at
>
>Filled=Filled+occoupiedrange(I+1) (Second Instance)

And what does the Debugger tell you the value of I is when that happens? Use the Debugger to figure this out.

Tamar

>
>

>T1=TIME()
>Clear
>SET DELETED ON
>lcStr = filetostr('1021165156.ps')
>lnPOS = At("%%Pages:",lcStr)
>lcPageCount = alltrim(substr(lcStr, lnPOS, 12))
>lnPageCount = VAL(STRTRAN(lcPageCount,'%%Pages:',''))
>
>IF lnPageCount>2
>DIMENSION occoupiedrange(lnPageCount)
>DIMENSION unoccoupiedrange(lnPageCount)
>
>Local lcFile, lcText
>m.lcFile = [1021165156.ps]
>Create Cursor Dummy (PS c(254), pos i,pageno n(2))
>Append From (m.lcFile) Sdf
>
>SCAN
>IF Getwordnum(PS, Getwordcount(PS)) = [x] .OR. ;
>Getwordnum(PS, Getwordcount(PS)) = [y] .OR. ;
>Getwordnum(PS, Getwordcount(PS)) = [L] .OR. ;
>Getwordnum(PS, Getwordcount(PS)) = [w]
>
>m.lcText = Getwordnum(PS, Getwordcount(PS) - 1) && The second last word
>IF Len(Chrtran(m.lcText, [1234567890], [])) = 0 && lcText contains only digits
>Replace pos With Val(m.lcText)
>Endif
>ENDIF
>ENDSCAN
>   
>   
>   
>FOR I= 1 TO lnPageCount
>CURTEXT='%%Page: '+ALLTRIM(STR(I))+' '+ALLTRIM(STR(I))
>NeXTTEXT='%%Page: '+ALLTRIM(STR(I+1))+" "+ALLTRIM(STR(I+1))
>
>LOCATE FOR ALLTRIM(PS)=curtext
>SCAN WHILE ALLTRIM(ps)<>nexttext OR EOF()=.T.
>REPLACE pageno WITH I
>ENDSCAN
>SELECT MIN(Pos) FROM Dummy WHERE Pageno=I AND Pos>20 INTO ARRAY X
>SELECT MAX(Pos) FROM Dummy WHERE Pageno=I INTO ARRAY Y
>
>STORE Y-X+1 TO Occoupiedrange(I)
>STORE (x) TO unoccoupiedrange(I)
>STORE (x-20) TO unoccoupiedrange(I)
>ENDFor                                                                                                                                                                                                                                                 
>
>
>FOR I=2 TO (lnPageCount-1)
>Blank=unoccoupiedrange(I)
>Filled=occoupiedrange(I+1)
>
>DO WHILE Blank>=Filled
>NEXTTEXT='%%Page: '+ALLTRIM(STR(I+1))+" "+ALLTRIM(STR(I+1))
>LOCATE FOR ps=NeXTTEXT
>Skip-1 
>Replace ps WITH NeXTTEXT
>SKIP
>Prefixmul= ALLTRIM(STR((Occoupiedrange(I)/68.7),18,2))
>Replace ps WITH '0 -72 &Prefixmul mul translate'
>WAIT WINDOW I
>Filled=Filled+occoupiedrange(I+1) && Generates Error
>WAIT WINDOW I
>I=I+1
>ENDDO
>ENDFOR
>ENDIF
>SELECT Dummy
>set textmerge On
>>>SET TEXTMERGE TO myfile.ps noshow 
>>>scan
>>>\\ << tRIM(pS) >>
>>>\
>>>endscan
>>>set textmerge To
>>>set textmerge off
>>>
>>>T2=TIME()
>>>WAIT WINDOW T2
>>>WAIT WINDOW t1
>>>
>
>
>
>
>

>
>Kinldy Help
>
>
>
>>>Using the following code i am getting error as Error Subscript is outside defined Range.
>>>
>>>Not able to solve it, kinldy Correct
>>>
>>>

>>>T1=TIME()
>>>Clear
>>>SET DELETED ON
>>>
>>>lcStr = filetostr('1021165156.ps')
>>>lnPOS = At("%%Pages:",lcStr)
>>>lcPageCount = alltrim(substr(lcStr, lnPOS, 12))
>>>lnPageCount = VAL(STRTRAN(lcPageCount,'%%Pages:',''))
>>>
>>>IF lnPageCount>2
>>>DIMENSION occoupiedrange(lnPageCount)
>>>DIMENSION unoccoupiedrange(lnPageCount)
>>>
>>>Local lcFile, lcText
>>>m.lcFile = [1021165156.ps]
>>>Create Cursor Dummy (PS c(254), pos i,pageno n(2))
>>>Append From (m.lcFile) Sdf
>>>
>>>SCAN
>>>IF Getwordnum(PS, Getwordcount(PS)) = [x] .OR. ;
>>>Getwordnum(PS, Getwordcount(PS)) = [y] .OR. ;
>>>Getwordnum(PS, Getwordcount(PS)) = [L] .OR. ;
>>>Getwordnum(PS, Getwordcount(PS)) = [w]
>>>
>>>m.lcText = Getwordnum(PS, Getwordcount(PS) - 1) && The second last word
>>>IF Len(Chrtran(m.lcText, [1234567890], [])) = 0 && lcText contains only digits
>>>Replace pos With Val(m.lcText)
>>>Endif
>>>ENDIF
>>>ENDSCAN
>>>   
>>>    
>>>   
>>>FOR I= 1 TO lnPageCount
>>>CURTEXT='%%Page: '+ALLTRIM(STR(I))+' '+ALLTRIM(STR(I))
>>>NeXTTEXT='%%Page: '+ALLTRIM(STR(I+1))+" "+ALLTRIM(STR(I+1))
>>>
>>>*DELETE FROM dummy WHERE ps like "%(of%" AND pageno>1
>>>*DELETE FROM dummy WHERE ps like "%(Page%" AND pageno>1
>>>*DELETE FROM DUMMY where Ps LIKE '%BHARAT SANCHAR%' AND Pageno>1
>>>LOCATE FOR ALLTRIM(PS)=curtext
>>>SCAN WHILE ALLTRIM(ps)<>nexttext OR EOF()=.T.
>>>REPLACE pageno WITH I
>>>ENDSCAN
>>>SELECT MIN(Pos) FROM Dummy WHERE Pageno=I AND Pos>20 INTO ARRAY X
>>>SELECT MAX(Pos) FROM Dummy WHERE Pageno=I INTO ARRAY Y
>>>
>>>STORE Y-X+1 TO Occoupiedrange(I)
>>>STORE (x) TO unoccoupiedrange(I)
>>>STORE (x-20) TO unoccoupiedrange(I)
>>>ENDFor                                                                                                                                                                                                                                                  
>>>
>>>
>>>FOR I=2 TO (lnPageCount-1)
>>>Blank=unoccoupiedrange(I)
>>>Filled=occoupiedrange(I+1)
>>>
>>>DO WHILE Blank>=Filled
>>>NEXTTEXT='%%Page: '+ALLTRIM(STR(I+1))+" "+ALLTRIM(STR(I+1))
>>>LOCATE FOR ps=NeXTTEXT
>>>Skip-1 
>>>Replace ps WITH NeXTTEXT
>>>SKIP
>>>Prefixmul= ALLTRIM(STR((Occoupiedrange(I)/68.7),18,2))
>>>Replace ps WITH '0 -72 &Prefixmul mul translate'
>>>WAIT WINDOW I
>>>Filled=Filled+occoupiedrange(I+1)
>>>WAIT WINDOW I
>>>I=I+1
>>>ENDDO
>>>ENDFOR
>>>ENDIF
>>>
>>>SELECT Dummy
>>>set textmerge On
>>>SET TEXTMERGE TO myfile.ps noshow 
>>>scan
>>>\\ << tRIM(pS) >>
>>>\
>>>endscan
>>>set textmerge To
>>>set textmerge off
>>>
>>>T2=TIME()
>>>WAIT WINDOW T2
>>>WAIT WINDOW t1
>>>

>>>
>>>Sample File Used for the above code can be downloaded from
>>>https://www.dropbox.com/s/7reg69thb5i13fq/1021165156.ps
>>>
>>>Regards
>>
>>Which line generates the error?
>>
>>Tamar