如何删除字符串中的非数字字符?

huzaixin

不好意思!第一次传错了.

[此贴子已经被作者于2006-4-7 12:29:24编辑过]

huzaixin

怎么传不上来呢?

唐小小

Public Function GetNumFromString(X As String) As String
  Dim i     As Long
  For i = 0 To VBA.Len(X) - 1
          If VBA.Asc(VBA.Mid(X, i + 1, 1)) >= VBA.Asc("0") And VBA.Asc(VBA.Mid(X, i + 1, 1)) <= VBA.Asc("9") Then
                GetNumFromString = GetNumFromString & VBA.Mid(X, i + 1, 1)
          End If
  Next i
  End Function

调用：GetNumFromString([字段名])

这个好像简单些吧：）

andymark

去掉VBA这几个字会更简洁一些