Function GetPureName(filename As String)
Dim i As Integer
Dim s, RstStr As String
Dim Bol As Boolean
For i = 1 To Len(filename)
s = Mid(filename, i, 1)
If (s Like "[0-9a-zA-Z]") Then
RstStr = RstStr & s
End If
Next i
GetPureName = RstStr
End Function
Excel VBA 字符串加工,去除字符串中非数字及非字母字符
最新推荐文章于 2023-02-22 14:02:58 发布