Sprawdź, czy ciąg zawiera inny ciąg

Question

Chcę znaleźć, jeśli ciąg zawiera "," (przecinek) w nim. Czy mamy jakąś inną opcję oprócz czytania char-by-char?

Answer 1

Użyj Instr funkcję

Dim pos As Integer 

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

powróci 15 w poz

Jeśli nie okazało się, że powróci 0

Jeśli trzeba znaleźć przecinek z formuły programu Excel można użyć Funkcja =FIND(",";A1).

Uwaga, jeśli chcesz używać Instr znaleźć pozycję ciąg wielkości liter użytku trzeci parametr Instr i nadać mu const vbTextCompare (lub tylko 1 do ciśnieniowego Hards).

Dim posOf_A As Integer 

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

daje wartość 14.

Zauważ, że musisz określić pozycję startową w tym przypadku, jak określono w specyfikacji I połączone: Początek argumentem jest wymagane, jeśli porównanie jest określona.

Answer 2

Istnieje również funkcja InStrRev, która robi to samo, ale rozpoczyna wyszukiwanie od końca tekstu do początku.

za odpowiedź @ Rene ...

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

... będzie jeszcze powrócić do poz 15, ale jeśli ciąg ma więcej niż jeden ciąg wyszukiwania, jak słowo „ten”, a następnie:

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

... wróci do poz 20, zamiast 6.

Answer 3

Opierając się na odpowiedź Rene, można również napisać funkcję, która zwrocone TRUE jeśli podciąg był obecny, lub FAŁSZ, jeśli to nie było 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

Można również użyć specjalnego słowo like:

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