dim str,result
'输入内容如 99,111 数字中间用逗号 前后没有逗号
str=inputbox("请输入字符串")
result=StrToAscii(str)
msgbox result
function StrToAscii(str)
strs=split(str,",")
result=""
for each asciiStr in strs
result=result & chr(CINT(asciiStr))
next
StrToAscii=result
end function
请将上述内容保存为strToAscii.vbs