vb高手请进!! 首先判断asc码是否大于128,是的话再读下一位,然后把后一位*256再加上前一位,就可以显示汉字了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 一个迟钝但是可靠的方法:以二进制方式创建一个临时文件,将Byte()写进去,再以Text方式打开它,读到字符串中 hle(老大):你的方法我不知道怎么用,能详细说一下吗?不知道将后一位*256后再把结果放在什么地方?byte()里吗?echofang(回声) :我现在就是这样处理的但是我觉得这样处理太傻了taolei(taolei) :你这样设置一下就可以吗?你能详细解释一下吗? For i = 1 To Len(allstr)str = Mid(allstr, i, 1)int = Asc(str) + 65536If int > 32768 And int < 65536 Thenstr = MidB(allstr, i, 2)i=i+1end ifastr=astr&strnext试试如果不行在midb和mid下点力 hae说的也是一样的道理你只要把Astr &Bstr 就成为一个中文字了 请各位多请教 请问如何用vba编程找到当前sheet中所有的合并单元格,将他们全部拆分并赋值为拆分前的值 vb如何从数据库下载文件?? 很菜的问题:关于msgbox的! 用VB实现遗传算法的演示???对遗传算法熟悉的朋友请讨论!! 运行错误'5',无效的过程调用或参数; vb中有没有像delphi中的notebook这种控件? SOS 如何在VB中转换图片格式? 谁能提供这样的源程序? Combox.List作为数组放入Filter函数,报错“类型不匹配” 关于vb的statusbar控件,我不会,你会就告诉我 vb 朋友请进来看看吧。
以二进制方式创建一个临时文件,将Byte()写进去,
再以Text方式打开它,读到字符串中
echofang(回声) :我现在就是这样处理的但是我觉得这样处理太傻了
taolei(taolei) :你这样设置一下就可以吗?你能详细解释一下吗?
str = Mid(allstr, i, 1)
int = Asc(str) + 65536
If int > 32768 And int < 65536 Then
str = MidB(allstr, i, 2)
i=i+1
end if
astr=astr&str
next
试试
如果不行
在midb和mid下点力 hae说的也是一样的道理
你只要把Astr &Bstr 就成为一个中文字了 请各位多请教