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

Работа с файлами   Найти похожие ветки 

← →
Lk ©   (2006-04-18 19:27) [0]

1) как можно считать каждую 4 строку?
2) как можно перезаписать каждую 4 строку?

---

← →
Desdechado ©   (2006-04-18 20:22) [1]

TstringList.LoadFromFile
в нем менять строки
SaveToFile

---

← →
STK ©   (2006-04-18 21:36) [2]

Или

AssignFile(f, Filename(полный путь к файлу));
resset(f);//для открытия и чтения или
repeat
i:=i+1;
if i div 4 =0 then readln(f, stringa);// чтение каждой четвёртойстроки
until EOF;//Признак конца файла
Close(f)

rewrite(f); // для перезаписи файла

Писал на память так что мог ошибиться с тем что в скобках(параметры).
А лучше всего найди инфу по работе с файлами.
Удачи.

---

← →
Anatoly Podgoretsky ©   (2006-04-18 21:40) [3]

Прочитает все строки подряд

---

← →
STK ©   (2006-04-18 22:00) [4]

Ссори. Исправляю

if i mod 4 = 0 then Readln(f, stringa)
else readln(f, ненужная строковая переменная)
ведь mod возращает остаток от деления. если остатка нет значит число i кратен 4.
Хотя этот год не идеален. Легче считать весь файл в переменную TStringList а от туда уже брать чего надо. Хотя может и не всегдаоправдан.


> Anatoly Podgoretsky ©   (18.04.06 21:40) [3]
> Прочитает все строки подряд

А теперь нормуль?

ИМХО. Хотя мне кажется в таких вопросах давать прям уж точный код не очень "педагогично", надо дать подумать-исправить код. Так можно писать программу основываясь на ответах. Правда тоже не всегда.

---

← →
Desdechado ©   (2006-04-18 22:17) [5]

STK ©
перезаписать каждую 4 строку таким способом не получится (разве только через временный файл), ведь они могут быть разной длины

---

← →
STK ©   (2006-04-18 22:31) [6]

> Desdechado ©   (18.04.06 22:17) [5]
> STK ©
> перезаписать каждую 4 строку таким способом не получится
> (разве только через временный файл), ведь они могут быть
> разной длины

Не согласен. WriteLn(f, array[j]);
j:=j+1;// т.е. создать массив состроками которые надо заменить

Вроде нетпроблем, или...

Что скажеш насчёт [4].

---

← →
Anatoly Podgoretsky ©   (2006-04-18 22:53) [7]

Нужны два файла для ReadLn/WriteLn

---

← →
Anatoly Podgoretsky ©   (2006-04-18 22:55) [8]

STK ©   (18.04.06 22:00) [4]
Теперь нормально, только будет ошибка при нулевой длине файла. Repeat не применим для такой работы, нужен while

---

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

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



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