用什么函数可以取得一个字符串的字节数？

2004-10-05 06:53:38 574 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

T100服务端接口实战：从注册到日志排查的全链路开发指南本文提供了一份T100服务端接口开发的全链路实战指南。从程序注册与框架签出开始，详细讲解了接口的数据结构设计、核心业务逻辑编写，到最终的部署上线与调用验证。文章重点分享了如何利用日志文件高效定位和排查接口问题，帮助开发者快速掌握T100接口开发的关键步骤与实用技巧。阅读详情

用什么函数可以取得一个字符串的字节数？
RT

...全文

最终篇——SWAT模型的建立同理，Soil Data也是同样的方法导入，在Soil Database Options的选项中，选择UserSiol，用同样的方法导入土壤类型，进行重分类。打开窗口后，只定义HRU Thresholdes，其余两个不用设置，设定各数据单元的计算率，这里的10%的意思是计算精度，即分成级HRU计算单元太小，小于平均计算单元的10%，我们就不对这HRU单元进行计算（也就是说太破碎的计算单元不进行计算），若选择0%意味着全部进行计算，需要耗费大量的内存和时间，对计算机要求较高，不建议。阅读详情

LiaoCheng

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

rainstormmaster 2004-10-06

打赏
举报

用过VB5.0或者更早版本的读者应该知道VB有一个测试字符串长度的函数: Len。但当你升级到VB6时，会发现这里的Len并没有以前那么好用了——它变成了测试字符个数而不是字符串长度。就是说，当你用以前版本的VB执行Len("字符abc")时，返回值是7，因为中文字符每个有2个字节，所以总共有7个字节；而在VB6中执行，返回值是5。
　　VB6不再有一个直接计算出字符串总字节数的函数了，因为VB6内部已经把字符串转换成了Unicode——一种比ANSI更新的字符编码方式。

　　Unicode把每一个字，无论是中文还是其他文字都当成两个字节，如果是英文，则这两个字节中第二个字节保留着不使用，如果是双字节字符（如中文，双字节日文以及韩文），而由这两个字节的组合表示一个字符。所以Len可以方便地知道一共有多少个双字节字符，多少个单字节字符，也就出现了上面所说的情况。
　　不过既然VB内部把ANSI字符转换成Unicode，那么它一定有对应方法转换回来。所以这里提供一个比较方便的方法来得到总字节数: LenB(StrConv("字符abc", vbFromUnicode))。
这里用到了一个LenB() 函数，你可以自己试试它，比如 LenB("字符")、LenB("abc")、LenB("字符abc")，会发现返回值分别是4、6和10。
　　为什么是4、6和10呢？
　　我说过VB内部把ANSI字符转换为Unicode，每个Unicode字符用2个字节来表示，所以，LenB() 的作用是返回字符串的实际字节数。但是，这个实际字节数已经不是我所输入的字符串的，而是被VB转换过的（我们无法让VB函数在转换之前先算好长度），所以我们需要先把字符串转换回来，使用的是 StrConv() 函数。
　　对于这个函数我不想太过详细解释它（一般应用中比较少用），你可以参考MSDN，我只提一提它的第二个参数：vbFromUnicode。

　　StrConv()函数的第二个函数指定转换的类型，vbFromUnicode 指定把字符串从Unicode转换回来，如果是vbUnicode，则把字符串转换为Unicode。注意，虽然你的程序中写的是ANSI的字符而不是Unicode字符，但当这个函数执行时，它得到的却是已经被转换成为Unicode的字符串了。
　　现在问题可以算解决了，但我们还需要另一个解决方法，因为这种方法太费时。想想看，每一次算长度都要进行 Unicode->ANSI 的转换，这将会花费太多时间。对少量字符还可以，对长字符串，时间就变得更长了。
　　所以我们再讲一个API：lstrlen。

Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

　　以上是lstrlen的声明。lstrlen的作用只有一个：
　　得到以chr(0)为结尾的字符串的字节数。所以执行 lstrlen("字符abc"+chr(0)) 将返回7。我们不需要知道它内部是如何工作的，但它总是返回该字符串是ANSI时的长度，并且速度很快

chenyu5188 2004-10-06

打赏
举报

lenB()

haohaohappy 2004-10-06

打赏
举报

lenb不是可以嘛

xieyangf 2004-10-06

打赏
举报

用LenB()函数

ryuginka 2004-10-06

打赏
举报

LenB()函数

LiaoCheng 2004-10-06

打赏
举报

to: rainstormmaster(暴风雨 v2.0) ( ) 信誉：228

你的回答太精彩了!!我喜欢!!

BlueBeer 2004-10-05

打赏
举报

Len("ABC测试") = 5
LenB("ABC测试") = 10
LenB(StrConv("ABC测试", vbFromUnicode)) = 7

xiuyuan 2004-10-05

打赏
举报

用lenb()函数在6.0和5.0版本中得到的结果是不一样的

rainstormmaster 2004-10-05

打赏
举报

用lenb：
Dim s As String
s = "CSDN中国最大"
MsgBox LenB(StrConv(s, vbFromUnicode))

dongge2000 2004-10-05

打赏
举报

dim s as string
s="CSDN中国最大"
me.print len(strconv(s,vbfromunicode)

laviewpbt 2004-10-05

打赏
举报

len()函数
Private Sub Form_Load()
Dim str As String
str = "你好!you wish is my command!"
MsgBox Len(str)
End Sub

dongge2000 2004-10-05

打赏
举报

用什么函数可以取得一个字符串的字节数？

相关推荐