Текстовый файл и перенос строк

[Qwe1]

Считываю информацию из текстового файла: одна строка - одна переменная (или один элемент массива). Как в этот файл записать (можно вручную) символы переноса строк, чтобы потом с помощью оператора Note на экране вывелось бы с переносами? Пробую, например, так, но не получается: выводит все как есть. Строка файла выглядит так:

Код: Выделить всё

<...>
"Данные" + Chr$(10) + "из файла"
<...>

[reasonat]

а как вы передаете текст команде Note?
note "Данные" + Chr$(10) + "из файла" - выводит как надо.
Run Command command_str , где command_str = "Note " + str_array(i) + Chr$(10) /собрана из массива строк, только кавычки правильно расставить надо/ - тоже должна работать.

[Qwe1]

Данные читаю и вывожу так:

Код: Выделить всё

Dim str As String

Open File ApplicationDirectory$() + "myfile.txt" For Input As #1 CharSet "WindowsCyrillic"
Do While Not EOF(1)
	Line Input #1, str
	Note str
Loop

И Note выводит строку как она есть в файле, то есть с "Chr$(10)", без переноса.

[zimirrr]

то есть вам надо ЗАПИСАТЬ В ФАЙЛ? для записи в файл надо использовть Write #, Put или Print # (файл должен быть открыт в режиме доступа)
из вашего вопроса вы хотите записать символы переноса строк...куда именно вам надо их записывать?

[Qwe1]

Почему записать? Мне надо считать из файла. В итоге сделал так: для того, кто заполняет текстовый файл ввел условие: символ "#" - символ переноса строк, перед выводом строки на экран (или для иных целей) заменяю все вхождения "#" на "Chr$(10)". Это немного замедляет работу, но в целом - неплохо работает.

Код: Выделить всё

Dim str As String

Open File ApplicationDirectory$() + "myfile.txt" For Input As #1 CharSet "WindowsCyrillic"
Do While Not EOF(1)
	Line Input #1, str
	Note ReplaceSharpToNewLine(str)
Loop
Close File #1