Ich hatte da eben ein komisches Problem ...
Wenn ich in der folgenden Funktion den �bergebenen Wert (hier im
Beispiel sString) in der Funktion nicht in eine lokale Variable "umlade"
dann zerhaut es mir den �bergebenen String. Es kommt alles an, weil die
Schleife richtig z�hlt. Nach dem ersten Durchlauf der �u�eren Schleife
ist nur noch ein Zeichen �brig, und danach gar nix mehr. Spinn ich,
oder sehe ich den Wald vor lauter B�umen nicht?
So geht es:
Function Hex2Dez (sString)
Dim helper, i, j, multi, temp
helper = array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A",
"B", "C", "D", "E", "F")
hexstring = sString: temp = 0: multi = 1
For i = Len(hexstring) to 1 Step -1
a = Mid(hexstring, i, 1)
For j = 0 to 15
If Ucase(a) = helper(j) Then
temp = temp + (j * multi)
Exit For
End If
Next
multi = multi * 16
Next
Hex2Dez = temp
End Function
So spinnt er:
Function Hex2Dez (hexstring)
Dim helper, i, j, multi, temp
helper = array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A",
"B", "C", "D", "E", "F")
temp = 0: multi = 1
For i = Len(hexstring) to 1 Step -1
a = Mid(hexstring, i, 1)
For j = 0 to 15
If Ucase(a) = helper(j) Then
temp = temp + (j * multi)
Exit For
End If
Next
multi = multi * 16
Next
Hex2Dez = temp
End Function
--
Viele Gr��e
Hubert Daubmeier
| [aspgerman] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
