Работа с файлами

← →
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 строку таким способом не получится (разве только через временный файл), ведь они могут быть разной длины

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

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

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

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

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

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