Hallo,
ich habe eine Zeichenkette die genau 13 Zeichen umfassen soll. Nun soll alles zwischen dem 4. und 5. Zeichen mit Leerzeichen aufgefüllt werden, bis die Länge 13 erreicht ist.
Mein erster Versuch ist der Folgende:
Wie kann ich die Zeichenketten miteinander verknüpfen. Die While-Schleife ist noch falsch, jedoch geht es mir hierbei erstmal nur um die Syntax.
Danke!
ich habe eine Zeichenkette die genau 13 Zeichen umfassen soll. Nun soll alles zwischen dem 4. und 5. Zeichen mit Leerzeichen aufgefüllt werden, bis die Länge 13 erreicht ist.
Mein erster Versuch ist der Folgende:
Code:
Public Function addSpaces(Zeichenkette) As String
Dim addStr, begin, ende As String
begin = Mid(Zeichenkette, 1, 4)
addStr = " "
ende = Mid(Zeichenkette, 5)
Zeichenkette = begin &
While (Len(Zeichenkette) <> 13)
Zeichenkette = addStr
Wend
Zeichenkette = & ende
Wie kann ich die Zeichenketten miteinander verknüpfen. Die While-Schleife ist noch falsch, jedoch geht es mir hierbei erstmal nur um die Syntax.
Danke!