Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как из текстового файла убрать символы перевода строки? [D6, D7, XP]

Фрося © (2006-01-25 23:21:00)
Подскажите, мастера..
Файл текстовы, окола 900-950 килобайт.
Спасибо.

Gero (2006-01-25 23:39:00) [1]
> Я так понимаю что ReadLn читает вместе с переводом строки.

Нет, символы перевода в результат не добавляются.

> А просили только символы перевода строки, а про символ возврата
> каретки не было :)

Точно, ошибочка вышла :)

Фрося (2006-01-25 23:36:00) [2]
Gero
Джо

Спасибо ребята...

Джо (2006-01-25 23:36:00) [3]
> [6] Gero © (25.01.06 23:34)

А просили только символы перевода строки, а про символ возврата каретки не было :)

Gero (2006-01-25 23:34:00) [4]
У меня короче:

while not Eof(File1) do
begin
Readln(File1, Line);
Write(File2, Line);
end;

Gero (2006-01-25 23:33:00) [5]
> if str[i] <> #13 then//или '#13' с апострофом?

Если файл в Windows-формате, то #13#10.

Фрося (2006-01-25 23:33:00) [6]
Gero
Я так понимаю что ReadLn читает вместе с переводом строки.
А Write пишет этот перевод, или нет?

Фрося (2006-01-25 23:31:00) [7]
2Джоvar
F: TextFile;
i: Integer;
str, out: String;
AssignFile(F,'book.txt);
while not eof(F) do
begin
for i := 1 to Length(str) do
begin
if str[i] <> #13 then//или '#13' с апострофом?
out := out + str[i];
end;
end;

Так что-ли?

Gero (2006-01-25 23:28:00) [8]
Читаешь Readln, пишешь Write.

Джо (2006-01-25 23:24:00) [9]
1. Считываем файл.
2. Проходимся по всем символам.
3. В процессе прохода символы перевода строки игнорируем, остальные копируем в свое хранилище.
4. Сохраняем полученные данные в файл.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »