VB6 把 清华大学 转换成汉字的代码

msgbox unicodeTO("清华大学")
'清华大学

Function unicodeTO(str)
Dim Ucode , i , fen
fen = Split(str, "\u")
For i = 1 To UBound(fen)
unicodeTO = unicodeTO & ChrW(CInt("&H" & fen(i)))
Next
End Function

可以试下自己写转换的函数,给你点参考资料

转自新帆新闻组:
第一步：用二进制法读入文本数据，赋值给字节型数组，并判断前3个字
节是否UTF－8标记，如果是，才进行以下的处理
第二步：逐个字节判断是否汉字编码，如果是，就再提取后两个数组元
素，共三个数组元素来加以处理
第三步：将这三个数据都转换成16进制数据
第四步：将三个16进制数据都转换成二进制数据
第五步：从第一个二进制数据中去掉前4位，从第二、三个二进制数据
中分别去掉前2位，并将这三个处理后的二进制数据依次连接，成为一
个16位的字串
第六步：从这个二进制串中分别提取前8位和后8位转换成两个10进制
数据，这两个数据就是汉字的Unicode码了，将它们赋值给一个字符型
变量即可

回答补充： 用Chr()函数把ascii码转化成汉字
用ChrW()函数把Unicode码转化成汉字

（还有之前说的
AscW()函数返回值为负的时候，应加上65536 才得到汉字实际的Unicode码）

----------------------------------------------------------------------------------------

求汉字的Unicode代码 用AscW()函数
AscW("汉")=27721

求汉字的ASCII码 用Asc()函数 返回一个负数值
如Asc("汉")=-17734

PS:PS:改进了下 可转化多个汉字
在窗体上建三个text控件，
功能：text1中按个输入汉字后 text2中按个显示汉字的Unicode代码 text3中显示汉字的ASCII码

原代码如下：

Private Function change(s As String) As String
change = AscW(s)
If change < 0 Then
change = change + 65536
End If
End Function

Private Function change2(s As String) As String
change2 = Asc(s)
End Function

Private Sub Text1_Change()
For i = 1 To Len(Text1.Text)
s = s & change(Mid(Text1.Text, i, 1)) & " "
Next
Text2.Text = s

s = ""
For i = 1 To Len(Text1.Text)
s = s & change2(Mid(Text1.Text, i, 1)) & " "
Next
Text3.Text = s
End Sub

补充：a 的ASCII码是97
Asc函数返回的是字符串首字母的ASCII码（如字符串只一个字符，即返回该字符的ASCII码）

Asc 函数

返回一个 Integer，代表字符串中首字母的字符代码。

语法

Asc(string)

必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。

PSPS: VB里 目前我还没找到能将之转换成 把汉字转换成西欧文编码的函数 不敢断言没有（有估计也很难找 我搜了好多关键字都没找到）

还有 不只是遨游浏览器，一般的IE浏览器 也有此功能

查看——编码——其他——最下面那小三角号——西欧(ISO)

vb 如何将此字符(编码)转换成汉字? 字符编码:\大\华 。请提供vb...
Asc 函数 返回一个 Integer，代表字符串中首字母的字符代码。语法 Asc(string)必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。PSPS: VB里 目前我还没找到能将之转换成 把汉字转换成西欧文编码的函数 不敢断言没有（有估计也很难找 我搜了好...

电脑中文化和英文字母如何查询电脑键盘上哪个键是中英文切换的_百度...
数字、标点、运算符等)编码字符的编码采用国际通用的ASCII码(American Standard Code for Information Interchange,美国信息交换标准代码),每个ASCII码以1个字节(Byte)储存,从0到数字127代表不同的常用符号,例如大写A的ASCII码是65,小写a则是97。

(如图所示)如何将Word里面的中英文互换位置?
第一步：将所有英文字母的字体颜色都改成统一一种颜色，比如红色。其目的是为了跟中文区分开，具体步骤如下：光标定位在“查找内容”，单击下面特殊格式按钮，单击“任意字母”；如图。2.光标定位在“替换为”，单击下面特殊格式按钮，单击“查找内容”；如图。3.保持光标在“替换为”，单击上图中的“格...

python汉字占多少字节数(2023年最新分享)
在计算机内存中,统一使用Unicode编码,当需要保存到硬盘或者需要传输的时候,就转换为UTF-8编码。 用记事本编辑的时候,从文件读取的UTF-8字符被转换为Unicode字符到内存里,编辑完成后,保存的时候再把Unicode转换为UTF-8保存到文件: 浏览网页的时候,服务器会把动态生成的Unicode内容转换为UTF-8再传输到浏览器: 所以你...

VB中如何将汉字转换为Unicode代码?
返回一个 Integer，代表字符串中首字母的字符代码。语法 Asc(string)必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。PSPS: VB里 目前我还没找到能将之转换成 把汉字转换成西欧文编码的函数 不敢断言没有（有估计也很难找 我搜了好多关键字都...

python中文字符占多少字节(2023年最新整理)
?'汉'.encode('GBK') b'\\xba\\xba'python3字符串都是什么编码 编码 字符串是一种数据类型,但是,字符串比较特殊的是还有一个编码问题。 因为计算机只能处理数字,如果要处理文本,就必须先把文本转换为数字才能处理。最早的计算机在设计时采用8个比特(bit)作为一个字节(byte),所以,一个字节能表示的最大的整数就...

django怎么变成汉语(2023年最新分享)
PYO要转换成PY文件,汉化完之后,再转换回来 在线utf-8转换:在线反编译pyo:(也可以使用上面提到的命令行工具;两种方法都是可以的) 注意输出的版本号信息(反编译在线或使用相关的命令行工具等),这个很重要,不然就会有以上问题 C:\\Python27\\python.exe-O-mpy_compileC:\\U\\prefs2.py 搜索字符串时要注意_字母,相当...

excel 如何将A列中的某一个字替换成B列中对应的内容
1.A列中，不同的字如果不在同一位置，需要增加一个被替换的列，即“好”“汉”“歌”要单独放在一列中 2.A列中，不同的字如果在同一个位置，比如都在字符串的第三个字符（仅一个字或字数一样，位置相同）以上两个条件如果没有一个合适，就没办法做到，包括用VBA ...

excel公式技巧比较字符串中的字符
转换为：ROW(A1:A7)得到：{1;2;3;4;5;6;7} 现在，大多数解决方案在这里所做的就是首先将此数组传递给MID函数作为其参数start_num的值：MID(A2,{1;2;3;4;5;6;7},1)转换为：{“A”;”A”;”B”;”B”;”C”;”C”;”C”} 然后，使用下面的数组执行类似运算：{2;3;4;5;6;...

在计算机中,若内存连续的8个字节中存放有文本信息?
选b。8个字节，西文字符一个字节代表一个字符。汉字有可能是两个字符代表一个汉字，但是汉字编码第一个字节是负数，所以排除，选b