请教怎么取一个字符串所占的字节?

Question

请教怎么取一个字符串所占的字节?比如我有一个"ADGFA哈哈后达到2342",怎么得到它所占字节?

Answer 1

LenB("ADGFA哈哈后达到2342")这样OK了！！！

Answer 2

Private Sub Command1_Click()
  Dim x As String
  x = "abc你好呀"
  Debug.Print Len(x)
  Debug.Print LenB(x)
  Debug.Print Len(StrConv(x, vbFromUnicode))
  Debug.Print LenB(StrConv(x, vbFromUnicode))
  
End Sub

Answer 3

如果想计算 ANSI 格式的长度，用
Lenb(strconv("ADGFA哈哈后达到2342",vbfromunicode))

Answer 4

Option ExplicitPrivate Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As LongPrivate Sub Command1_Click()
    MsgBox lstrlen("ADGFA哈哈后达到2342")
End Sub