字符ANSI代码查询工具vbs版
程序员文章站
2022-04-10 08:13:09
复制代码 代码如下:x=inputbox("请输入字符","提示","test") if len(x)<>0 then for i=1 to len(x) ws...
复制代码 代码如下:
x=inputbox("请输入字符","提示","test")
if len(x)<>0 then
for i=1 to len(x)
wscript.echo "字符 [" & mid(x,i,1) & "] ansi代码为: " & asc(mid(x,i,1))
next
else
msgbox "请输入英文字符",64,"提示"
end if