Question

vbs中 如何判断该字符串是汉字

里面不能有英文字母和标点符号，可以有空格 比如 m_MsgVar的值为"程辉a” ， "程$辉"， "程辉"等等 不固定 if （m_msgvar是汉字） then else end if

Answer 1

Function IsStr(str)
IsStr=True
for i=1 to 128
if instr(str,chr(i)) then IsStr=False
next
End Function
if IsStr("程辉")=1 then msgbox "纯文字",64 else msgbox "含有ASCII字符",48
if IsStr("程$辉")=1 then msgbox "纯文字",64 else msgbox "含有ASCII字符",48 就是排除ASCII字符吧？