Befehlsreferenz - Zeichenketten: Replace-Funktion
VB-Versionen: VB4 | VB5 | VB6
Beschreibung:
Die Replace-Funktion ersetzt einen Teilstring innerhalb eines Strings nach Vorgabe.
Syntax:
Replace (Ausdruck, suchen, ersetzendurch, [starten, [Anzahl, [vergleichen]]] )
Parameter:
Ausdruck | (String) Zeichenfolge, in der etwas ersetzt werden soll. |
suchen | (String) Zeichenfolge, nach der gesucht werden soll. |
ersetzendurch | (String) Zeichenfolge, die als Ersatz verwendet werden soll. |
starten | Optional. (Integer) Position, an der die Suche beginnen soll. Wird starten nicht angegeben, beginnt die Suche beim ersten Zeichen des zu durchsuchenden Zeichenfolgenausdruck. |
Anzahl | Optional. (Integer) Anzahl der Ersetzungen, die durchgeführt werden sollen. Wird Anzahl nicht angegeben, werden alle im Zeichenfolgenausdruck möglichen Zeichenfolgen ersetzt. |
vergleichen | Optional. (Integer) Legt fest, wie verglichen werden soll. |
Einstellungen für vergleichen
Konstante | Wert | Beschreibung |
vbUseCompareOption | -1 | Führt einen Vergleich mit Hilfe der Option Compare-Anweisung durch. |
vbBinaryCompare | 2 | Führt einen binären Vergleich durch. |
vbTextCompare | 1 | Führt einen reinen Textvergleich durch. |
vbDatabaseCompare | 2 | Nur Microsoft Access. Führt einen Vergleich durch, der auf Informationen in einer Datenbank basiert. |
Rückgabewerte von Replace
Fall | Rückgabewert |
Ausdruck hat die Länge Null | Zeichenfolge der Länge Null ("") |
Ausdruck ist Null | Fehler |
suchen hat die Länge Null | Kopie von Ausdruck |
ersetzendurch hat die Länge Null | Kopie von Ausdruck, aus dem alle gefundenen Teile von suchen entfernt wurden |
starten ist größer als die Länge Ausdruck | Zeichenfolge der Länge Null |
Anzahl ist 0 | Kopie von Ausdruck |
Beispiel:
Private Sub Command1_Click() Dim Text1, Text2, Text3, Vergleich Text1 = "vb@rchiv ist gut" Text2 = "gut" Text3 = "spitze" Vergleich = Replace(Text1, Text2, Text3) ' liefert vb@rchiv ist spitze MsgBox Vergleich End Sub
Siehe auch: | Filter-Funktion |