Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Versuch mal damit...
Autor: Alex Krause
Datum: 03.01.02 22:14
Hi Capslock! Ich habe hier einen Code, den du auch in anderen Textkomponenten (z. B. in einer Textbox) nutzen kannst! Pack diesen Code am besten in einen Modul. Public Function ReplaceStrings(ByVal Text As String, ByVal Replace As String, Optional ByVal ReplaceBy As String, Optional ByVal Binärvergleich As Boolean) As String Dim NeuerText As String, Wahl As Byte, Start As Long, Stelle As Long If Replace = "" Then ' wenn kein String angegeben wird der gefundene String nur ' gelöscht ReplaceStrings = "" Exit Function End If If Binärvergleich = True Then Wahl = 0 Else Wahl = 1 End If NeuerText = Text Start = 1 Do Stelle = InStr(Start, NeuerText, Replace, Wahl) If Stelle = 0 Then: Exit Do NeuerText = Left(NeuerText, Stelle - 1) & ReplaceBy & Mid(NeuerText, Stelle + Len(Replace)) Start = Stelle + Len(ReplaceBy) Loop ReplaceStrings = NeuerText End Function So kannst du die Funktion dann nutzen: RichTextBox1.Text = ReplaceStrings(RichTextBox1.Text, Suchstring, Ersetzstring, 0) Das erste Argument in der Funktion ist der Text, in dem gesucht wird, das zweite ist der Text der ersetzt werden soll, das dritte ist der String durch welchen der gefundene String ersetzt wird, im vierten kannst du bestimmen ob Großschreibung beachtet wird (wenn 0 dann ja!). Wenn das dritte Argument nicht vorhanden ist werden die gefunden Strings nur gelöscht. Cu Alex

suchen und ersetzen	51	Capslock	03.01.02 19:52
Re: suchen und ersetzen	238	Dieter	03.01.02 20:27
Re: suchen und ersetzen	45	Capslock	03.01.02 21:16
Versuch mal damit...	53	Alex Krause	03.01.02 22:14
Re: Versuch mal damit...	44	Capslock	03.01.02 22:26
Re: Versuch mal damit...	45	Capslock	06.01.02 12:18

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen