两种去掉字符串中数字的方法（VB学习 备注）

1、遍历每一个字符进行判断

Public Function DelNumber(ByVal s As String) As String

    Dim strL As Long
    Dim i As Long
    Dim strTemp As String
    
    On Error GoTo err
    
    strL = Len(s)
    
    DelNumber = ""
    
    For i = 0 To strL - 1
    
        strTemp = Left(Right(s,strL - i),1)
        
        If Not IsNumeric(strTemp) Then
        
            DelNumber = DelNumber & strTemp
            
        End If
        
    Next
    
    Exit Function
    
err:

    MsgBox Error
    
End Function

Public Function DelNumberReg(ByVal s As String) As String

    Dim oRegExp As Object
    Dim strDest As String,strSource As String
    
    strSource = s
    Set oRegExp = CreateObject("VBscript.RegExp")
    oRegExp.Global = True
    oRegExp.Pattern = "[0-9]*"
    
    strDest = oRegExp.Replace(strSource,"")

    DelNumberReg = strDest
       
End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!