Перенос строки в текстовой переменной.

[putman]

Здравствуйте.

Снова хочу поднять запрашиваемую мной некогда тему о переносе строки в одной текстовой переменной.
Т.е. чтобы записав эту переменную в TOCLIP, потом вставлять на форум не одной длиннющей строкой, а с переносами на новую.
А то приходится вставлять одну строку, програмно жать ентер для перехода на новую строку, вставлять вторую и так порой до 50-70 строк, что очень долго и неправильно на мой взгляд.

Пробовал писать в файл построчно, в файле всё выглядит как надо, но чтоб из этого файла в буфер забрать текст с переносами, нужно его открыть в блокноте, выделить всё, скопировать по Ctrl + C и только потом вставлять на форум одним разом. Это оказалось даже дольше.

Возможно в новой версии есть такая возможность ? У меня предыдущая или старее, не обновляю, т.к. всё работает стабильно.

[dramster]

Code: (clickermann) [Select]

#define @CR:STRCONCAT(char(13),char(10)) //замена  char(13),char(10)  на @CR для лучшей читаемости


//первый вариант
$long_str = "Длинный текст 1. ;Длинный текст 2. ;Длинный текст 3. ;Длинный текст 4. ;Длинный текст 5. " //перенос строки обозначил символом ";" . можно использовать другой символ.
WHILE(STRPOS($long_str,";")>0)      //заменяем все точки с запятой переносами строки.
   $long_str = STRREPLACE ($long_str, ";", @CR)   
END_CYC
print($long_str)


//второй вариант
$long_str =  STRCONCAT("Длинный текст 1.", @CR,"Длинный текст 2.", @CR,"Длинный текст 3.", @CR,"Длинный текст 4.", @CR,"Длинный текст 5.")
print($long_str)

//третий вариант
//немогу найти, гдето есть с помощью батника перенос содержимого файла в буфер обмена. если найду, отпишу.


halt

Версия км 4.13


Нашел третий вариант - http://crapware.aidf.org/forum/index.php?topic=3784.msg25827#msg25827

[putman]

Не получается, в одну строку выводит.

[dramster]

а куда дел "#define @CR:STRCONCAT(char(13),char(10)) //замена  char(13),char(10)  на @CR для лучшей читаемости"?

[putman]

а куда дел "#define @CR:STRCONCAT(char(13),char(10)) //замена  char(13),char(10)  на @CR для лучшей читаемости"?

Упустил.
Спасибо, работает.