vb中怎么判断一个字符串中包含另一个字符串?

Question

vb中怎么判断一个字符串中包含另一个字符串

Answer 1

InStr 函数返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。InStr([start, ]string1, string2[, compare])InStr 函数的语法具有下面的参数：start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果指定了 compare 参数，则一定要有 start 参数。string1 必要参数。接受搜索的字符串表达式。string2 必要参数。被搜索的字符串表达式。Compare可选参数。指定字符串比较。如果省略 compare，Option Compare 的设置将决定比较的类型。例如如下Sub tttt()a = "abvsdf"b = "z"c = InStr(a, b)If c > 0 ThenMsgBox "a包含b"ElseMsgBox "a不包含b"End IfEnd Sub测试结果

Answer 2

dim a as stringdim b as stringdim i as integerdim l as integera="1234 23 2345 a23a" '被搜索变量b="23" '搜索参考变量l=len(b) 'LEN()意思是取文字变量的长度for i=1 to len(a)if b=mid(a,i,l) then'MID（变量，起点位置，长度）意思是截取print "found!"'找到exit forendifnext i当然这个是基本，你可以通过数组循环找更多的。进行推广