Hexadezimalen String in einem String in eine Zahl umwandeln

Übersicht

BlitzBasic

Allgemein

	EPS Betreff: Hexadezimalen String in einem String in eine Zahl umwandeln	So, Mai 29, 2005 17:17 Antworten mit Zitat
Klingt komisch aber ich wollt mal wissen obs ne einfachere Methode als meine gibt (vielleicht stehe ich ja grad auf dem Schlauch). Also, gegeben ist ein String (Bsp: "FF00FF"). Diesen möchte ich in eine Integerzahl umwandeln. Bisher mache ich das immer so: Code: [AUSKLAPPEN] [EINKLAPPEN] For i = 0 To 5 c = Asc(Mid$(col$,i+1,1)) If c > 64 Then c = c - 55 Else c = c - 48 result = result + (c * 16^(5-i)) Next Nur um Unklarheiten zu vermeiden, der String ist nicht sowas wie var$ = $FF00FF, denn dann könnte ich ja INT() nehmen, sondern wirklich var$ = "FF00FF". Danke...
mGUI - Graphical User Interface für Blitz3D...Informationen gibt es hier Man kann sich öfter als zweimal im Leben halb tot lachen.

EPS

Betreff: Hexadezimalen String in einem String in eine Zahl umwandeln

So, Mai 29, 2005 17:17
Antworten mit Zitat

Klingt komisch aber ich wollt mal wissen obs ne einfachere Methode als meine gibt (vielleicht stehe ich ja grad auf dem Schlauch).

Also, gegeben ist ein String (Bsp: "FF00FF"). Diesen möchte ich in eine Integerzahl umwandeln. Bisher mache ich das immer so:

Code: [AUSKLAPPEN]

For i = 0 To 5
c = Asc(Mid$(col$,i+1,1))
If c > 64 Then c = c - 55 Else c = c - 48
result = result + (c * 16^(5-i))
Next

Nur um Unklarheiten zu vermeiden, der String ist nicht sowas wie var$ = $FF00FF, denn dann könnte ich ja INT() nehmen, sondern wirklich var$ = "FF00FF".

Danke...

mGUI - Graphical User Interface für Blitz3D...Informationen gibt es hier

Man kann sich öfter als zweimal im Leben halb tot lachen.

Zuletzt bearbeitet von EPS am So, Mai 29, 2005 17:17, insgesamt einmal bearbeitet

	Rallimen Sieger des 30-EUR-Wettbewerbs	So, Mai 29, 2005 21:11 Antworten mit Zitat
Ich mache das normalerweise so....BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function ToDez (A$) a$ = Upper (a$) For i = 1 To Len (A$) DD = DD Shl 4 Ascii = Asc (Mid (a$,i,1) ) If Ascii > 64 Then DD = DD + Ascii - 55 Else DD = DD + Ascii - 48 End If Next Return DD End Function Kürzer ist es nicht, dafür aber bei jedem String bis 8 zeichen einsetzbar!
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

So, Mai 29, 2005 21:11
Antworten mit Zitat

Ich mache das normalerweise so....BlitzBasic: [AUSKLAPPEN]

Function ToDez (A$)
    a$ = Upper (a$)
    For i = 1 To Len (A$)
        DD = DD Shl 4
        Ascii = Asc (Mid (a$,i,1) )
        If Ascii > 64 Then
            DD = DD + Ascii - 55
         Else
            DD = DD + Ascii - 48
        End If
    Next
    Return DD
End Function

Kürzer ist es nicht, dafür aber bei jedem String bis 8 zeichen einsetzbar!

[BB2D | BB3D | BB+]

Zuletzt bearbeitet von Rallimen am So, Mai 29, 2005 21:19, insgesamt einmal bearbeitet

	EPS	So, Mai 29, 2005 21:16 Antworten mit Zitat
ahh...danke, naja auf 8 Zeichen kann ich meine Routine auch noch erweitern. Ich hatte nur "Angst" das es etwas viel simpleres gäbe und ichs nur einfach nicht "sehe" bzw. finde. Hätte ja sein können das es trotzdem irgend ein wirres Konstrukt mit INT() dafür gibt. Also bin ich doch nicht ganz so doof Vielen Dank
mGUI - Graphical User Interface für Blitz3D...Informationen gibt es hier Man kann sich öfter als zweimal im Leben halb tot lachen.

EPS

So, Mai 29, 2005 21:16
Antworten mit Zitat

ahh...danke, naja auf 8 Zeichen kann ich meine Routine auch noch erweitern.

Ich hatte nur "Angst" das es etwas viel simpleres gäbe und ichs nur einfach nicht "sehe" bzw. finde. Hätte ja sein können das es trotzdem irgend ein wirres Konstrukt mit INT() dafür gibt.

Also bin ich doch nicht ganz so doof Wink

Vielen Dank