Простейшие вопросы по текстовым файлам и строкам...

← →
Max.66RUS © (2006-11-12 15:21) [0]

Ситуация такая: есть два текстовых файла "C:/1.txt" и "C:/2.txt". В файле "C:/1.txt" содержится заранее неизвестный текст. Требуется считать текст из файла "C:/1.txt" и дописать его в файл "C:/2.txt". В файле "C:/2.txt" к моменту записи в него текста из "C:/1.txt" уже будет находиться другой текст, поэтому текст из файла "C:/1.txt" нужно дописать после уже имеющегося в файле "C:/2.txt" текста. Приложение без формы, поэтому метод с использованием "Memo1.Lines" не предлагать.

И ещё один вопрос, как можно узнать сколько строк в текстовом файле(Также без использования "Memo1.Lines")?

Заранее спасибо.

← →
KilkennyCat © (2006-11-12 15:25) [1]

дос помним? конкатенацию командой copy?

← →
KilkennyCat © (2006-11-12 15:27) [2]

количество строк равно количеству возвратов каретки. 0D, 0A и сочетание их.

← →
KilkennyCat © (2006-11-12 15:29) [3]

ну и если дос не подходит, то открытие файла без перезаписи - reset().

← →
Джо © (2006-11-12 15:31) [4]

1. Встроенный функции для работы с текстовыми файлами.
2. TFileStream.

Кол-во строк, самое простое: ReadLn и счетчик. Или даже TStringList.Count.

← →
Германн © (2006-11-12 16:04) [5]

> KilkennyCat © (12.11.06 15:29) [3]
>
> ну и если дос не подходит, то открытие файла без перезаписи
> - reset().
>

Append

← →
KilkennyCat © (2006-11-12 16:11) [6]

> [5] Германн © (12.11.06 16:04)

точно. упустил текстовость :)

← →
Max.66RUS © (2006-11-12 16:21) [7]

Всем спасибо. На счёт первых двух вопросов разобрался. Но возник ещё один вопрос:

Например, если я открываю текстовый файл для чтения:

AssignFile(File_1, "C:\1.txt");
Reset(File_1);

То в случае, если файл отсутствует - программа аварийно завершает свою работу. Так вот, как исключить ошибку при отстутствии файла, т.е. программа должна не аварийно завершать работу, а сообщить пользователю об отсутствии файла... Например показать сообщение: ShowMessage("Файл не найден!").

Заранее спасибо.

← →
Германн © (2006-11-12 16:23) [8]

> Max.66RUS © (12.11.06 16:21) [7]

{$I+} {$I-}

← →
Ketmar © (2006-11-12 16:23) [9]

{$I-}, IOResult, F1.

> Приложение без формы, поэтому метод с использованием "Memo1.
> Lines" не предлагать.

И чего всех вас так на мемо зациклило? Имхо его нужно убрать с первой вкладки в палитре! Может тогда для "раскраски" будут сразу брать ричэдит, а для невизуальных целей - TStringList.
:-)

>[10] Германн(c) 12-Nov-2006, 16:26
>будут сразу брать ричэдит, а для невизуальных
>целей - TStringList.
нет. будут писать вопросы типа "раньше там было мемо, а теперь его нет. что делать?!"

Спасибо. Всё получилось.

Простейшие вопросы по текстовым файлам и строкам... Найти похожие ветки