Help converting letters to number

[russell]

I was woundering how i would set this up: I a a varibale that has letters and numbers, the lenght of the variable can change. I was wanting to convert the letters to a number so it is all numbers. I'm pretty sure ill have to make it a string but then im kinda lost.

$var='A7601000aFBFBEFB33528985'
LettersToNumbers()
;===============================================================================
Func LettersToNumbers()
If $var = 'A' Then $var = 1
If $var = 'B' Then $var = 2
If $var = 'C' Then $var = 3
If $var = 'D' Then $var = 4
If $var = 'E' Then $var = 5
If $var = 'F' Then $var = 6
If $var = 'G' Then $var = 7
If $var = 'H' Then $var = 8
If $var = 'I' Then $var = 9
If $var = 'J' Then $var = 10
If $var = 'K' Then $var = 11
If $var = 'L' Then $var = 12
If $var = 'M' Then $var = 13
If $var = 'N' Then $var = 14
If $var = 'O' Then $var = 15
If $var = 'P' Then $var = 16
If $var = 'Q' Then $var = 17
If $var = 'R' Then $var = 18
If $var = 'S' Then $var = 19
If $var = 'T' Then $var = 20
If $var = 'U' Then $var = 21
If $var = 'V' Then $var = 22
If $var = 'W' Then $var = 23
If $var = 'X' Then $var = 24
If $var = 'Y' Then $var = 25
If $var = 'Z' Then $var = 26
MsgBox  (0,'',$var)
EndFunc
;===============================================================================

[russell]

update of progress

expandcollapse popup

#include <String.au3>
#include <Array.au3>
$var='A7601000aFBFBEFB33528985'

Local $array1 = _StringExplode($var, "", 0)
_ArrayDisplay($array1, "StringExplode 0")

LettersToNumbers()
MsgBox  (0,'',$var)
;===============================================================================
Func LettersToNumbers()
If $var = 'A' Then $var = 1
If $var = 'B' Then $var = 2
If $var = 'C' Then $var = 3
If $var = 'D' Then $var = 4
If $var = 'E' Then $var = 5
If $var = 'F' Then $var = 6
If $var = 'G' Then $var = 7
If $var = 'H' Then $var = 8
If $var = 'I' Then $var = 9
If $var = 'J' Then $var = 10
If $var = 'K' Then $var = 11
If $var = 'L' Then $var = 12
If $var = 'M' Then $var = 13
If $var = 'N' Then $var = 14
If $var = 'O' Then $var = 15
If $var = 'P' Then $var = 16
If $var = 'Q' Then $var = 17
If $var = 'R' Then $var = 18
If $var = 'S' Then $var = 19
If $var = 'T' Then $var = 20
If $var = 'U' Then $var = 21
If $var = 'V' Then $var = 22
If $var = 'W' Then $var = 23
If $var = 'X' Then $var = 24
If $var = 'Y' Then $var = 25
If $var = 'Z' Then $var = 26
EndFunc
;===============================================================================

[Melba23]

russell,

What you want to do is extremely easy. StringMid will look at each of the charcters in turn - use StringLen to get the count. Then Asc (look in the Helpfile for details) will be of great help - all you need to do is check that the returned value is within the A-Z range and then subtract 64. To get it all into a string just create an empty string before you loop through the characters and append each one (either raw on converted) using &= as you deal with it.

But could I ask why you want to do this? The process is essentially irreversible as there is no way to determine which of the numbers in the final are actually numbers and which are converted letters.

M23

[UEZ]

Here the code which M23 described above more or less.

$var='A7601000aFBFBEFB33528985'

MsgBox(0, "Test", LettersToNumbers($var))

Func LettersToNumbers($sString)
    If Not StringLen($sString) Then Return SetError(1, 0, 0)
    Local $aChars = StringSplit($sString, "", 2), $i, $sNumber, $s
    For $i = 0 To UBound($aChars) - 1
        $s = Asc(StringUpper($aChars[$i])) - 64
        Switch $s
            Case 1 To 26
                $sNumber &= $s
            Case Else
                $sNumber &= $aChars[$i]
        EndSwitch
    Next
    Return $sNumber
EndFunc

Br,

UEZ

Edited March 2, 2013 by UEZ

[russell]

UEZ thankyou, i shall study and try to master this. Melba23 thankyou for the guidance where to start my skills. Im using this to make a unique computer id, that string of numbers is bits of data from CPU,hdd etc. Thankyou both so much

[Melba23]

russell,

Rather than reinvent the wheel, you might like to look at this UDF from guinness.

M23

[PhoenixXL]

Here is another implementation

#include <BackRef.au3>

$var = 'A7601000aFBFBEFB33528985'
MsgBox(64, "Return:", GlobalBackRef($var, '(.*?)([A-Za-z])(.*)', 'RetNum'))

Func RetNum($s_Match)
Return Asc(StringUpper($s_Match)) - 64
EndFunc   ;==>RetNum