文字ANSIコードクエリツールvbs版

319 ワード

vbs ANSI コードクエリ


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