Delphi 7. Работа с файлами

[Flame_of_Death]

Вот такая задача:
Есть исходный файл формата:
текст
текст
текст
6920000;-1.06;0.00;0.00;0.00;0.00;-1.06;-227.06;0.00
6920000;-1.06;0.00;0.00;0.00;0.00;-1.06;-227.06;0.00
6920000;-1.06;0.00;0.00;0.00;0.00;-1.06;-227.06;0.00
6920000;-1.06;0.00;0.00;0.00;0.00;-1.06;-227.06;0.00
Нужно из этого файла сформировать текстовый файл с разделителями ; формата:
#текст SUMM
#текст
#текст TYPE
6920000;какой то текст,6920000;6920000;227.06;
-------------
Из первого файла из всех строк нужно начать разбор с 3-ей строки, т.е. пропустить текст, взять число из первого столбца (6920000), и из 8-го (-227.06). Из 8-го сделать из отрицательного положительное (если положительное, то сделать отрицательное). В выходной файл нужно вывести первой строкой:
#любой текст SUMM (SUMM - сумма из 8-го столбца с измененными значениями (+/-) )
Вторую строку сформировать как просто
#текст
Третью строку сделать следующим образом, чтобы выводилось:
#текст TYPE (TYPE - значение, выбираемое из ComboBox)
Ниже первым столбиком проставить значения из первого столбца исходного файла(6920000), во второй столбец записать какой то текст, и значение из первого столбца(текст, 6920000). В третий столбец поставить значения из первого столбца исходного файла(6920000), в 4-ый столбец поставить перевернутое число из 8-го столбца исходного файла (-227.06).

Вот как реализовать данный вид программы?

[Utkin]

Можно загнать файл в какой-нибудь список - TStringList, TMemo, TStrings, TRichEdit - и там уже выбирать и издеваться над понравившимися строками.

[danekne]

readln ам в помощь! Считываете строку в переменную, а потом делаете с ними чего хотите... Или можно создать вообще массив строк таким образом и работать с индексами:

if opendialog1.Execute then
begin
assignfile(f,opendialog1.filename);
reset(f);
while not eof(f) do
begin
readln(f,x[i]);
i++;
end;
closefile(f);
end;

аааа, совсем забыл! var f:textfile;

[Flame_of_Death]

А как проверить, что исходный файл имеет именно такой формат:
текст
текст
текст
6920000;-1.06;0.00;0.00;0.00;0.00;-1.06;-227.06;0.00
т.е. первые три строки именно текстовые, а четвертая имеет формат, представленный выше..

[danekne]

А что вы понимаете под текст? А на счет цифр - if not (x[i] in ['0'..'9','-', char(vk_back)]) then

[Flame_of_Death]

Сообщение от danekne

if not (x[i] in ['0'..'9','-', char(vk_back)]) then

Вы учитываете разделители между цифрами?

------

Под текстом я имею заголовок текстового файла, представленный в виде трех строк, например, построчно:
1. Файл: file.txt
2. Файл отправлен Васей
3. Файл получен Ваней
4. 6920000;-1.06;0.00;0.00;0.00;0.00;-1.06;-227.06;0.00
......
и т.д. все строки после 4-ой имеют аналогичный формат 4-ой строки.

[Utkin]

Возможно в первых 3-х строках не встречаются символы последующих? Скажем ;? Тогда достаточно данный символ там не найти. Способ не точный, но учитывая имеющуюся информацию вполне сойдет.

[Пепел Феникса]

если начиная с четвертой строки идет определенный формат строк
то самое лучшее прочесть эту строку и выделить с нее данные(каждый элемент), если все элементы строки заполненны(например в каждой строке 8 элементов) и строка исходная после извлечения не имеет лишних символов(просто смотря как парсить), то строка наша/верная

[Flame_of_Death]

А можно небольшой пример кода?