VB Instr函數的用法詳解

一、VB Instr函數

VB Instr函數用於返回一個字符串在另一個字符串中出現的位置。如果未找到該字符串，則返回0。

語法：

Instr([start, ]string1, string2[, compare])

參數說明：

• start（可選）：規定開始搜索字符串的位置。如果忽略 start，則默認從字符串的第一個字符開始搜索。
• string1：必需。被搜索的字符串。
• string2：必需。想要查找的字符串。
• compare（可選）：規定比較的類型。可以是以下值之一：
  • 0 – vbBinaryCompare – 執行二進制比較（默認）
  • 1 – vbTextCompare – 執行文本比較

例子：

Dim a, b, pos
a = "I am a boy"
b = "boy"
pos = Instr(a, b)
MsgBox pos '結果為 8

二、VB中Instr函數的語法

函數的語法：“InStr([start,] string1, string2[, compare])”

其中，“start”表示指定查找的起始位置，它可以是數字（通常為常數）或者表達式。若省略，則默認從字符串“string1”的第一個字符開始查找。在字符串“string1”中，從位置“start”的後面開始查找包含字符串“string2”的位置。如果在“string1”中找到了“string2”，則返回值為“string2”在“string1”中的位置（從1開始），否則返回0。

如果“compare”被省略，則函數執行二進制比較。如果“compare”為0，則也執行二進制比較（用於區分大小寫）。如果“compare”為1，則執行基於文本的比較（不區分大小寫）。

三、VB Instr 最大長度

VB Instr最大長度為2147483647（2 ^ 31 – 1），即“Long”類型的最大值。

例子：

Dim s1, s2, i 
s1 = String(2147483645, "a") 
s2 = "aaa" 
i = InStr(s1, s2) 
MsgBox i '結果為1

四、VB InStrB函數

VB InStrB函數是對VB Instr函數的二進制衍生版本，主要用於比較字節而非字符。它的參數與Instr函數完全相同，但它在比較上更為精確。因為它是一種二進制比較，不會受到本地字符集設置的影響。

例子：

Dim s1, s2, i 
s1 = ChrB(231) & ChrB(132) & ChrB(191) 
s2 = ChrB(132) 
i = InStrB(1, s1, s2) 
MsgBox i '結果為2

五、VB InStrRev函數

VB InStrRev函數用於在指定字符串中從右側查找一個字符串，並返回一個整數，該整數表示被查找到字符串的起始位置。如果未找到該字符串，則返回0。其參數和VB Instr函數相同，只是從右邊開始搜索。

例子：

Dim a, b, pos
a = "I am a boy. I am a student."
b = "am"
pos = InStrRev(a, b)
MsgBox pos '結果為 14
pos = InStrRev(a, b, 13)
MsgBox pos '結果為 2

六、VB InStr函數用法

VB Instr函數常用於文本處理任務，如查找字符串中的一部分，或者判斷字符串是否包含特定的子串。下面是一個例子：

例子：

Dim strSearch As String
Dim strFind As String
strSearch = "This is a sample string to test Instr function"
strFind = "sample"
If InStr(strSearch, strFind)  0 Then
    MsgBox "The string contains the word 'sample'"
Else
    MsgBox "The string does not contain the word 'sample'"
End If

七、VB Instr返回值

VB Instr函數的返回值為整數，表示被查找的子串在主串中的位置。如果查找不到，則返回0。

八、VB InStrRev函數

與VB Instr函數不同，VB InstrRev函數從字符串的右側開始查找指定的字符串。

例子：

Dim str As String
Dim iPos As Integer
str = "This is a sample string"
iPos = InStrRev(str, "is")
MsgBox iPos '結果為 5

九、VB Instr所有位置

如果要查找字符串中出現某個字符或子串的所有位置，可以結合使用Mid函數和Instr函數。下面是一個例子：

例子：

Dim str As String
Dim iPos As Integer
str = "this is a sample string"
iPos = 1
Do Until iPos = 0
   iPos = InStr(iPos, str, "s")
   If iPos > 0 Then MsgBox iPos '循環輸出字符串中“s”的所有起始位置
   iPos = iPos + 1
Loop

從上面的例子可以看出，InStr函數可以用於各種不同的字符串處理任務。知道了如何使用該函數，您就可以輕鬆處理字符串以及在VB6環境中編寫更強大的應用程序。