VB如何提取汉字的字节数

本拉灯 2005-05-12 04:06:10

如
“啊”GB编码0xb1a1第一字节0xb1(177)第二字节0xa1(161)
怎么取他的第一字节,与第二字节的

...全文

134 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

shuaishen12 2005-05-12

打赏
举报

回复

dim s as string
s = "啊"
dim byt() as byte
byt = s

'接着操作byt 就可以了

wzzwwz 2005-05-12

打赏
举报

回复

不懂

vb提取查看thumbs.db文件中的图像内容，VB6.0编写开发的Windows XP缩略图缓存文件查看提取工具，把有图片的文件夹中的Thumbs.db拖到下面的列表框中（在资源管理器的文件夹选项设置中要取消“隐藏受保护的系统文件(推荐)”，才可以看到XP的缓存缩略图文件Thumbs.db）。　　实现原理部分需要说明的是：PSC原作者使用String类型来读取，这可能是英文操作系统上可以运行，但是在中文操作系统是错误的，在用 Preserve 关键字时，只能改变多维数组中最后一维的上界；所以，第1维存放数据，范围就是0(缩略图Jpg大小最大不会超过5KB)，第2维根据项目的个数来表示的编号但是不能直接使用数组的形式来返回，必须用传址的方式返回　　还有一种方法，是记录每个图片文件项目的差异的偏移，及插入的非jpg数据块的大校　　因为没有Thumbs.db的详细文件格式资料,无法获取文件的个数现在这个版本有一个问题，会有些文件看不到，因为查看文件内容发现，中间有些Jpg文件很短，只有几百字节，与文件数据前的文件大小不符合,这样就会跳过一个文件，导致漏掉文件。　　增加一个判断，每找到一个标志，跳过文件长度时，先判断该长度的文件尾是不是Jpg的文件尾标志，如果不是则从之前的位置继续搜索。一种情况：就是4位字节文件大小的值，小于实际的文件大小值，这就需要搜索修正在Thumbs.db文件里找到了全部对应文件的文件名，是用Unicode字符存储在里面的,有的是单独的一个，有的是几个连续一起。

VB2008工程代码-加密汉字字符串 Public Function StringEnDeCodecn(ByVal strSource As String, ByVal MA As Long) As String '该函数只对中西文起到加密作用 '参数为：源文件，密码 On Error GoTo ErrEnDeCode Dim X As Single Dim CHARNUM As Long, RANDOMINTEGER As Integer Dim SINGLECHAR As String '* 1 Dim strTmp As String = "" If MA < 0 Then MA = MA * (-1) End If X = Rnd(-MA) For i = 1 To Len(strSource) Step 1 '取单字节内容 SINGLECHAR = Mid(strSource, i, 1) CHARNUM = Asc(SINGLECHAR) g: RANDOMINTEGER = Int(127 * Rnd())

笔者在用access开发询问笔录时，发现access报表的文本框无法将英文单词从中间断行，造成打印时每行字数不同，相当难看。除了将记录导出到word方法外（word要把“允许西文在单词中间换行"勾上），笔者写了一个自定义函数，可将字符按用户指定的字节长度参数分割成等长字符，调用时用test(字符串，字节长度）即可，比如字符为”CSDN是个好网站，大家都喜欢"，现在需要按3个字节分割，结果如下，不足3字节的会用半角空格补齐： CSD N是个好网站另外，由于windows里大部分中文字体不等宽，用户在设置报表字段字体时还需要设置为“幼圆”等宽字体，在此不表。

此软件用来帮助写单片机程序的朋友提取英文及汉字字模。对于英文及数字等用的是计算取点的方式,而汉字取模则是用的取汉字库这个通用方法。程序加上了左旋右旋,ASM与C51字模选择等控制功能,以及圆点方点,各种颜色淘宝网饰品www.cisloo.cn的选择等附加功能。需要VB运行库支持（MSVBVM60.DLL) 1.在文本输入框输入文字，点击取模即可 2.可选择字节倒序，字节倒序是专为一些液晶显示屏与特殊显示屏提供 3.可选择8*16格式，这是为汉字与数字混合显示而提供，如未选中则按默认格式取模 4.选中取模并发送可在取模完毕后直接利用计算机自带串口进行广播方式

多字节、Unicode和UTF8字符串的互换VB技术很实用的源码

7,764

社区成员

197,605

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章