Texte verketten Mit dieser Funktion werden Strings mit einem bestimmten Trennzeichen verketttet.
Autor:   Thomas Schnitzler	Bewertung:     [ Jetzt bewerten ]	Views:  4.182
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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")