用VB把字符转换为ASCII ascii转换为字符 如何将vb中的字符串转换成ascii码
\u600e\u4e48\u628aVB\u4e2d\u7684\u628aASC\u7801\u8f6c\u6362\u6210\u5b57\u7b26Asc(string)
\u8fd4\u56de\u503c\uff1a Integer
\u8fd4\u56de\u5b57\u7b26\u4e32\u4e2d\u7b2c\u4e00\u4e2a\u5b57\u7b26\u7684\u5b57\u7b26\u4ee3\u7801\u3002
\u63d0\u793a: Chr \u51fd\u6570\u53ef\u4ee5\u5c06\u4e00\u4e2aAscii\u7801\u8f6c\u6362\u4e3a\u76f8\u5bf9\u5e94\u7684\u5b57\u7b26
Dim i As Integer, str As String, ascstr As String
str = InputBox("\u8bf7\u8f93\u5165\u5b57\u7b26\u4e32")
For i = 1 To Len(str)
ascstr = ascstr & CStr(Asc(Mid(str, i, 1)))
Next i
Print ascstr
可使用Asc 函数将字符转换为ASCII,使用Chr 函数将ASCII转换为字符。
Asc 函数,返回一个 Integer,代表字符串中首字母的字符代码。
Asc 函数示例
本示例使用 Asc 函数返回字符串首字母的字符值(ASCII 值)。
Dim MyNumber
MyNumber = Asc("A") ' 返回 65。
MyNumber = Asc("a") ' 返回 97。
MyNumber = Asc("字符") ' 返回 -10282。
Chr 函数,返回 String,其中包含有与指定的字符代码相关的字符 。
Chr 函数示例
本示例使用 Chr 函数来返回指定字符码所代表的字符。
Dim MyChar
MyChar = Chr(65) ' 返回 A。
MyChar = Chr(97) ' 返回 a。
MyChar = Chr(62) ' 返回 >。
MyChar = Chr(-18437) ' 返回 符。
一、字符转ASCII码:code=ASC(strCHAR)
二、ascii转字符:strChar=CHR(code)
源码介绍: 任意字符的ASCII码转换工具,基于VB6的源代码,可以把任意字符(数字、字母、汉字)转化成ascii码,也可以把ascii码还原成最初的字符。转化后的的结果(注:每个字符之间用“/”间隔开)。
使用说明:一共三个大文本框,你也可以在第二个文本框输入ASCII码,点击还原后会还原回原来的内容,注意填写格式:/1/2/3/4
原理:举个例子,用asc("你")把“你”转化成ASCII码的值为:-15133 , 用chr("-15133")把ASCII码值还原成“你”
Mid("hello", 5, 1),这个意思是:取hello中的值,5代表从第五个开始取,1代表取的值的长度。
下个软件,我学的不是本专业,没看懂,。
扩展阅读:非ascii字符怎么解决 ... 标准ascii码表图 ... ascii与汉字转换表 ... vb ascii码对照表 ... 在下列字符中其ascii ... vb ascii码转换 ... 如何把ascii码转成字符 ... ascii在线编码转换工具 ... c怎么把字母转换成ascii码 ...