Функция lstrlen

Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Any) As Long
или
Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
для Unicode-функций
Declare Function lstrlenW Lib "kernel32" (lpString As Any) As Long
или
Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long

Функция lstrlen определяет длину строки без завершающего нулевого символа. Удобна при применении с функцией lstrcpy для получения строки из указателя на строку. Функцию lstrlenW иногда приходится применять для некоторых Unicode-функций.

Возвращаемое значение

Функция возвращает длину строки в символах

Параметры

lpString

Указатель на строку

Пример

' Смотри также пример netmanagement.zip

' Вычислим длину строки "Русский_Проект"

Dim slength As Long  ' длина строки

slength = lstrlen("Русский_Проект")
Debug.Print "Строка 'Русский_Проект' содержит"; slength; "символов"

Категория