在vb中如何找到一字符串中第一个为英文字母的字符?

来源:百度知道 编辑:UC知道 时间:2024/05/15 15:02:47
如题
我只要判断是不是英文字母!

提供一种方法吧,可以用字符相对比较少的情况下使用, 如果字符串很长,比如超过1000, 那可以考虑,用INSTR从字符串中找字母,这样最多才26+26(大写+小写)次循环..

Dim a$, i%
a = "1233312342A342#!@!@!"

For i = 1 To Len(a)
If (Asc(Mid(a, i, 1)) >= 65 And Asc(Mid(a, i, 1)) <= 90) _
Or (Asc(Mid(a, i, 1)) >= 97 And Asc(Mid(a, i, 1)) <= 122) Then
Print "第1个出现的字母是" & Mid(a, i, 1) & ",位置在第" & i & "位!"
Exit Sub
End If
Next

Print "没有字母!!"

来个循环,判断每个字符的ascii码,在0-128之间的就是英文和标点之类的了....