VBS中怎么判断输入的字符是否包含于指定的字符？

Question

比如：有一个输入框中，现在只许输入1234567890+*#PWpwNn字符，输入其他字符就会弹出提示，我需要判断输入的字符是否属于1234567890+*#PWpwNn中的字符，并且没有其他字符？

Answer 1

如果字符串长度一定（就是不是很长）的话，写个循环读取每个字符，看下是不是允许输入，主要用mid()函数和循环

如果输入框输入的比较长 写个正则表达式吧追问

就以上面的的字符串为例子，能给个具体的写法不？

追答

txtInput=inputbox("Enter the Text","Tip")
i=1
Do while i<=len(txtInput)
if instr("1234567890+*#PWpwNn",mid(txtInput,i,1))<=0 then
msgbox "error char:" & mid(txtInput,i,1)
end if
i=i+1
Loop