Rubrik: Variablen/Strings · String-Operationen | VB-Versionen: VB4, VB5, VB6 | 19.12.06 |
String-Replace ganz einfach selbst gebaut Eine Ersatzfunktion für die in VB6 vorhandene Replace-Version. | ||
Autor: Michael | Bewertung: | Views: 10.179 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Wer noch unter VB4 oder VB5 programmiert vermisst oftmals schmerzlich die Replace-Funktion von VB6. Doch das muss nicht sein. Nachfolgende Funktion stellt ein Ersatz der seit VB6 vorhandenen Replace-Funktion dar, mit der sich eine bestimmte Zeichenkette innerhalb eines Strings durch einen andere Zeichenkette ersetzen lässt.
Public Function strReplace(ByVal SourceStr As String, _ ByVal oldStr As String, ByVal newStr As String) As String Dim a As Long Do ' nach der alten Zeichenkette suchen a = InStr(1, SourceStr, oldStr) If a = 0 Then Exit Do ' alte Zeichenkette durch neue ersetzen SourceStr = Left$(SourceStr, a - 1) & newStr & _ Mid$(SourceStr, a + Len(oldStr)) Loop strReplace = SourceStr End Function