本工具是Unicode编码转换，为您提供ASCII与Unicode互转，Unicode与中文互转，在文本框里输入要转换的内容，然后点击要转换的类型按钮，转换完成后即可看到对应的内容。
配色/在线汉字02-2502-25
02-2502-25
02-2502-25
@ 适新素材网
@ 版权所有请问如何将字符转换成汉字？_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：98,626贴子：
请问如何将字符转换成汉字？收藏
快试试吧，可以对自己使用挽尊卡咯~◆◆
我用
str1=&你好&
Open&file2&For&Binary&As&#2
Put&#2,&1,&str1
close&#2
请问我要从file2中将&你好&提取出来，怎样提取？
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
你用put能提取出东西？
应该是先Get到数组
到strconv
快试试吧，可以对自己使用挽尊卡咯~◆◆
是的，我用get将上面的文件取出到数组后，如何处理能将数组转换为汉字？
For&i&=&1&To&51
Get&#2,&i,&cj(i)
Next&i
close&#2
请问如何处理cj(i)??
非常感谢大牛们！！
不是说k嘛
StrConv(cj(1),&vbUnicode)
快试试吧，可以对自己使用挽尊卡咯~◆◆
OK了，谢谢大牛们！
快试试吧，可以对自己使用挽尊卡咯~◆◆
谢谢lionking1990老弟！
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或1514人阅读
ASP/ ASP.NET（57）
&目标： 简单的来说就是把一个字符串转换成拼音字符串
汉字转换成拼音 其他的字符不做变化。
起先 我有一个js版的转换版本 里面要用到一个vb的系统函数
为什么 要用到这个函数呢！我查了好多资料 这个函数能够准确地返回字符码。js中没有该功能的函数，用户想要使用必须自己编写代码，在c#可以用char 和int类型来转换，但对于中文字符无法转换，、
vbclass.dll就是
我们 不想只在客户端使用该功能 并且想使用在vc#项目中，我该怎么办呢？
我想到了这样一中解决办法
： 先把程序改写成vb版的。然后把vb代码编译成dll文件
再将dll文件引用到vc#项目当中
结果发现 无法正确将vb代码编译成dll.my 办法的情况下
我就在项目中新建了一个vb项目，引用到项目中，
输入代码成功
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：390966次
积分：5008
积分：5008
排名：第4532名
原创：118篇
转载：59篇
评论：127条
(2)(1)(9)(1)(1)(2)(1)(1)(1)(2)(2)(2)(1)(3)(3)(1)(3)(2)(1)(1)(1)(1)(1)(1)(1)(1)(2)(9)(1)(3)(1)(4)(1)(1)(2)(1)(3)(1)(1)(6)(1)(6)(2)(3)(1)(1)(1)(4)(1)(1)(3)(1)(5)(8)(4)(2)(3)(1)(1)(2)(6)(3)(9)(6)(5)(1)(1)(8)(6)(1)VB中怎样将一个字符串一个字符一个字符的比较？VB中怎样将一个字符串一个字符一个字符的比较？VB中好像不能用字符数组，只能用字符串数组！故而在下不能进行单个字符的比较？麻烦各位大侠给小弟指点迷津！
回答1：探讨...... VB中好像不能用字符数组，.....
回答2：Mid 函数示例本示例使用 Mid 语句来得到某个字符串中的几个字符。Dim MyString, FirstWord, LastWord, MidWordsMyString = &Mid Function Demo&
建立一个字符串。FirstWord = Mid(MyString, 1, 3)
' 返回 &Mid&。LastWord = Mid(MyString, 14, 4)
' 返回 &Demo&。MidWords = Mid(MyString, 5)
' 返回 &Funcion Demo&。
回答3：可以使用API函数来实现，参见如下例子：　　VB code　　Option Explicit
Private Declare Function MessageBox Lib &user32& Alias &MessageBoxA& (ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As Long) As Long
Private Declare Sub CopyMemory Lib &kernel32& Alias &RtlMoveMemory& (pDest As Any, pSrc As Any, _
ByVal ByteLen As Long)
Private Sub Command1_Click()
Dim strOne As String
Dim strTwo As String
Dim lngADDstrOne As Long
'字符串1的地址
Dim lngADDstrTwo As Long
'字符串2的地址
Dim byteOne As Byte
Dim byteTwo As Byte
Dim bolExit As Boolean
'退出比较循环的标志
Dim intP As Integer
On Error GoTo errSub
strOne = Text1.Text
strTwo = Text2.Text
If strOne = && Or strTwo = && Then Exit Sub
If Len(strOne) $<$ Len(strTwo) Then
MessageBox hwnd, &字符串长度不一致！&, &系统提示&, vbOKOnly + vbExclamation
'开始按字节逐一比较字符串
'比如：字符串：123在内存中的存储形式时：49 00 50 00 51 00 所以读取奇数位置的字符比较
lngADDstrOne = StrPtr(strOne)
'读取字符串1的地址
lngADDstrTwo = StrPtr(strTwo)
'读取字符串2的地址
CopyMemory ByVal VarPtr(byteOne), ByVal (lngADDstrOne + intP), 1
CopyMemory ByVal VarPtr(byteTwo), ByVal (lngADDstrTwo + intP), 1
If (byteOne $<$ byteTwo) Then
bolExit = True
intP = intP + 2
Loop Until bolExit Or (intP \ 2 & Len(strOne))
If bolExit Then
MessageBox hwnd, &字符串内容不一致！&, &系统提示&, vbOKOnly + vbExclamation
MessageBox hwnd, &字符串内容一致！&, &系统提示&, vbOKOnly + vbExclamation
Private Sub Form_Load()
Text1.Text = &&
Text2.Text = &&
Command1.Caption = &按字节比较字符串&
yangjie191191
回答4：VB的确没有提供对字符串中字符的直接操作方法,也有高人找到了把字符串当做数组进行操作的方法,详见$$一书.不过也有一种变通的方法.即把字符串分给字节数组.利用字节数组进行比较.不过要注意,VB中字符采用Unicode编码,为两个字节.因为在数组中每两个元素代表一个字符.
yangjie123
回答5：Visual Basic高级编程：VB的字符串时UniCode格式的，每一个字符占用2个字节，所以使用数组来存储字符串的话，每个字符的高位必须是：&H00，比如：A，在内存中的存储如此：&H00 &H40可以使用StrPtr函数来获得字符串的首地址、VarPtr获得变量的地址；CopyMemory函数可以通过地址来读取或写内存。
yangjie191191
回答6：使用数组进行字符串比较的源码，呵呵。
yangjie0825
回答7：提供一个思路给你：每次敲键盘的时候都会产生一个键盘事件，取键盘的ASC码，与正确的字符ASC码进行比较就行了。
yangjie_0823
回答8：一个个取出来比较mid(str,i,1)
yangjie123}