如题所述
Sub test1()
Dim Str1, Str2 As String
Str1 = "ABCDEFG"
Str2 = "Cb"
'方法1使用instr函数
If InStr(Str1, Str2) > 0 Then
MsgBox "包含"
Else
MsgBox "不包含"
End If
'方法2 使用like运算符
If Str1 Like "*" & Str2 & "*" Then
MsgBox "包含"
Else
MsgBox "不包含"
End If
End Sub
Dim Str1, Str2 As String
Str1 = "ABCDEFG"
Str2 = "Cb"
'方法1使用instr函数
If InStr(Str1, Str2) > 0 Then
MsgBox "包含"
Else
MsgBox "不包含"
End If
'方法2 使用like运算符
If Str1 Like "*" & Str2 & "*" Then
MsgBox "包含"
Else
MsgBox "不包含"
End If
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-06-19
本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。
' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)
' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)
' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。
MyPos = Instr(1, SearchString, "W") ' 返回 0。本回答被网友采纳
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。
' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)
' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)
' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。
MyPos = Instr(1, SearchString, "W") ' 返回 0。本回答被网友采纳
