Asc&Chr Converter v1.0.vbs

'filename："Asc&ChrConverterv1.0.vbs"
'writer：t0nsha@071028WinXPSP2测试通过！
'Email：tunhsiaATgmail.com
'Blog:http://blog.youkuaiyun.com/t0nsha/
OnErrorResumeNext
FunctionAscii(arg)
if(IsNumeric(arg))Then
Ascii=Chr(arg)
Else
Ascii=Asc(arg)
EndIf
EndFunction
Do
arg=InputBox("使用说明："&VbCrLf&"输入字符求asc码，输入asc码求字符，求数字asc码请在数字后加字母（如：输入a得97，输入97得a，输入9a得9的asc码57），仅单字符转换。","Asc&ChrConverterv1.0")
ifnotIsEmpty(arg)ThenMsgBox(arg&"isconvertedto:"&Ascii(arg))
LoopUntilIsEmpty(arg)