Code:
Dim E as string, I as long, txt as string
for I=1 to len(text1.text)
E=hex(mid$(text1.text,I,1)
txt=string(2-len(E),"0") & txt &" "
if len(txt)=12 then txt=txt &" " : text2.text=text2.text & txt : txt=""
next
text2.text=text2.text & txt
damit sollte es auch klappen
der hex code wird auch noch schön formatiert und dadurch dass nicht immer einzelne zeichen zum textfeld hinzugefügt werden sondern ein längerer string geht das ganze auch noch schneller. hübsche formatierung ist auch noch drin
____________________________________
Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\"
http://www.dream.at/gizmo/bunny.gif
Image is © 2001 Merle
Sterndalsäg.. ähh... jäger
