很簡(jiǎn)單,用字符串查找函數(shù)就可以實(shí)現(xiàn)了。
創(chuàng)新互聯(lián)建站是一家以網(wǎng)站建設(shè)公司、網(wǎng)頁(yè)設(shè)計(jì)、品牌設(shè)計(jì)、軟件運(yùn)維、成都網(wǎng)站推廣、小程序App開(kāi)發(fā)等移動(dòng)開(kāi)發(fā)為一體互聯(lián)網(wǎng)公司。已累計(jì)為VR全景等眾行業(yè)中小客戶提供優(yōu)質(zhì)的互聯(lián)網(wǎng)建站和軟件開(kāi)發(fā)服務(wù)。
當(dāng)在StrB查找到StrA字符串時(shí),返回肯定是非0的數(shù),值就是True,找不到為0或者-1,值就是Flase
比如:
Dim StrA As String = "Time is Limited"
Dim StrB As String = "Time"
Dim Stu As Boolean= InStr(StrA, StrB)
這運(yùn)行段代碼,Stu值就是True了。
我覺(jué)得這樣最簡(jiǎn)單有效。
有一個(gè)字符串函數(shù):Instr(n,S1,S2)
該函數(shù)的功能:從字符串S1的左起第N位開(kāi)始,向右逐位進(jìn)行搜索匹配字符串S2,如果找到匹配,就返回一個(gè)整數(shù)指明匹配的位置,否則就返回0。如果缺省n,就是默認(rèn)從字符串S1的左起第1位開(kāi)始,進(jìn)行搜索匹配字符串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位開(kāi)始向右搜索匹配字符串"12",找到的是中間一個(gè)“12”,這個(gè)“12”是位于字符串"ab12cd12e12"左起的第7個(gè)字符。
而:Instr(1,"ab12cd12e12","12"),返回3
Instr("ab12cd12e12","12"),返回3
可以用VB6里的函數(shù)
isnumeric()
比如要判斷文本框里的內(nèi)容是否數(shù)字
if isnumeric(TextBox1.text) Then
msgbox("是數(shù)字!")
else
msgbox("不是數(shù)字!")
end if
如果用常規(guī)編程的方法:
直接用split(str1,“,”)的形式把str1字符串分成字符串?dāng)?shù)組,然后用for循環(huán)判斷每個(gè)數(shù)組元素是否是數(shù)字或者是字符串就可以了。