Überprüfen, ob eine Zeichenfolge eine andere Zeichenfolge enthält

Question

Ich möchte herausfinden, ob eine Zeichenfolge ein "," (Komma) darin enthält. Haben wir andere Möglichkeiten als char-by-char zu lesen?

Answer 1

Verwenden Sie die Instr Funktion

Dim pos As Integer 

pos = InStr("find the comma, in the string", ",") 

wird 15 in pos Rück

Wenn es nicht 0 wird wieder gefunden

Wenn Sie das Komma mit einer Excel-Formel zu finden, müssen Sie die verwenden können, =FIND(",";A1) Funktion.

Beachten Sie, dass, wenn Sie wollen Instr verwenden den dritten Parameter von Instr die Position einer Strings Groß- und Kleinschreibung Verwendung zu finden und die const vbTextCompare (oder nur 1 für Hartgesottene) geben.

Dim posOf_A As Integer 

posOf_A = InStr(1, "find the comma, in the string", "A", vbTextCompare) 

geben Ihnen einen Wert von 14.

Beachten Sie, dass die Startposition in diesem Fall angeben müssen, wie in der Beschreibung angegeben I verknüpft: Der Start Argument ist erforderlich, wenn angegeben wird, zu vergleichen.

Answer 2

Es gibt auch die InStrRev Funktion, die die gleiche Art von Sache tut, aber beginnt die Suche vom Ende des Textes bis zum Anfang.

Per Antwort des @Rene ...

Dim pos As Integer 
pos = InStrRev("find the comma, in the string", ",") 

... würde immer noch 15 bis Po zurück, aber wenn die Zeichenfolge mehr als eine der Suchzeichenfolge, wie das Wort „der“, dann:

Dim pos As Integer 
pos = InStrRev("find the comma, in the string", "the") 

... würde 20 bis po zurückzukehren, statt 6.

Answer 3

aufbauend auf Rene Antwort, können Sie auch eine Funktion schreiben könnten, die entweder TRUE, wenn der Teil vorhanden war, oder FALSE, wenn es zurückgegeben wasn 't:

Public Function Contains(strBaseString As String, strSearchTerm As String) As Boolean 
'Purpose: Returns TRUE if one string exists within another 
On Error GoTo ErrorMessage 
    Contains = InStr(strBaseString, strSearchTerm) 
Exit Function 
ErrorMessage: 
MsgBox "The database has generated an error. Please contact the database administrator, quoting the following error message: '" & Err.Description & "'", vbCritical, "Database Error" 
End 
End Function 

Answer 4

Sie können auch das besondere Wort verwenden like:

Public Sub Search() 
    If "My Big String with, in the middle" Like "*,*" Then 
    Debug.Print ("Found ','") 
    End If 
End Sub