Hallo, habe mich hier angemeldet,
weil ich eine Sache nicht verstehe -und irgendwie auch auf keinen Nenner komme, wieso das nich funktioniert.

Bin jetzt nicht Jesus in VB, deswegen hoffe ich mal, ihr könnt mir da helfen.

Es geht darum, Zeichen für Zeichen eines Strings abzufragen.
Dabei wird ein Wert hochgezählt(wert=wert+4) bis dieser gleich dem Wert des benutzers ist.
Und am Ende soll der string bis zum besagten zeichen abgespeichert und angezeigt werden.
(Das nur zur Erklärung, ist im code nicht dabei, weils wo anders hängt)

"20010db885a308d313198a2e03707347" ist der string
'''''''''''''''''''''''''''''''''''''''''''''''''''''


Dim adresseOhneDoppelpunkte As String = TextBox1.Text
For z = 1 To adresseOhneDoppelpunkte.Length()
MsgBox(Mid$(adresseOhneDoppelpunkte, z, z))
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Probiert es mal aus. Eigentlich müsste durch Mid und z immer nur 1(!) Zeichenhen angezeigt werden.
Das Programm zeigt aber mal 2 mal 3 an.
Liegt wohl auch nicht an den Nullen, was ich mal dachte...


Das muss doch gehen?!

Danke Euch

mfg VBderNoob

VBderNoob schrieb:

Quellcode

Wo ist denn dein Code?

VBderNoob schrieb:

Zeichen für Zeichen eines Strings abzufragen.

So:

Jetzt hab ichs mit dem Quellcode

Ging dann doch noch mit for each, weswegen ichd as aber in ne funktion packen musste.
Fraga: Gibts ne Möglichkeit von der funktion aus irgendwo im code fortzusetzen, sozusagen nen Anker setzen: ab da gehts weiter ?

mfg

Jetzt hab ichs mit dem Quellcode

Ist aber nicht VB6.

Für VB6:
MsgBox(Mid$(adresseOhneDoppelpunkte, z, 1))

Eierlein schrieb:

VB6

Sorry, ist mir auch gerade aufgefallen.