1、Len函数

Len函数，其主要返回字符串内字符的数目，而非返回字节数。大家知道通常中文字符（含中文标点符号）通常占两个字节，如果字符串包含中文字符，一些要精确到字节数的情况下，用Len函数就不能达到效果。

    见演示实例，因之前字义字符串中出现中文字符，后面As关键字无法对齐（如下图）：

 

2、lstrLen函数

         lstrLen 函数是 API 函数，返回字符串或文本中所有字符字节数，其中如有中文字符（含中文标点），每个字符将以两个字节进行计数。

 

'字符字节数API函数

Private Declare Function lstrLen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

 
       见演示实例，利用该函数，后面As关键字则对齐（如下图）

 

3、TextInCharNum自定义函数

    利用上述两个函数，自定义了TextInCharNum函数，可以很方便获得字符串或文本中的中文字符数（包含中文标点），代码如下：

 

'函数功能：获得文本中的中文字符数

Public Function TextInCharNum(strText As String) As Integer

    TextInCharNum = lstrLen(strText) - Len(strText)

End Function

演示实例样本：点击下载此附件