提取数字前面的英文字母

Question

例如text1.text的内容为AN15689-6F，要求为提取数字前面的字母赋值到a(本例提取内容应为AN)，数字前面不一定是两个英文字母，有可能是一个或者多个英文字母，弄了一个早上，都弄不了，望各位大侠能给点意见

Answer 1

for i=1 to len(text1.text)
str=mid(text1.text,i,1)
if  (str>="0"  and str<="9") then
 exit for
endif
nextmsgbox left(text1.text,i-1)
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

    Dim i As Integer
    Dim a As String
    a = ""
    
    For i = 1 To Len(Text1.Text)
        If InStr("123456789", Mid(Text1.Text, i, 1)) > 0 Then
            a = Left(Text1.Text, i - 1)
            Exit For
        End If
    Next
    
    MsgBox a

Answer 3

Sub a()
Dim  i, str
For i = 1 To Len(text1.text)
str = Mid(text1.text, i, 1)
If str Like "[0-9]" Then
  Exit For
End If
  Next
MsgBox Left(text1.text, i - 1)
End Sub