使用VBScript判断一个字符串全是字母的代码

网站编辑
1353
文章
2
评论
2012/02/1104:22:52
评论
3,428 views

最近在研究一个小工具,用到这个功能,但是发现网上没有现成的代码,所以自己写了一个。此VBS代码用于判断一个输入的字符串的字符形式——全都是字母,或不全是字母。

Dim Yuanzifan  '欢迎访问原梓番博客
Dim LenOfString
Dim Arr(100)

Yuanzifan=InputBox("输入一个长度小于100的字符串")
LenOfString=Len(Yuanzifan)

For i=1 To LenOfString
Arr(i)=Mid(Yuanzifan,i,1)
Next

SType=0
For j=1 To LenOfString
If Asc(Arr(j))>96 And Asc(Arr(j))<123 Then
SType=SType+1
ElseIf Asc(Arr(j))>64 And Asc(Arr(j))<91 Then
SType=SType+1
End If
Next

If SType=LenOfString Then
MsgBox "全是字母:www.yuanzifan.com"
Else
MsgBox "不全是字母:www.yuanzifan.com"
End If

匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: