Function SubstituteEx(Strtemp As String) As String
'************************************************************
'一个字符串中剥离品番部分,去掉A-Z,0-9,-
'以外的字符
'************************************************************
Dim VarTemp As String
Dim i As Long
Dim sig As Boolean
For i = 1 To Len(Strtemp)
sig = True
VarTemp = Right(Left(Strtemp, i), 1)
If Asc(UCase(VarTemp)) < 48 Or Asc(UCase(VarTemp)) > 90 Then
If Asc(UCase(VarTemp)) <> 45 Then
sig = False
End If
Else
If (Asc(UCase(VarTemp)) > 57 And Asc(UCase(VarTemp)) < 65) Then
sig = False
End If
End If
If sig Then
SubstituteEx = SubstituteEx & VarTemp
End If
Next
End Function
去掉字母A-Z以及数字0-9以外的其他字符函数 (原创)
最新推荐文章于 2023-02-15 12:01:18 发布