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

VB中如何判断一个字符串是否属于另一个字符串？【急求】~

inStr(B,A)
inStr(B,C)
中间有个可选参数就是从哪个位置开始

很简单，用字符串查找函数就可以实现了。
当在StrB查找到StrA字符串时，返回肯定是非0的数，值就是True，找不到为0或者-1，值就是Flase

比如：
Dim StrA As String = "Time is Limited"
Dim StrB As String = "Time"
Dim Stu As Boolean= InStr(StrA, StrB)

这运行段代码，Stu值就是True了。
我觉得这样最简单有效。

1、启动VB新建工程1，在form1的合适位置画出3个Label框、2个Text框以及1个Command按钮（可以预先对各控件的Caption等属性进行修改）。

2、双击“统计”（即Command1）按钮，在弹出的代码框中编写如下代码：

PrivateSubCommand1_Click()DimxAsStringa=Text1.Textb=Text2.Textn=0Fori=1ToLen(a)x=Mid(a,i,1)

 If x = b Then n = n + 1  Next i  Label3.Caption = "字符" & b & "在字符串”" & a & "“中" & vbCrLf & "共出现了" & n & "次。"End Sub

这样便达到了检索所有字符、统计某个字符出现次数的需求了。

3、同理，对text2进行设置，当光标停留在text2中，按下回车键时，光标将跳到Command上，方便操作：

PrivateSubtext2_keypress(keyasciiAsInteger)Ifkeyascii=13ThenCommand1.SetFocusEndSub

4、最后点击运行即可。

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 Then

MsgBox "a包含b"

Else

MsgBox "a不包含b"

End If

End Sub

测试结果

dim a as string
dim b as string
dim i as integer
dim l as integer
a="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 for
endif
next i
当然这个是基本，你可以通过数组循环找更多的。进行推广

最佳答案用得着那么麻烦吗，你们都忘了InStr()函数了？
If Instr("1234","23") > 0 then Msgbox("包含")

---

海淀区19817861749： vb中怎么判断一个字符串中包含另一个字符串？
颜怕中诺： dim a as string dim b as string dim i as integer dim l as integer a=＂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 for endif next i当然这个是基本,你可以通过数组循环找更多的.进行推广

海淀区19817861749： vb 不考虑顺序,怎样判断一字符串包含在另一字符串中? - ？
颜怕中诺： Function AinB(ByVal A As String, B As String) As Boolean Dim Index As Integer If Trim(A) <> ＂＂ And Trim(B) <> ＂＂ Then For Index = 1 To Len(A) If InStr(B, Mid$(A, Index, 1)) = 0 Then Exit Function Next Index AinB = True End If End Function ...

海淀区19817861749： vb 判断字符串中是否含有某字符 - ？
颜怕中诺： Dim a as string a = ＂Im a (girl)!＂ If instr(a, ＂(＂) > 0 Thenmsgbox ＂yes＂ elsemsgbox ＂no＂ end if

海淀区19817861749： VB中如何判断两个字符串之间的包含关系 - ？
颜怕中诺： if instr(A,B)>0 then msgbox ＂A包含B＂ end if if instr(B,A)>0 then msgbox ＂A包含于B＂ end if

海淀区19817861749： vb6中怎样判断字符串中是否包含某个字符 - ？
颜怕中诺： instr()函数,返回第二个字符串在第一个字符串中出现的位置,如果没有,则返回0 例如:instr(1,＂abcdef＂,＂j＂)返回结果为0 注:1表示从第一个字符串的第一个字符开始查找

海淀区19817861749： 急!在vb中,如何判断一个字符后是否含有另一个字符?？
颜怕中诺： 补充一下,我上面代码的功能是 在＂0＂的后面有没有＂1＂ 有则提示为TURE,没有则提示为FALSE .如果没有＂0＂则也提示为FALSE. 和楼主的功能是类似的

海淀区19817861749： VB中如何判断一串字符中包含特定的几个字符? - ？
颜怕中诺： 用Instr函数判断

海淀区19817861749： VB中怎么看一个字符串是否在另一个里面呢? - ？
颜怕中诺： instr(源字符串,比较字符串) instr(＂我是中国人＂,＂中国＂) 就会返回中字的起始位置3 instr(＂我是中国人＂,＂美国＂) 找到不匹配 返回0 if instr(＂我是中国人＂,＂中国＂) <> 0 then msgbox ＂在我是中国人中找到了中国两个字＂ End if

海淀区19817861749： vb中有没有一个函数可以判断这个输入框中是否包含一个字或者一个符号 - ？
颜怕中诺： InStr([start, ]string1, string2[, compare]),下标从1开始 返回指定一字符串在另一字符串中最先出现的位置.在字符串string1中,从start开始找string2,省略start时从string1头开始找.找不到时,函数值为0.例如:XXX,XXX String2=＂xxx,xxx＂ If InStr(＂,＂,String2) <> 0 Then Msgbox ＂有,＂ End If

海淀区19817861749： VB中我怎么监测一个字符串中是否包含所需字符？
颜怕中诺： 用INSTR函数 InStr函数 返回索引 返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置. 语法 InStr([start, ]string1, string2[, compare]) InStr 函数的语法具有下面的参数: 部分 说明 start 可选参数.为数值表达式,设置每次搜索的起...