VB中avhsbfvdv字符串的字节长度

1个回答

双份阳光D

专业答主服务有保障

关注

展开全部

摘要确定包含全角和半角字符的字符串长度（VB）

各个版本的VB对汉字字符的长度定义并不相同。在Windows 3.x中，VB3中认为每个汉字的长度为2字节。VB自从32位版本以后，不管中英文字，均以2 bytes来储存，这与中文Win95的汉字内核有关。但是VB4以后，VB认为每个汉字的长度为1。这在处理包含汉字的字符串时带来很多的不便。

由于Len、Left、Mid等字符串函数认为一个汉字和一个西文字符的长度都为1，因此处理汉字字符串时有一定的难度。实现上必须要能把汉字按照两个字符(字节)的形式读出。因此在截取汉字字符串的子串时需特别注意。

由于汉字处理和汉字字模存储的特殊性，在许多情况下我们希望汉字字符的长度为2，英文字符为1。由于VB5和VB6把一个汉字作为一个字符。因此处理汉字时首先必须能正确判断汉字字符串的长度。

在VB3或C++里，汉字的 ASCII码均大于零，而VB5和VB6中汉字的ASCII码小于0。因此通过判断一个未知字符的ASCII码就可以判断该字符是否汉字。

这里我们提供了3种方法来判断汉字字符串的长度。

1、方法1

VB6中提供了LenB函数用于字符串中的字节数据。如同在双字节字符集(DBCS)语言中一样，LenB返回的是用于代表字符串的字节数，而不是返回字符串中字符的数量。如为用户自定义类型，LenB返回在内存中的大小。

LenB(StrConv(Str1，vbFormUnicode))

对要处理的字符串Str1，必须先使用StrConv函数把ANSI格式的Byte数组转换为字符串，否则直接使用LenB函数得到的结果比实际结果大。

2、方法2

这里自定义了一个子函数CLen来计算汉字字符串的实际长度。同时还能判断字符串中汉字的实际个数。

Function CharacterLen(s_str As String) As Integer

Dim i_num As Integer

Dim i_index As Integer

Dim i_len As Integer

i_len = Len(s_str)

For i_index = 1 To i_len

If Asc(Mid(s_str, i_index, 1)) < 0 Then

i_num = i_num + 1

End If

CharacterLen = i_len + i_num

咨询记录 · 回答于2021-11-12