Rubrik: Variablen/Strings · String-Operationen | VB-Versionen: VB6, VBA | 18.06.09 |
Texte verketten Mit dieser Funktion werden Strings mit einem bestimmten Trennzeichen verketttet. | ||
Autor: Thomas Schnitzler | Bewertung: | Views: 9.947 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Wie man ein String-Array in einen einzigen String mit Trennzeichen umwandelt, dürfte bekannt sein. Hierzu verwendet man am besten die Join-Funktion.
Wenn die Daten allerdings nicht als String-Array vorliegen, sondern jeweils als einzelne Variablen (oder direkte Stringwert), funktioniert die Join-Funktion nicht.
Mit nachfolgender Funktion lassen sich diese Werte dennoch bequem zu einem String mit einem bestimmten Trennzeichen verketten.
Die Funktion erwartet im ersten Parameter das Trennzeichen, anschließend die einzelnen String-Zeichenfolgen.
Public Function Concat(ParamArray Values()) As String ' Den ersten übergebenen Parameter als Trennzeichen benutzen Dim sDelim As String sDelim = Values(0) ' Den ersten übergebenen Parameter leeren Values(0) = "" ' Die übergebenen Werte mittels Join verknüpfen und ' dabei das erste Trennzeichen weglassen Concat = Mid$(Join(Values, sDelim), Len(sDelim) + 1) End Function
Aufrufbeispiel:
Dim sText As String sText = Concat(" ", "Das", "ist", "ein", "Test")