Ich m�chte Dir ja nicht den Spass verderben, aber was sagst Du dazu?
<%
Response.Write hex2dez("99aacc")
function hex2dez(h)
hex2dez = eval("&h" & h)
end function
%>
Claudius
> -----Original Message-----
> From: Hubert Daubmeier [mailto:[EMAIL PROTECTED]]
> Sent: Mittwoch, 3. April 2002 02:08
> To: ActiveServerPages German
> Subject: [aspgerman] Komische Sache - �bergebener String wird
> zerst�ckelt
>
>
> 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
>
| [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
