>I am faced with the need to create (actually participate with) an alphabetic numbering system. The sequence is straight forward, and looks like this:
>
>AAAA
>AAAB
>.
>.
>AAAZ
>AABA
>
>etc.
>
>Really my only need is to be able to increment these codes by one, so I need a function that receives "DPRZ" and returns "DPSA". Get it?
>
>I am fairly confident that I can pound out the code to do this, but all of my ideas so far would take an enormous amount of code- can anybody think of a practical solution?
PARAMETERS PassedValue
LOCAL ReturnValue, i
#define BASELEN 4 && format AAAA (4 char long)
#define BASEBASE 26
#define BASEMIN 65
#define BASEMAX 90
* Convert numeric to binary or number character ID.
ReturnValue = ""
FOR i = 1 TO BASELEN
ReturnValue = CHR(INT((m.PassedValue%( BASEBASE^i ))/;
(BASEBASE^( i-1))) +;
BASEMIN) + ReturnValue
ENDFOR
RETURN ReturnValue
Peter Cortiel