Страница 1 из 1
Текстовый файл и перенос строк
Добавлено: 17 авг 2010, 15:59
Qwe1
Считываю информацию из текстового файла: одна строка - одна переменная (или один элемент массива). Как в этот файл записать (можно вручную) символы переноса строк, чтобы потом с помощью оператора Note на экране вывелось бы с переносами? Пробую, например, так, но не получается: выводит все как есть. Строка файла выглядит так:
Код: Выделить всё
<...>
"Данные" + Chr$(10) + "из файла"
<...>
Re: Текстовый файл и перенос строк
Добавлено: 17 авг 2010, 16:51
reasonat
а как вы передаете текст команде Note?
note "Данные" + Chr$(10) + "из файла" - выводит как надо.
Run Command command_str , где command_str = "Note " + str_array(i) + Chr$(10) /собрана из массива строк, только кавычки правильно расставить надо/ - тоже должна работать.
Re: Текстовый файл и перенос строк
Добавлено: 18 авг 2010, 07:57
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)", без переноса.
Re: Текстовый файл и перенос строк
Добавлено: 20 авг 2010, 13:20
zimirrr
то есть вам надо ЗАПИСАТЬ В ФАЙЛ? для записи в файл надо использовть Write #, Put или Print # (файл должен быть открыт в режиме доступа)
из вашего вопроса вы хотите записать символы переноса строк...куда именно вам надо их записывать?
Re: Текстовый файл и перенос строк
Добавлено: 23 авг 2010, 08:34
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