Szukaj…


Uwagi

Gdy trzeba sprawdzić obecność lub pozycję podłańcucha w ciągu, VBA oferuje funkcje InStr i InStrRev które zwracają pozycję znaku podłańcucha w ciągu, jeśli jest obecny.

Użyj InStr, aby ustalić, czy łańcuch zawiera podłańcuch

Const baseString As String = "Foo Bar"
Dim containsBar As Boolean

'Check if baseString contains "bar" (case insensitive)
containsBar = InStr(1, baseString, "bar", vbTextCompare) > 0
'containsBar = True

'Check if baseString contains bar (case insensitive)
containsBar = InStr(1, baseString, "bar", vbBinaryCompare) > 0
'containsBar = False

Użyj InStr, aby znaleźć pozycję pierwszego wystąpienia podłańcucha

Const baseString As String = "Foo Bar"
Dim containsBar As Boolean

Dim posB As Long
posB = InStr(1, baseString, "B", vbBinaryCompare)
'posB = 5

Użyj InStrRev, aby znaleźć pozycję ostatniej instancji podłańcucha

Const baseString As String = "Foo Bar"
Dim containsBar As Boolean

'Find the position of the last "B"
Dim posX As Long
'Note the different number and order of the paramters for InStrRev
posX = InStrRev(baseString, "X", -1, vbBinaryCompare)
'posX = 0


Modified text is an extract of the original Stack Overflow Documentation
Licencjonowany na podstawie CC BY-SA 3.0
Nie związany z Stack Overflow