去掉字母A-Z以及数字0-9以外的其他字符函数（原创）

不会编程的财务不是老司机

于 2011-09-01 08:46:57 发布

阅读量4.1k

点赞数

CC 4.0 BY-SA版权

文章标签： string function

本文链接：https://blog.youkuaiyun.com/ChoasRules/article/details/6738015

本文介绍了一个用于处理特定格式品番字符串的VBScript函数。该函数能够从输入的字符串中移除所有非字母数字及连字符的字符，适用于需要标准化处理品番数据的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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