Thema: Text in Hex
Einzelnen Beitrag anzeigen
Alt 13.11.2001, 13:39   #1
mqs
Master
 
Registriert seit: 08.05.2001
Alter: 44
Beiträge: 533


mqs eine Nachricht über ICQ schicken
Standard Text in Hex

Also ich hab ein kleines Problem beim Text in Hex zu convertieren.
Und zwar Convertiert er schon richtig, aber bei Hex zahlen, die zuerst eine Null haben und dann die zahl bzw den buchstaben lässt er beim ausgeben die Null weg.
Ich hab mal nen Screenshot gemacht

Wie kann ich die Hexzahlen ausgeben, damit ich auch die Nullen im Text habe?

Source Code:
t=0
For i = 0 To Len(Text1.Text) - 1
Text1.SelStart = t
Text1.SelLength = 1
e$ = Asc(Text1.SelText)
Text2.Text = Text2.Text & Hex(e$) & space1$
t=t+1
Next i

Vielleicht kann mir da einer helfen. Danke im Vorraus
____________________________________
http://www.schmausen.at
Dein Infoportal für Mittagsmenüs in Klagenfurt
mqs ist offline   Mit Zitat antworten