Convert Letters to numbers

[TrollBro]

I'm trying to find an efficient way to convert a string value, such as "ABCDzF45" to a nuneric code "123426645" where a=1, b=2, c=3, C=3, etc, and n=n. (does not have to be case sensitive but ok if it is).

Does anyone know if there is a fast/efficient way to do this?

Thanks!

 

[SkipVought]

Hi,

Function Str2Digits(str As String) As String
   For i = 1 To Len(str)
      s = Mid(UCase(str), i, 1)
      Select Case s
         Case "A" To "Z"
            Str2Digits = Str2Digits & Chr(Asc(s) - 16)
         Case "0" To "9"
            Str2Digits = Str2Digits & s
      End Select
   Next
End Function

Skip,

_{[red]Be advised:[/red] It's been reported that a wee psychic is roaming the countryside.
Small Medium @ Large!}

 

[TrollBro]

Thanks Skip
Works extremely efficiently, but it only produces numbers for letters A through I, then J through P generate various characters before finishing with Q though Z with CAP letters A throgh J.

Any way to keep the results all numeric that you can think of? A=1, Z=26?

Thanks!

 

[SkipVought]

My first solution rather convoluted, huh?

         Case "A" To "Z"
            Str2Digits = Str2Digits & Asc(s) - 64

Skip,

_{[red]Be advised:[/red] It's been reported that a wee psychic is roaming the countryside.
Small Medium @ Large!}

 

[TrollBro]

Skip

not so convoluted - I just couldn't figure out the -16.
Works perfect with the -64, but having seen the -16 results limitless possibilities for my algorithm have been revealed.

Thanks!!