vb6获取字符串长度

用过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时的长度，并且速度很快