Text in Hex

[Sonic]

Hier mein Code-Vorschalg:

For i = 1 To Len(Text1.Text)
 e$ = Asc(mid$(text1.text,i,1))
 e$ = "0" & Hex(e$)
 e$ = right(e$,2)
 Text2.Text = Text2.Text & e$ & space1$
Next i

Erklärung:

Ich hab dein Text1.SelStart = t: Text1.SelLength = 1: e$ = Asc(Text1.SelText) durch
e$ = Asc(mid$(text1.text,i,1)) ersetzt.

mid$(string, anfang, länge) gibt, <länge> Zeichen von <string> von <anfang> weg, zurück. Es ist schneller und "schöner" als diene methode.

dann hänge ich einfach eine 0 vor dem Hex und schreib es in e$ zurück. Jetzt ist an 1. Stelle immer eine 0 und dann folgen ein oder 2 stellen.

right (<string>, <länge>) liest <länge> zeichen von rechts aus <string>.
Dass heisst er schneidet entweder die anfangs null weg (nämlich wenn hex 2 stellen liefert) oder nimmt den ganzen string (0 & ergebniss von hex).

Hoffe geholfen zu haben.

lg