function RemoveNums(theString As String)
Dim eachChar, Temp As String
Dim i As Integer
Temp = ""
For i = 1 To Len(theString)
eachChar = Mid(theString, i, 1)
If Asc(eachChar) < 48 Or Asc(eachChar) > 57 Then
Temp = Temp & eachChar
End If
Next
RemoveNums = Temp
End Function
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。