Posted by Robert G Laurin on February 04, 2011 at 10:59:33:
Found a really weird bug in Comet32...
Have this code:
..
Length 4.0 & Local PESEQ
Length 4 & Local PESEQ$
...
Let PESEQ = 0
...
Let PESEQ = PESEQ + 1
Let PESEQ$ = RSub(Strip(Str(10000+PESEQ)),1,4)
print (wc);'|';peseq;'|';peseq$;'|' !*** TRACE **
And the result is..... drumroll please!
|____1_|0000|
What ? Yup !
Note: for readability, I changed the spaces for '_'.
Originally tried this with Comet 2010.415, so I upgraded to Comet 2010.429, same result.
This is a Comet 32 Compiled application.
I tried something else...
Changed last line to:
WORK$=STR(10000+PESEQ)+'|'+STRIP(STR(10000+PESEQ))+'|'+RSub(Strip(Str(10000+PESEQ)),1,4)
print (wc);'|';peseq;'|';peseq$;'|';WORK$ !** TRACE **
Result:
|____1_|0000|_________10001_|10001|0001
I am lost!
I will break-up my code to see if it works, but I am worried about Comet 32.
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.