✔ Stringzeichen einzeln auslesen

[lexz]

Hi,
ich würde gerne die Zeichen von zum Beispiel Hello einzeln auslesen, d.h
Text = hello
Ausgabe:
h
e
l
l
o

Nun müsste ich diese ja aus dem String auslesen, dachte ich mir verwende mal die Mid-Funktion:

Private Sub Form_Load()
Dim test As String
Dim n As Long

n = 0
For n = 0 To 4
MsgBox (Mid("hello", n, 1))

Next
End Sub

Leider funktioniert Mid anscheinend nicht mit einer Variable. Habt ihr vielleicht ein Workaround oder eine andere Funktion die ich verwenden könnte ?

Danke schon mal im vorraus.

mfg

 

[Nirraven]

Dein Mid("hello", n, 1) bringt wohl einen Fehler.

Das liegt aber eher daran, dass eine zeichenfolge mit der startposition 1, und nicht mit 0 beginnt.

Private Sub Form_Load()
dim test as String
Dim n As Long
test = "test"

For n = 1 To len(test) (Vor dieser Position braucht n keine wertzuweisung, das passiert doch hier)
MsgBox (Mid(test, n, 1))

Next
End Sub

So sollte es klappen, und die schleife klappt auch für jedes wort, welches test zugewiesen wird.

 

[lexz]

Jo super funktioniert, danke, lag wirklich an dem n = 0 oO