Zeichenkette verketten und fortsetzen

Trash

Erfahrenes Mitglied
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:

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!
 
Ungetestet:
Visual Basic:
Public Function addSpaces(Zeichenkette) As String
 Dim addStr, begin, ende As String
 begin = Mid(Zeichenkette, 1, 4)
 ende = Mid(Zeichenkette, 5)
 Zeichenkette = begin & space(9) & ende
End Function

Das ist zumindest das so, wie ich dich verstanden habe.


Der Doc!
 
Hallo DrSoong,
Danke. Du hast mich schon richtig verstanden.

Aber Es sind nicht immer 9 Spaces dazwischen. Das Ganze muss variabel sein.

Es kann also sein, dass wir diesen Fall haben:

XXXX123
= XXXX______123

XXXX1234
= XXXX_____1234

_ = Blank

...
Danke.
 
Ergänze den Code vom Doc folgendermaßen:

Visual Basic:
Public Function addSpaces(Zeichenkette) As String
 Dim addStr, begin, ende As String
 begin = Mid(Zeichenkette, 1, 4)
 ende = Mid(Zeichenkette, 5)
 Zeichenkette = begin & space(13-len(begin)-len(ende)) & ende
End Function
 
Moin,
witzig. Mir ist eben genau der Gleiche Einfall gekommen:

Code:
 Zeichenkette = begin & Space(13 - Len(begin) - Len(ende)) & ende

Machmal muss man einfach etwas länger nachdenken :D

Danke
 
Zurück