六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

自定義的字符串分類檢測(cè)函數(shù)

[摘要]程序需要,做了一個(gè)自定義的檢測(cè)函數(shù),主要檢測(cè)字符串的類型,因?yàn)樾枨螅瑢?#39;和%也一同放入英文字符類型中。原理很簡(jiǎn)單,將字符拆開單取獲得ASC碼,在什么范圍就為什么類型,當(dāng)然檢測(cè)有局限性。 代碼如下: '#########################################...

程序需要,做了一個(gè)自定義的檢測(cè)函數(shù),主要檢測(cè)字符串的類型,因?yàn)樾枨螅瑢?和%也一同放入英文字符類型中。原理很簡(jiǎn)單,將字符拆開單取獲得ASC碼,在什么范圍就為什么類型,當(dāng)然檢測(cè)有局限性。

代碼如下: '#############################################################
'名稱:StrType(Str)
'用途:判斷字符串類型
'返回0-空
'返回1-數(shù)字
'返回2-英文
'返回3-漢字
'返回4-英漢
'返回5-英數(shù)
'返回6-漢數(shù)
'返回7-全
'#############################################################
Function StrType(Str)
On Error Resume Next
Dim I,A,E,N,C
E=False
N=False
C=False
If IsNUll(Str) Then
StrType=0
Exit Function
End If
If Trim(Str)="" Then
StrType=0
Exit Function
End If
For I=1 To Len(Str)
A=Asc(Mid(Str,I,1))
If A>=48 And A<=57 Then N=True
If (A>=65 And A<=90) Or (A>=97 And A<=122) Or (A>=38 And A<=39) Then E=True
If A<0 Then C=True
Next
If N And (Not E) And (Not C) Then
StrType=1
Elseif E And (Not N) And (Not C) Then
StrType=2
Elseif C And (Not E) And (Not N) Then
StrType=3
Elseif C And E And (Not N) Then
StrType=4
Elseif N And E And (Not C) Then
StrType=5
Elseif C And N And (Not E) Then
StrType=6
Elseif N And E And C Then
StrType=7
Else
StrType=0
End If
If Err.Number<>0 Then Err.Clear
End Function (出處:Viphot)


主站蜘蛛池模板: 色综合日韩 | 中文字幕不卡高清免费 | 色天天干| 日韩 欧美 中文 亚洲 高清 在线 | 色香天天| 日韩毛片免费线上观看 | 伊人四虎 | 青青青爽在线视频免费观看 | 色久在线 | 天天逼网| 三级自拍 | 亚洲产国偷v产偷v自拍色戒 | 日韩一级特黄毛片在线看 | 亚洲第一网站 | 日本最新免费二区三区 | 奇米狠狠色 | 欧美亚洲国产精品久久久 | 色婷婷综合激情 | 羞羞答答免费人成黄页在线观看国产 | 欧美亚洲另类色国产综合 | 亚洲国产日韩欧美在线a乱码 | 在线观看91 | 一二三四日本视频中文 | 天天操天天射天天插 | 羞羞人成午夜爽爽影院 | 色一情一乱一伦一视频免费看 | 日本高免费观看在线播放 | 天天综合天天影视色香欲俱全 | 日本黄视频在线播放 | 网址大全在线免费观看 | 日本一区二区在线不卡 | 欧美性xxxxx极品 | 在线a视频 | 四虎福利视频 | 亚洲爱色| 午夜影院普通 | 日本精品久久久久久久久免费 | 日韩一级视频 | 欧美午夜在线 | 日韩乱码中文字幕视频 | 在线欧美a |