Функция lstrcpyn

Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynA" (ByVal lpString1 As Any, _
    ByVal lpString2 As Any, ByVal iMaxLength As Long) As Long

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

В случае ошибки функция возвращает 0. В успешном случае функция возвращает указатель на буфер

lpString1

Буфер, куда копируется строка lpString2

lpString2

Строка-источник

iMaxLength

Число копируемых символов из строки lpString2 в lpString1, включая завершающий нулевой символ (Например, значение 4 скопирует 3 символа + нулевой символ)

Пример

' Копируем одну строку в другую
Dim source As String, target As String
Dim retval As Long  ' возвращаемое значение

source = "Русский_Проект!"
target = Space(8)  ' создаем место для буфера
retval = lstrcpyn(target, source, 6)
target = Left(target, Len(target) - 1) ' удаляем завершающий нулевой символ
Print "Строка-источник: "; source
Print "Созданная строка: "; target

Смотри также

Категория