XReplace Verbesserter Replace-Befehl
Autor:   Martin Reiche	Bewertung:	Views:  11.149
www.mr-web.de.vu	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Manchmal ist es schon lästig: Man hat einen String, in dem man einen bestimmten Text suchen und dann durch einen anderen ersetzen möchte. Jetzt denken Sie: Dann soll man doch die Replace-Anweisung nehmen. Sie haben Recht.

Aber: Angenommen Sie haben einen String, in dem Sie erst ab einer bestimmten Stelle mit dem Ersetzen anfangen wollen, z.B. erst ab dem 20. Zeichen. Wenn Sie nun mit der Replace-Anweisung arbeiten, können Sie zwar einen Startpunkt angeben, allerdings enthält der zurückgegebene String dann die Zeichen vor dem Startpunkt nicht mehr. Sie wurden einfach gelöscht. Hier schafft folgende Funktion Abhilfe:

Public Function XReplace(Textfeld As String, _
  Zu_Suchender_Text As String, _
  Replace_Text As String, _
  Startpunkt As Integer) As String
 
  Dim a, b
 
  a = Left(Textfeld, Startpunkt - 1)
  b = Replace(Textfeld, Zu_Suchender_Text, Replace_Text, _
    Startpunkt, , vbTextCompare)
  XReplace = a & b
End Function

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.