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

Ich möchte, um herauszufinden, ob ein string mit einem ","(Komma). Haben wir keine andere andere Wahl, als das Lesen char-by-char?

Kommentar zu dem Problem
INSTR für Sie arbeiten? Kommentarautor: Stephen Quan

InformationsquelleAutor der Frage krishna | 2013-03-23

  1. 283

    Verwenden Sie die Instr Funktion

    Dim pos As Integer

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

    zurück 15 in pos

    Wenn es nicht gefunden wird, geben 0 zurück,

    Wenn Sie brauchen, um zu finden, die ein Komma mit einer excel-Formel, die Sie verwenden können, die =FIND(",";A1) Funktion.

    Beachten Sie, dass wenn Sie verwenden möchten Instr zu finden die position eines Strings in groß- /Kleinschreibung zu verwenden, der Dritte parameter von Instr und geben Sie die const - vbTextCompare (oder eben 1 für die-hards).

    Dim posOf_A As Integer

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

    geben Sie einen Wert von 14.

    Beachten Sie, dass Sie haben, geben Sie die start-position in diesem Fall, wie dies in der Spezifikation, die ich verlinkte: Das argument start ist erforderlich, wenn vergleichen angegeben ist.

    InformationsquelleAutor der Antwort rene

  2. 41

    Können Sie auch die besonderen Wort like:

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

    InformationsquelleAutor der Antwort Makah

  3. 19

    Gibt es auch die InStrRev Funktion, die nicht die gleiche Art der Sache, sondern beginnt die Suche vom Ende des Textes an den Anfang.

    Pro @rene ' s Antwort...

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

    ...würde noch zurück, 15 pos, aber wenn der string mehr als einem such-string, so wie das Wort "der", dann:

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

    ...zurückkehren würde 20 bis pos, statt 6.

    InformationsquelleAutor der Antwort LimaNightHawk

  4. 15

    Gebäude auf Rene ' s Antwort, man könnte auch eine Funktion schreiben, die zurückgegeben wird entweder TRUE, wenn der Teilstring vorhanden war, oder FALSE, wenn es nicht war:

    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

    InformationsquelleAutor der Antwort BFWebAdmin

Schreibe einen Kommentar