Format PlanetPress Talk code output?

PlanetPress Classic
1

Hello,

I am looking to find out how to format the text output of some PlanetPress talk code.
The output is a string with 5 digits & I am looking to find out how to put a blank space in between each number of the output. (Is overprinting an existing base. Need to tweak the spacing for registration). Formatting changes made to the text object do not seem to apply to find output.

moveto(0,0)
define(&i,integer,0)
for(&i,1,1,&BatchSize)
&PaddedPage := right(‘00000’+intToStr(&BatchStart+&i-1),5)
execpage(‘MainPage’)
showpage()
endfor()

Any help is much appreciated!

Cheers,
Andrew

2 
moveto(0,0)
define(&i,integer,0)
define(&j,integer,0)
define(&PaddedPageSpace, string,'')

for(&i,1,1,&BatchSize)
     &PaddedPage := right(‘00000’+intToStr(&BatchStart+&i-1),5)

    for(&j,1,1,5)
        &PaddedPageSpace := mid(&PaddedPage,&j,1) + ' '
    endfor()
    
    &PaddedPage := left(&PaddedPageSpace,9)
    
    execpage(‘MainPage’)
    showpage()
endfor()
3

Thanks @jchamel
I’m still struggling with this.
Now getting “Result: PTK0083: Object[$InternalTempObj] is epmpty; possbile conversion error.”
What is the best way we can approach adjusting the kerning of the PlanertPress Talk output?

4

Can you share an anonymized version of the form that still has the issue so i can look at it?
Or you can contact me in private and send me the form…your call.

5

TD_Deposit_Slips_02.zip (632.3 KB)
Thanks for taking a look.
Here is an anonymized form.

6

The error doesn’t exist i n the form you provided me.
Please provide an anonymized version WITH error reproducible.

7

When I apply your code & hit OK, I see the error message, but I cannot proceed further. Only option is to cancel.

image
image602×485 12.1 KB

8

The error is due to the single quote being switch to french single quote during copy paste via the forum. Replace them with regular single quote.

i also found an error in my code, here the new code (in which you will have to replace the single quotes)

&BatchStart := strToInt (regionline(2.92,0.63,3.54,0.82))
&BatchSize := strToInt (regionline(2.80,0.39,3.64,0.61))

moveto(0,0)
define(&i,integer,0)
define(&j,integer,0)
define(&PaddedPageSpace, string,'')

for(&i,1,1,&BatchSize)
     &PaddedPage := right('00000'+intToStr(&BatchStart+&i-1),5)

    for(&j,1,1,5)
        &PaddedPageSpace := &PaddedPageSpace + mid(&PaddedPage,&j,1) + ' '
    endfor()

    &PaddedPage := left(&PaddedPageSpace,9)

    execpage('MainPage')
    showpage()
endfor()
9

And I suggest you use a Font Ratio of 105 for the Style applied to &PaddedPage

10

@jchamel , THANK YOU!
That worked perfectly. Really appreciate your help.