'
filename:"Asc&Chr Converter v1.0.vbs"
' writer:t0nsha @071028 WinXPSP2测试通过!
' Email:tunhsiaATgmail.com
' Blog:http://blog.csdn.net/t0nsha/
On Error Resume Next
Function Ascii(arg)
if ( IsNumeric (arg)) Then
Ascii = Chr (arg)
Else
Ascii = Asc (arg)
End If
End Function
Do
arg = InputBox ( " 使用说明: " & VbCrLf & " 输入字符求asc码,输入asc码求字符,求数字asc码请在数字后加字母(如:输入a得97,输入97得a,输入9a得9的asc码57),仅单字符转换。 " , " Asc&Chr Converter v1.0 " )
if not IsEmpty (arg) Then MsgBox (arg & " is converted to: " & Ascii(arg))
Loop Until IsEmpty (arg)
' writer:t0nsha @071028 WinXPSP2测试通过!
' Email:tunhsiaATgmail.com
' Blog:http://blog.csdn.net/t0nsha/
On Error Resume Next
Function Ascii(arg)
if ( IsNumeric (arg)) Then
Ascii = Chr (arg)
Else
Ascii = Asc (arg)
End If
End Function
Do
arg = InputBox ( " 使用说明: " & VbCrLf & " 输入字符求asc码,输入asc码求字符,求数字asc码请在数字后加字母(如:输入a得97,输入97得a,输入9a得9的asc码57),仅单字符转换。 " , " Asc&Chr Converter v1.0 " )
if not IsEmpty (arg) Then MsgBox (arg & " is converted to: " & Ascii(arg))
Loop Until IsEmpty (arg)