社区
VB基础类
帖子详情
哪儿找到汉字区位码库?如果用函数将汉字转换成区位码?
lifredjian
2003-08-18 11:16:05
哪儿找到汉字区位码库?如果用函数将汉字转换成区位码?
国标汉字Unicode码最小值与最大值是多少?
谢谢答复。100分高分酬谢!!!!!!!!!!!
...全文
68
2
打赏
收藏
哪儿找到汉字区位码库?如果用函数将汉字转换成区位码?
哪儿找到汉字区位码库?如果用函数将汉字转换成区位码? 国标汉字Unicode码最小值与最大值是多少? 谢谢答复。100分高分酬谢!!!!!!!!!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zyl910
2003-08-19
打赏
举报
回复
楼上的效率太低
Dim Char as Integer
Char=Abc("汉")
区=(Char And &HFF)-160
位=((Char and &H7F00)\&H100 or ((Char and &H8000)<>0)and &H80)-160
胖河马
2003-08-19
打赏
举报
回复
取区位码
Public Function GetQW(ByVal Char As String)
Dim tmp As String
Dim h As String
Dim l As String
tmp = Hex(Asc(Char))
h = Format(Val("&H" & Left(tmp, 2)) - 160, "00")
l = Format(Val("&H" & Right(tmp, 2)) - 160, "00")
GetQW = h & l
End Function
区码从01-87,位码从01-94,下面的代码可以根据区位吗转换成汉字,你做个循环就能得到区位码表
Dim bBuf(1) As Byte
bBuf(0) = 68 + 160 '将区吗加160
bBuf(1) = 76 + 160 '将位吗加160
MsgBox StrConv(bBuf, vbUnicode)
汉字
转换成
区位码
源代码
pb做的
函数
,实现
汉字
转换成
区位码
。 用法gf_quweima("
汉字
"),返回
区位码
,可以控制
汉字
之间有没有空格。
大华条码秤
区位码
转换js代码样例
大华条码秤传称时,商品名称需要转化为
区位码
,此代码为javascript代码,可以把中文英文字母标点符号等转化为大华条码秤所需要的
区位码
格式,压缩包内index.html可直接双击本地运行体验,把需要转换的字符串输入以后...
ArcGIS在国土空间·城乡规划中的实战应用
excel中161个VBA_自定义
函数
超级实用
函数
作用:查
汉字
区位码
.............................20 '11.
函数
作用:把公元年转为农历.........................21 '12.
函数
作用:返回指定列数的列标.......................42 '13.
函数
作用:用指定字符替换某字符...
VB Val与
汉字
的相互转化.rar
VB 数字与字符串的相互转换(
汉字
区位码
与
汉字
的相互转化)的例子,主要是使用Val
函数
来实现转换功能,Val的用法很简单,如Text4.Text = Val(Text3),将此行代码添加到自定义的按钮事件中即可,当用户单击按钮后,可...
VB基础类
7,765
社区成员
197,605
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章