>>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
Great minds think alike, Peter, take a look at the other messages in the thread to see what I (eventually came up with. It was a very interesting to see how many different ways different people tackled the problem.
Erik Moore
Clientelligence