请教如何判断某字段中有无英文字母？(已解决)

sxgaobo

同题！字段中有的数据是纯数字，有的里面包含字母，如9000898765或CLHS9087654334-2......等，

Henry D. Sy

try
asc函数

Henry D. Sy

1. Public Function IsLetterExist(strFld As String) As Boolean
   
2.     Dim bln As Boolean
   
3.     Dim i As Integer, j As Integer
   
4.     Dim intCode As Integer
   
5.     On Error GoTo IsLetterExist_Error
   
6. 
   
7.     bln = False
   
8.     If Not IsNull(strFld) Then
   
9.         i = Len(strFld)
   
10.         For j = 1 To i
    
11.             intCode = Asc(UCase(Mid(strFld, j, 1)))
    
12.             If 64 < intCode And intCode < 91 Then
    
13.                 bln = True
    
14.                 Exit For
    
15.             End If
    
16.         Next
    
17.     End If
    
18.     IsLetterExist = bln
    
19. 
    
20.     On Error GoTo 0
    
21.     Exit Function
    
22. 
    
23. IsLetterExist_Error:
    
24. 
    
25.     MsgBox "Error " & Err.Number & " (" & Err.Description & ") "
    
26. End Function
    

复制代码

roych

Henry D. Sy 发表于 2012-1-15 23:56

太复杂了。用正则表达式或许会简单些：

Sub test()
'引用Microsoft VBScript Regular Expressions 5.5
Dim rexp As New RegExp
Dim str As String
rexp.Pattern = "[a-z]"
rexp.IgnoreCase = True
str = "123"
Debug.Print rexp.test(str)
End Sub

Henry D. Sy

roych 发表于 2012-1-16 10:37
太复杂了。用正则表达式或许会简单些：

Sub test()

呵呵，是的
谢谢提醒！

t小宝

这样更简单：
SELECT 字段名 FROM 表名 WHERE 字段名 Like "*[a-z]*"

Henry D. Sy

t小宝 发表于 2012-1-16 11:02
这样更简单：
SELECT 字段名 FROM 表名 WHERE 字段名 Like "*[a-z]*"

风中漫步

宝版的这个不错
不知用isnumeric行吧

Henry D. Sy

风中漫步 发表于 2012-1-16 14:36
宝版的这个不错
不知用isnumeric行吧

如果按楼主的描述的情况应该也可以！

sxgaobo

{:soso_e179:}一帮高人啊！！！{:soso_e183:}