我有这个功能:
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))