vb ascii 转换 字符串
作者&投稿：直融 （若有异议请与网页底部的电邮联系）
可使用Asc 函数将字符转换为ASCII，使用Chr 函数将ASCII转换为字符。
Asc 函数，返回一个 Integer，代表字符串中首字母的字符代码。
Asc 函数示例
本示例使用 Asc 函数返回字符串首字母的字符值（ASCII 值）。
Dim MyNumberMyNumber = Asc("A") ' 返回 65。MyNumber = Asc("a") ' 返回 97。MyNumber = Asc("字符") ' 返回 -10282。Chr 函数，返回 String，其中包含有与指定的字符代码相关的字符 。
Chr 函数示例
本示例使用 Chr 函数来返回指定字符码所代表的字符。
Dim MyCharMyChar = Chr(65) ' 返回 A。MyChar = Chr(97) ' 返回 a。MyChar = Chr(62) ' 返回 >。MyChar = Chr(-18437) ' 返回 符。
Dim i As Integer, str As String, ascstr As String
str = InputBox("请输入字符串")
For i = 1 To Len(str)
ascstr = ascstr & CStr(Asc(Mid(str, i, 1)))
Next i
Print ascstr
这种是unicode 的16进制编码，既然你会在vb里面处理json，那JS应该也是会用的，下面是从某网站找来的代码，编码和解码都有,改改就能用。
var decToHex = function(str) {
var res=[];
for(var i=0;i < str.length;i++)
res[i]=("00"+str.charCodeAt(i).toString(16)).slice(-4);
return "\\u"+res.join("\\u");
}
var hexToDec = function(str) {
str=str.replace(/\\/g,"%");
return unescape(str);
}
var bianma=function()
{
document.getElementById('code12').value=decToHex(document.getElementById('code11').value);
}
var jiema=function()
{
document.getElementById('code22').value=hexToDec(document.getElementById('code21').value);
}
s = "\u5973"
Set sc = CreateObject("ScriptControl")
sc.language = "javascript"
MsgBox sc.eval("'" & s & "'")
季狡盐酸： function AscStr2String(byval ascstr as string) as string while len(ascstr)>1 AscStr2String=AscStr2String & chr(cint(left(ascstr,2))) '取2个字节,转换成字符,每个字符的asc都是2个字节 ascstr=mid(ascstr,3)' 把前两位切掉,从第三位开始 wend end function
巨野县13368015117： VB中 ascii与字符相互转换 代码 - ？
季狡盐酸： ASC( 字符) 该字符的 ACSII值 chr( 数字) 该数字对应的字符 =========================== 希望对你有帮助 ===========================
巨野县13368015117： 如何在VB中将大于127的ASCII码转换为字符? - ？
季狡盐酸： 答案补充:这样吧,你把Chr都改成ChrW吧,这个函数比较不错.至于Chr函数的问题,的确如你所述,我无奈,功力不够哈.======================== 你这句话本身就不对.Chr函数没有任何问题.问题在于ASCII是129~254的字符根本显示不出来.所以当然不是所谓“一堆空”,只不过你看不见而已,字符是存在的.不信的话,你查一查ASCII表.你可以试试Chr(128),返回�U馐窃赱128,254]里唯一能显示的字符.
巨野县13368015117： VB中如何实现字符串与字符串的转换 - ？
季狡盐酸： 可以自定义个函数,如Cobj( string str) ,function Cobj( str as String) as CString '返回字符串对象dim cstr as new CStringcstr=strset Cobj=cstr end ifCString 自己定义的类 成员只一条: Public Value as String '从工具\过程属性菜单中 把value设置为默认属性
巨野县13368015117： VB中字母大小写转换 - ？
季狡盐酸： Ucase函数和Lcase函数 Ucase(＂字符串＂)______将字符串中所有小写字母转换成大写,最终字符串全部是大写字母.Lcase(＂字符串＂)______将字符串中所有大写字母转换成小写,最终字符串全部是小写字母.
巨野县13368015117： VB中常用的指令有哪些? - ？
季狡盐酸： 字符串函数 1. ASC(X),Chr(X):转换字符字符码[格式: P=Asc(X) 返回字符串X的第一个字符的字符码 P=Chr(X) 返回字符码等于X的字符[范例: (1)P=Chr(65) ' 输出字符A,因为A的ASCII码等于65 (2)P=Asc(“A”) ' 输出652. Len(X...
巨野县13368015117： 在VB中把ASCII值转换为字母的语法是什么? - ？
季狡盐酸： chr()函数
巨野县13368015117： 怎么把VB中的把ASC码转换成字符 - ？
季狡盐酸： Asc(string) 返回值: Integer返回字符串中第一个字符的字符代码.提示: Chr 函数可以将一个Ascii码转换为相对应的字符
巨野县13368015117： vb中输入一个ascii字符,输出前导字符和后续字符 - ？
季狡盐酸： 设字符被赋值到i,那i++就是后一个了.i--就是前一个了.按%d输出就是ascii码,按%c输出就是字符了. char i; getchar(＂输入字符＂,&i); printf(＂%c %c %c＂,i--,i,i++); printf(＂%d %d %d＂,i--,i,i++).
巨野县13368015117： VB中如何快速将一组一维数组(Byte 类型)转为字符串 - ？
季狡盐酸： Private Sub Command1_Click() a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) Text1.Text = ＂＂ For i = LBound(a) To UBound(a) Text1.Text = Text1.Text & a(i) & ＂ ＂ Next i End Sub
