說明:
lstrlen 函式可回傳字串的長度
引用函式庫:
Kernel32
適用系統:
Windows NT 3.1 或 Windows 95以上
函式原型:
Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" ( _ ByVal lpString As String _ ) As Long
參數型態及說明:
lpString:String 要計算長度的字串
回傳值:
Long 若呼叫成功的話,將會回傳字串的長度;若 lpString 是 NULL 的話,則回傳 0
.NET Framework API:
System.String.Length
VB範例:
檢視原始碼 Visual Basic
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 'VB的宣告 Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" ( _ ByVal lpString As String _ ) As Long '宣告一個String Dim str As String str = "我的 Windows API" Dim rtvl As Long '取得str的字元數 rtvl = lstrlen(str) |
RB範例:
檢視原始碼 REALBasic
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 'RB的宣告 Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" ( _ lpString2 As CString _ ) As Integer '宣告一個String Dim str As String str = "我的 Windows API" Dim rtvl As Integer '把Windwos API複製到str中 rtvl = lstrlen(str) |
VB.NET範例:
檢視原始碼 VB.NET
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | 'VB.NET的宣告 <DllImport("kernel32.dll")> _ Shared Function lstrlen( _ ByVal lpString As String _ ) As Integer End Function '宣告一個String Dim str As String str = "我的 Windows API" Dim rtvl As Integer '取得str的字元數 rtvl = lstrlen(str) |
C#範例:
檢視原始碼 C#
1 2 3 4 5 6 7 8 9 10 11 12 13 | //C#的宣告 [DllImport("kernel32")] public static extern int lstrlen( string lpString ); //宣告一個string string str = "我的 Windows API"; int rtvl; //取得str的字元數 rtvl = lstrlen(str); |
註釋:
ANSI 版的會回傳 Bytes 數;而 Unicode 版的會回傳 Characters 數。另外,在 RB 中,一個中文字都會計算為 3 Bytes 耶!