测字符串大小函数

Question

VB中有没有专门测字符串大小的函数？

Answer 1

如果检测大小写：Function IsUpperCase(a As String) As Boolean
    If (a = UCase(a)) Then
        IsUpperCase = True
    Else
        IsUpperCase = False
    End If
End FunctionFunction IsLowerCase(a As String) As Boolean
    If (a = LCase(a)) Then
        IsLowerCase = True
    Else
        IsLowerCase = False
    End If
End Function
Private Sub Form_Load()
    Dim a As String
    Dim b As String
    
    a = "cb"
    b = "AB"
    
    Debug.Print IsUpperCase(a)
    Debug.Print IsLowerCase(a)
    Debug.Print IsUpperCase(b)
End Sub

Answer 2

如果是说字串长度的话,用len lenb结合strconv可以解决大多数的问题

Answer 3

Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long'输入字符串，返回字符串的大小，单位：（KB）
Function CalcSize(ByVal strIn As String) As Single
    Dim ret As Single
    If strIn <> "" Then
     lstrlen (strIn)
       ret = lstrlen(strIn) / 1024
    End If
    CalcSize = ret
End FunctionPrivate Sub Command1_Click()
    MsgBox "计算结果为：" & FormatNumber(CalcSize("唐细刚"), 8) & " KB"
End Sub
'如果要返回M为单位，再除以 1024 即可

Answer 4

Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long'输入字符串，返回字符串的大小，单位：（KB）
Function CalcSize(ByVal strIn As String) As Single
    Dim ret As Single
    If strIn <> "" Then
       ret = lstrlen(strIn) / 1024
    End If
    CalcSize = ret
End FunctionPrivate Sub Command1_Click()
    MsgBox "计算结果为：" & FormatNumber(CalcSize("唐细刚"), 8) & " KB"
End Sub
'如果要返回M为单位，再除以 1024 即可

Answer 5

楼主的要求是：
“想知道它有几K或几M”暴风雨 v2.0 没有理解楼主的意思暴风雨 只是提供了字节计算长度的方法，可惜楼主菜鸟一个，不会除以 1024