VBScript无法过滤非ascii字符

2023年11月14日 221次阅读

我有这个功能：

Private Sub CheckParams(Values)    
    Dim Str, Ch

    If IsArray(Values) then
        Str = Join(Values, "")
    Else
        Str = Values
    End If

    For I = 1 To Len(Str)
         Ch = Asc(Mid(Str, I, 1))
         If Not ((Ch = 9) Or (Ch = 10) Or (Ch = 13) Or ((Ch > 31) And (Ch < 128))) Then
             SetError("script result contains illegal characters.")
         End If
    Next     
End Sub

 如果输入值具有根据For循环中的If语句不在列表中的字符,则此函数将引发错误.问题是当我的输入值有日文字符时,验证通过而没有错误.我认为用于返回字符的ANSI代码的Asc()函数不知道如何处理日文字符.这里似乎有什么问题？ Asc()函数是否返回负数？

最佳答案 Kanji和Kana最有可能表示为2字节Unicode字符,因此您可以尝试这样的事情：

ch = AscW(MidB(str, i, 2))
点赞