怎么把一个字段中的字母去除

[lisoon]

字段是文本字段，里面有字母和数字混杂，如37uj834,yu8867t，现在我要把字母去除，让数字留下来。有办法实现吗？

谢谢各位相助.

[wwwwb]

建立模块：
gg = ""
DF = Len(Trim(rr))
For i = 1 To DF
If Not ((Asc(Mid(rr, i, 1)) >= 65 And Asc(Mid(rr, i, 1)) <= 90) Or (Asc(Mid(rr, i, 1)) >= 97 And Asc(Mid(rr, i, 1)) <= 122)) Then
MsgBox i
gg = gg + Mid(rr, i, 1)
End If
Next
hbzm = gg
End Function

sql:
SELECT hbzm('37uj834yu8867t');

[changechange]

类似的问题永远是用
1、写 I=0 TO LEN(字符串) 循环获取每个字符
2、用 ASC 判断字符编码确定他是中文、英文、数字、标点符号
3、根据要求做取舍

[changechange]

但是也有用 REPLACE 的方法

[wwwwb]

建立模块：
Function hbzm(rr As String) As String
gg = ""
DF = Len(Trim(rr))
For i = 1 To DF
If Not ((Asc(Mid(rr, i, 1)) >= 65 And Asc(Mid(rr, i, 1)) <= 90) Or (Asc(Mid(rr, i, 1)) >= 97 And Asc(Mid(rr, i, 1)) <= 122)) Then
MsgBox i
gg = gg + Mid(rr, i, 1)
End If
Next
hbzm = gg
End Function

sql:
SELECT hbzm('37uj834yu8867t');