Zoeken…


Opmerkingen

Wanneer u moet controleren op de aanwezigheid of positie van een substring binnen een string, biedt VBA de functies InStr en InStrRev die de tekenpositie van de substring in de string retourneren, indien aanwezig.

Gebruik InStr om te bepalen of een string een substring bevat

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

Gebruik InStr om de positie van de eerste instantie van een substring te vinden

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

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

Gebruik InStrRev om de positie van de laatste instantie van een substring te vinden

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
Licentie onder CC BY-SA 3.0
Niet aangesloten bij Stack Overflow