VBA: gibt es Gegenteil von "split" ?
08.11.2004 22:00:48
"split"
ich mochte in einem String einen bestimmten Teilstring ersetzen.
Mein String lautet zb. "30;50;30;20"
Jetzt soll in diesem Bsp die "30" an der 3. Stelle durch "100,25" ersetzt werden.
Hierfür habe ich folgende Funktion geschrieben (s.u)
Da die Strings aber teilweise sehr lang sind, würde ich die Funktion gerne noch optimieren.
Meine Frage:
Kann man auf die For-Next-Schleife irgendwie verzichten?
Ich suche eigentlich das Gegenteil von "Split" (...im Sinne von: setz den Array einfach wieder zusammen...)
Oder gibt es sonst einen Weg?
Vielen Dank für eure Hilfe
Gruß
Christoph
Option Explicit
Function ReplaceData(strGes, Cnt as Byte, Repl, Delimit as String) As String
'Bsp: ReplaceData("30;50;30;20", 3, 100.25, ";") ersetzt
'den dritten Eintrag im String durch "100,25"
Dim arr, i%
arr = Split(strGes, Delimit)
arr(Cnt - 1) = Repl
For i = 0 To UBound(arr)
ReplaceData = ReplaceData & arr(i) & Delimit
Next i
ReplaceData = Left(ReplaceData, Len(ReplaceData) - 1)
End Function