Excel VBA: Как пройти строку как указатель на процедуру, чтобы добавить строку?
Вопрос
Я хочу пройти строку как параметр в / выделении к процедуре.Я знаю, что это не так, как VBA обычно работает, но это из-за особого случая.У меня уже есть уже существующий инструмент генератора кода - генерирующий код для анализа формата формата файла.И я не хочу взломать этот код.Сгенерированный синтаксис может быть легко конвертировать в VBA, используя текст, замените это не большую сделку (я уже сделал это уже).Но трудно изменить ProdEdures к функциям.
Что я понял, это то, как я могу продлить строку, передавая его указатель.Но как я могу добавить персонажей в строку?
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" (Destination As Any, Source As Any, _
ByVal length As Long)
Private Declare Function lstrlenA Lib "kernel32" _
(ByVal lpString As Long) As Long
Private Declare Function lstrlenW Lib _
"kernel32" (ByVal lpString As Long) As Long
Sub AppendString(i_pt As Long, i_what As String)
Dim strLentgh As Long ' variable to hold the length of string
Dim ptrLengthField As Long ' pointer to 4-byte length field
' get the length of the string
ptrLengthField = i_pt - 4 ' length field is 4 bytes behind
CopyMemory strLentgh, ByVal ptrLengthField, 4
' extend the String length
strLentgh = strLentgh + (Len(i_what) * 2)
CopyMemory ByVal ptrLengthField, strLentgh&, 4
' How to apped the string?
' CopyMemory ByVal i_pt, ????
End Sub
Sub test2()
Dim str As String
Dim sPtr As Long
str = "hello"
sPtr = strPtr(str)
Debug.Print Len(str)
Call AppendString(sPtr, " there")
Debug.Print Len(str)
Debug.Print str
End Sub
. Решение
VBA can do this natively
Sub AppendString(byref str as string, i_what As String)
str = str & i_what
end sub
To test
Sub Test()
Dim s As String
s = "Hello"
AppendString s, " World"
Debug.Print s
End Sub
Не связан с StackOverflow