Скачать: CL | DM;

Как из текстового файла убрать символы перевода строки?   Найти похожие ветки 

← →
Фрося   (2006-01-25 23:21) [0]

Подскажите, мастера..
Файл текстовы, окола 900-950 килобайт.
Спасибо.

---

← →
Джо ©   (2006-01-25 23:24) [1]

1. Считываем файл.
2. Проходимся по всем символам.
3. В процессе прохода символы перевода строки игнорируем, остальные копируем в свое хранилище.
4. Сохраняем полученные данные в файл.

---

← →
Gero ©   (2006-01-25 23:28) [2]

Читаешь Readln, пишешь Write.

---

← →
Фрося   (2006-01-25 23:31) [3]

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:33) [4]

> if str[i] <> #13 then//или "#13" с апострофом?

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

---

← →
Фрося   (2006-01-25 23:33) [5]

Gero
Я так понимаю что ReadLn читает вместе с переводом строки.
А Write пишет этот перевод, или нет?

---

← →
Gero ©   (2006-01-25 23:34) [6]

У меня короче:

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

---

← →
Фрося   (2006-01-25 23:36) [7]

Gero
Джо

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

---

← →
Джо ©   (2006-01-25 23:36) [8]

> [6] Gero ©   (25.01.06 23:34)

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

---

← →
Gero ©   (2006-01-25 23:39) [9]

> Я так понимаю что ReadLn читает вместе с переводом строки.

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c