vba 判断某种类型的字符串，如数字+字母+数字的字符串？

你试试这个：

Dim CurrChr As Integer '1--数字，2--字母，3--其他
Dim ReadChr As Boolean

Dim L As Integer
Dim i As Integer
Dim sstr As String
Dim Newstr As String

sstr = "< x=""1"" y=""1"" a=""1S5"" b=""2X8"" 234xyd123 s y x a b 11 >"
Print "原字符串："; sstr
Print
Print "找到的特殊字符串："

L = Len(sstr)
Newstr = ""
CurrChr = 3
For i = 1 To L
Select Case Asc(Mid(sstr, i, 1))
Case 48 To 57
'读到数字
Select Case CurrChr
Case 1, 2 '如果前面读到是数字或字母
CurrChr = 1
Newstr = Newstr & Mid(sstr, i, 1)
Case 3 '如果前面读到是其他
CurrChr = 1
Newstr = Mid(sstr, i, 1)
End Select
Case 65 To 90, 97 To 122
'读到字母
Select Case CurrChr
Case 1, 2 '如果前面读到是数字或字母
CurrChr = 2
Newstr = Newstr & Mid(sstr, i, 1)
ReadChr = True
Case 3 '如果前面读到是其他
CurrChr = 3
Newstr = ""
End Select
Case Else
'读到其他
If CurrChr = 1 And ReadChr Then Print Newstr
Newstr = ""
CurrChr = 3
ReadChr = False
End Select
Next i

已经通过VB6测试！追问

谢谢，虽然提取出的是234xyd123这类，而不是a="2s1"中的2s1这类。但是只要改改就ok了。万分感谢

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/fvfj32xxe323vv3rje.html