str = "hello,everybody. " 返回false,位置0。(不含汉字和汉语标点符号)
创新互联建站服务项目包括坪山网站建设、坪山网站制作、坪山网页制作以及坪山网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,坪山网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到坪山省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
str = "hello,ererybody。 " 返回false,位置16。(最后一个句号是汉语标点符号)
先谢过大家了!
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(n,S1,S2)
该函数的功能:从字符串S1的左起第N位开始,向右逐位进行搜索匹配字符串S2,如果找到匹配,就返回一个整数指明匹配的位置,否则就返回0。如果缺省n,就是默认从字符串S1的左起第1位开始,进行搜索匹配字符串S2。
例如1:Instr(1,"abcde","a"),返回1
例如2:Instr(3,"abcde","a"),返回0
例如3:Instr(1,"abcde","c"),返回3
例如4:Instr(1,"abcde","cde"),返回3
例如5:Instr(4,"ab12cd12e12","12"),返回7,这里从字符串"ab12cd12e12"左起第4位开始向右搜索匹配字符串"12",找到的是中间一个“12”,这个“12”是位于字符串"ab12cd12e12"左起的第7个字符。
而:Instr(1,"ab12cd12e12","12"),返回3
Instr("ab12cd12e12","12"),返回3
很简单,用字符串查找函数就可以实现了。
当在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了。
我觉得这样最简单有效。