Объединение двух длинных строк

[aaaSashaMGGU]

Добрый день!
Хочу объединить две строки
Первая Str1: WSTRING(32000), вторая Str2: WSTRING(32000)
Обычный WCONCAT нельзя, т.к., там ограничение в 255

STU.StrConcatW(ADR(Str1), ADR(Str2), SIZEOF(Str2)) тоже нельзя, т.к., значение буфера SIZEOF не должно превышать тип INT 16384

Натыкался на идеи через указатели, но, может, есть у кого готовая проверенная временем функция?
Спасибо!

Отвечу заранее на вопрос "Зачем так много?": это нужно для формирования текстового файла-отчёта будущей длиной ~17кб

[Евгений Кислов]

Добрый день.
Если хочется "простых" решений - то в MemoryUtils есть функция MemCpy.
https://content.helpme-codesys.com/e...ns/MemCpy.html

[Cs-Cs]

Отвечу заранее на вопрос "Зачем так много?": это нужно для формирования текстового файла-отчёта будущей длиной ~17кб

А по строкам или по частям нельзя в файл писать?
Или вместо строк вообще использовать буфер из массива байт?

[aaaSashaMGGU]

Добрый день.
Если хочется "простых" решений - то в MemoryUtils есть функция MemCpy.
https://content.helpme-codesys.com/e...ns/MemCpy.html

Спасибо, будем смотреть

[aaaSashaMGGU]

А по строкам или по частям нельзя в файл писать?
Или вместо строк вообще использовать буфер из массива байт?

Так уж работает моя (пока ещё ненаписанная) программа. Сначала формируем длинную строку с текстом будущего письма, затем отправляем её в блок отправки Email-письма для дальнейшей обработки и отправки
Уже на этапе формирования в основном коде там будет ~17000 символов. Без наличия нормальной функции объединения уже и в основном коде никак
А там, где отправка письма - там да, там файл можно писать по строкам, конечно. Но и в этом случае, думаю, это не очень хорошо - дёргать жёсткий диск на запись десяти символов по сто раз. Уж про скорость всего этого отдельный вопрос

[Cs-Cs]

Тогда сделай вместо строки байтовый буфер. Ты сможешь туда копировать строки и набирать длинный буфер.

[aaaSashaMGGU]

На коленке получилось вот так:

FUNCTION SuperWConcat : BOOL //Объединение двух мега-строк в одну
VAR_INPUT
	Address1: POINTER TO BYTE;
	Address2: POINTER TO BYTE;
	Address3: POINTER TO BYTE;
	Len1: DWORD;
	Len2: DWORD;
END_VAR

//Присваиваем
Memutils.MemCpy(Address3,            Address1, Len1 * 2);
Memutils.MemCpy(Address3 + Len1 * 2, Address2, Len2 * 2);

//Бесполезный выход функции
SuperWConcat := FALSE;

Основной код для вызова:

PROGRAM qqq2
VAR
	aaa1: WSTRING(64000) := "qwerty123";
	aaa2: WSTRING(64000) := "йцукен456";
	aaa3: WSTRING(64000) := "";
	
	Temp : BOOL := FALSE;
END_VAR

Temp := SuperWConcat(ADR(aaa1), ADR(aaa2), ADR(aaa3), STU.StrLenW(ADR(aaa1)), STU.StrLenW(ADR(aaa2)));

В бою ещё не проверял, будем тестить
Всем спасибо

[aaaSashaMGGU]

Хотя, чего-то я сделал не то
В моём случае мне надо не объединять две строки в третью. А надо приписывать вторую в хвост к первой. Тогда всё работает вообще в одну строку даже без новой функции

PROGRAM qqq3
VAR
aaa1: WSTRING(64000) := "qwerty123";
aaa2: WSTRING(64000) := "йцукен456";
	
Temp : BOOL := FALSE;
END_VAR

IF Temp = TRUE THEN
Memutils.MemCpy(ADR(aaa1) + TO_DWORD(STU.StrLenW(ADR(aaa1))) * 2, ADR(aaa2), STU.StrLenW(ADR(aaa2)) * 2);
Temp := FALSE;
END_IF

[Cs-Cs]

Ты не забудь, что в конце готовой строки должен быть нулевой символ (два байта с кодом 0x00).
Возможно, его стоит явно добавлять в конец.

[Валенок]

,,,,,,,,,,,,,,,,,,,,