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

技术流评论4,630 views1阅读模式

最近在研究一个小工具,用到这个功能,但是发现网上没有现成的代码,所以自己写了一个。此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

硬盘装满导致数据库崩溃无法启动 技术流

硬盘装满导致数据库崩溃无法启动

其实我的硬盘并没有完全装满,本来100G,我算了,删掉另外一个盘符里面的55,自动进入回收站,回收站在data盘,data盘本来40,这样加一起95。我早上起来清空回收站,就可以了。 结果早上起来,发...
快充到底有什么卵用?用处就是真香 技术流

快充到底有什么卵用?用处就是真香

手上有一台小米K30Pro,带的是33w的快充,这个快充本来我觉的没什么卵用的产品,因为对于上班族来说就是公司和家里各放一个充电线,对于在外面的就需要带一个充电宝。似乎这个快充有点食之无味弃之可惜。 ...
试用京东无限宝,不知究竟能赚取多少积分 技术流

试用京东无限宝,不知究竟能赚取多少积分

京东云无线路由器算是一个很好的项目。 因为不像挖矿那样是灰色的,毕竟把数字货币兑换成人民币,中间还是要承担一些风险的。 在一个京东云无线路由本身也是一款可以正常使用的路由器,即使不赚积分,本身也是一个...
评论  0  访客  0

发表评论

匿名网友 填写信息

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

确定