使用 VBScript 中的 INSTR 函数进行字符串查找90

VBScript 中的 INSTR 函数用于在字符串中查找子字符串，并返回子字符串首次出现的索引。该函数的语法如下：INSTR(source, substring)

其中：* source 是要进行搜索的字符串。
* substring 是要在 source 中查找的子字符串。

如果子字符串在 source 中找到，INSTR 函数将返回子字符串首次出现的位置索引。如果子字符串未找到，INSTR 函数将返回 0。

示例

以下示例演示如何使用 INSTR 函数在字符串中查找子字符串：
Dim myString = "Hello, world!"
Dim findString = "world"
Dim index = INSTR(myString, findString)
If index > 0 Then
MsgBox "找到子字符串：" & findString & " 在 " & myString & " 中，索引为：" & index
Else
MsgBox "未找到子字符串：" & findString & " 在 " & myString & " 中！"
End If

输出：
找到子字符串：world 在 Hello, world! 中，索引为：7

选项

INSTR 函数还可以使用以下选项：* 1 (二进制比较)： 执行二进制比较，而不是区分大小写的比较。
* 2 (文本比较)： 执行文本比较，区分大小写。
* 4 (开始位置)： 指定要在 source 中开始搜索的位置。

使用选项的示例

以下示例演示如何使用 INSTR 函数的选项在字符串中查找子字符串：
' 二进制比较
Dim myString = "Hello, world!"
Dim findString = "WORLD"
Dim index = INSTR(myString, findString, 1)
If index > 0 Then
MsgBox "使用二进制比较找到了子字符串：" & findString & " 在 " & myString & " 中，索引为：" & index
Else
MsgBox "使用二进制比较未找到子字符串：" & findString & " 在 " & myString & " 中！"
End If
' 文本比较
Dim myString = "Hello, world!"
Dim findString = "world"
Dim index = INSTR(myString, findString, 2)
If index > 0 Then
MsgBox "使用文本比较找到了子字符串：" & findString & " 在 " & myString & " 中，索引为：" & index
Else
MsgBox "使用文本比较未找到子字符串：" & findString & " 在 " & myString & " 中！"
End If
' 指定开始位置
Dim myString = "Hello, world! How are you?"
Dim findString = "you"
Dim index = INSTR(myString, findString, 4, 1)
If index > 0 Then
MsgBox "从索引 1 处开始使用文本比较找到了子字符串：" & findString & " 在 " & myString & " 中，索引为：" & index
Else
MsgBox "从索引 1 处开始使用文本比较未找到子字符串：" & findString & " 在 " & myString & " 中！"
End If

输出：
使用二进制比较找到了子字符串：WORLD 在 Hello, world! 中，索引为：0
使用文本比较找到了子字符串：world 在 Hello, world! 中，索引为：7
从索引 1 处开始使用文本比较找到了子字符串：you 在 Hello, world! How are you? 中，索引为：21

其他说明* 如果 substring 为空字符串，INSTR 函数将返回 1。
* 如果 substring 的长度大于 source 的长度，INSTR 函数将返回 0。

VBScript 中的 INSTR 函数是一种强大的工具，可用于在字符串中查找子字符串。通过使用该函数和其选项，您可以根据需要执行各种类型的搜索。对于需要处理字符串的 VBScript 开发人员来说，INSTR 函数是必备工具。

2025-01-05

上一篇：VBScript：同步等待异步调用返回值

下一篇：VBScript 下标越界详解