Question

怎么把中文转化成十进制代码

怎么把中文转化成十进制代码
我不需要你帮我转 我只要方法 或者给我软件
20分哦

Answer 1

简单的vbs脚本就可以搞定，把以下代码复制到一个txt文件里，然后改后缀为.vbs，双击运行即可：

a = inputbox("请输入要转换的话:", "请输入")
b = ""
for i = 1 to len(a)
b = b & ascw(mid(a, i, 1)) & " "
next

set objie = WScript.CreateObject("internetexplorer.application")
objie.Navigate("about:blank")
objie.Document.parentwindow.clipboarddata.setdata "text",b
objie.Quit

msgbox "转换内容为:" & vbcrlf & b & vbcrlf & "转换的内容已经复制到剪贴板!", vbInformation, "恭喜!"