find
seach
这两个函数都可以吧，
dim str as string
str="abcdefg"空衫
if instr(str,"d") then
msgbox "包含"
else
msgbox "斗兄腔不包含尘返"
end if
InStr([start, ]string1, string2[, compare])
返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。
本示轿薯例使用 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。
判断一个字符串里面包含了某个字符,参照最后一个示例,如果返回值是0,说明没有包含
很简单，用字符串查找函数就可以实现了。\x0d\x0a当在StrB查找到StrA字符串时，返回肯定是非0的数，值就是True，找不到为0或者-1，值就是段纳行配Flase\x0d\x0a\x0d\x0a比如：\x0d\x0aDim StrA As String = "Time is Limited"\x0d\x0aDim StrB As String = "Time"\x0d\x0aDim Stu As Boolean= InStr(StrA, StrB)\x0d\x0a\x0d\x0a这运行段代码，Stu值就是True了。\x0d\x0a我觉得这样最简单有效握带没。
vb 的replace函数
Mid(String1, Start1, 1) = Mid(String2, Start2, 1)中start1是string1中要替李梁换位置起始字符的位置，1为要替换的 个数，start2是型培string2中将要替换到string1中的的字符的起始位置，个数与哪租运前面相同，也为1，例：
Dim a As String
a = "abcdefghijk"
Dim b As String
b = "123456789"
Mid(a, 3, 1) = Mid(b, 5, 1)
Text1 = a
运行结果为ab5defghijk
以上就是土嘎嘎小编大虾米为大家整理的vb字符串包含另一个字符串相关主题介绍,如果您觉得小编更新的文章对您有所帮助，不要忘记讲本站分享给您身边的朋友哦！！