vb中怎么判断字符串有没有某个字符

vb6中怎样判断字符串中是否包含某个字符~

用instr（）函数，返回第二个字符串在第一个字符串中出现的位置，如果没有，则返回0
例如：instr（1，＂abcdef＂，＂j＂）返回结果为0
注：1表示从第一个字符串的第一个字符开始查找
InStr 函数可返回下面的值：
如果 string1 为 ""（零长度） - InStr 返回 0
如果 string1 为 Null - InStr 返回 Null
如果 string2 为 "" - InStr 返回 start
如果 string2 为 Null - InStr 返回 Null
如果 string2 没有找到 - InStr 返回 0
如果在 string1 中找到 string2，InStr 返回找到匹配字符串的位置
如果 start > Len(string1) - InStr 返回 0




扩展资料：
语法
instr( string1, string2, start_position,nth_appearance )
参数
string1：源字符串，要在此字符串中查找。
string2：要在string1中查找的字符串 。
start_position：代表string1 的哪个位置开始查找。此参数可选，如果省略默认为1. 字符串索引从1开始。如果此参数为正，从左到右开始检索，如果此参数为负，从右到左检索，返回要查找的字符串在源字符串中的开始索引。
nth_appearance：代表要查找第几次出现的string2. 此参数可选，如果省略，默认为 1.如果为负数系统会报错。
参考资料来源：百度百科-instr函数

使用Instr函数来检测
例如：
dim s as string
dim i as long
s="hello$world!"
i=Instr(s,"$") '检测字符串s中是否含有$,并返回$的位置,此处$是第6个字符，所以返回6,即i=6,如果不存在则返回0
If i>0 then
msgbox "存在"
else
msgbox "不存在"
End If

方法一：

InStr 函数

' 从字符串 "abc" 的第一个字符开始以不区分大小写的方式搜索字符串 "B"
MsgBox IIF(Instr(1, "abc", "B", vbTextCompare) > 0, "有", "没有")

返回 → 有

方法二：

Like 运算符

MsgBox IIF("abc" Like "*B*", "有", "没有")

返回 → 没有

instr()函数,返回第二个字符串在第一个字符串中出现的位置，如果没有，则返回0
例如：instr(1,"abcdef","j")返回结果为0
注：1表示从第一个字符串的第一个字符开始查找

---

温宿县19314113909： vb 判断字符串中是否含有某字符 - ？
边姣帅克： Dim a as string a = ＂Im a (girl)!＂ If instr(a, ＂(＂) > 0 Thenmsgbox ＂yes＂ elsemsgbox ＂no＂ end if

温宿县19314113909： vb6中怎样判断字符串中是否包含某个字符 - ？
边姣帅克： instr()函数,返回第二个字符串在第一个字符串中出现的位置,如果没有,则返回0 例如:instr(1,＂abcdef＂,＂j＂)返回结果为0 注:1表示从第一个字符串的第一个字符开始查找

温宿县19314113909： 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

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

温宿县19314113909： VB判断一个字符是否存在？
边姣帅克： Private Sub Command1_Click() s = ＂ggyy_1234＂ i = InStr(1, s, ＂_＂) ' i就是_的精确位置 If i > 0 Then ' 表示找到了_ s = Right(s, Len(s) - i + 1) ' 截取_开始后的所有字符 End If Print s End Sub

温宿县19314113909： VB如何判断文本内是否有指定的字符 - ？
边姣帅克： 框架性程序可如下:open C:\1.txt as #1 text=.......close #1 if vba.instr(text,＂Eyuhero＂)>0 and left(text,1)=＂#＂ thentextbox1.enble=flase else textbox1.enble=true end if

温宿县19314113909： VB中如何判断一串字符中包含特定的几个字符? - ？
边姣帅克： 用Instr函数判断

温宿县19314113909： 用VB编写一个程序勇于判断一个字符串中是否含有一个指定的字母.？
边姣帅克： Private Sub Command1_Click() Dim i As Integer Dim Sum As Integer Dim Str1 As String Dim Str2 As String Dim d As String Sum = 0 Str1 = Text1.Text Str2 = InputBox(＂输入统计的字符＂) If Len(Str2) &lt;= Len(Str1) And Len(Str1) &gt; 0 And ...

温宿县19314113909： VB如何判断某一字符串中有没有特定格式的字符串 - ？
边姣帅克： 简单点的话,先查找字符串里有没有冒号“:”,如果有就再用mid()取冒号前后各两个字符判断是否为数字(一共取4个,但是实际不一定都要是数字,2:03可能写成2:3).

温宿县19314113909： 急!在vb中,如何判断一个字符后是否含有另一个字符?？
边姣帅克： 补充一下,我上面代码的功能是 在＂0＂的后面有没有＂1＂ 有则提示为TURE,没有则提示为FALSE .如果没有＂0＂则也提示为FALSE. 和楼主的功能是类似的