нужна помощь по работе с строками файлов...

[Ruffian]

Привет всем! У меня такая проблема, вернее задача...
Как написать программу для отрытия файла, поиски строки в нём, редоктирования, и закрывания с сейвом результатов я знаю...))))
А передо мной сейчас стоит задача о поиске n-ого по счёту числа в строчке и изменения его (умножения на 60) после чего необходимо перейти к следующей строчке...и зделать тоже самое...Прошу помочь как можно быстрее...(напишите всё плиз поподробнее, а то я ещё совсем зелёный програмист)))) Заранее спасибо.


ЗЫ все числа в файле стоят через запятую...

[SuperVisor]

Все очень просто от for i:=0 to lenght(string)-1 выполняешь поиск запятых:
Нашел одну, значит следующее число - второе в строке, нашел шестую - следующее число будет седьмым по счету.
потом посимвольно копируешь до следующей запятой, strtoint и делай с этой переменной что хочешь!!!

[Ruffian]

спасибо за ответ, однако доконца непонимаю как заставить чтоб он считал запятые и после этого переходил на следующую строку?
огромное спасибо за предъидущий ответ!

[SuperVisor]

var i,c: integer;
begin
c:=0;
repeat
readln(File,String);
for i:=0 to lenght(string)-1 do // От начала до конца строки
begin
if string[i]=',' then begin // если запятая, то
c:=c+1; //Считаем запятые
if c=x then begin // Если нужная, то производим действия
{Твой код}
Break; // Выходим из оператора for
end;
until EoF(File);
end;

[Ruffian]

ну прост оогромное спасибо!!!ещё последний вопрос, как поцифренно(можно не поцифренно) копировать число куда надо?

[nova-alex]

В месте комментария {Твой код} добавь:

if C>1 then
begin
j:=i-1;
str:='';
while string1[j]<>',' do // где string1 твое STRING, просто проверял
//синтаксис в коде
begin
str:=string1[j]+str;
j:=j-1;
end
end
else
begin
str:='';
for j:=i-1 downto 1 do
str:=string1[j]+str
end;
end;
// ну и далее Y:=strtoint(str) или Y:=strtofloat(str);
Если не в курсе strtoint или strtofloat то посмотри их описание в справке Делфи.

[Ruffian]

var
SL: TStrings;
begin
SL := TStringList.Create;
try
SL.LoadFromFile(Edit1.text); // грузим строку из файла
SL.Delimiter := ','; // числа в строке рзделены запятыми
SL.DelimitedText := SL.Text; // разбиваем строку на отдельные числа
SL[5] := IntToStr(StrToInt(Trim(SL[5])) * 60); // работаем с 6-м числом (индексация от 0)
// тут работаем с другими числами
SL.Text := SL.DelimitedText; // чтобы были запятые в результирующем файле
SL.SaveToFile('c:\2.txt'); // сохраняем результат
finally
FreeAndNil(SL);

собсна вот как зделал я, всё работает но получется вот что...вместо того что было, он сохраняет файл с одной длинной строчкой где все числа...
Щас буду пробовать как ты советуешь...

[Ruffian]

скомпоновав все коды вот что получил...

procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStrings;
x:integer;
begin
SL := TStringList.Create;
x:=0;
try
while x=0 do
begin
SL.LoadFromFile(Edit1.text); // грузим строку из файла
SL.Delimiter := ','; // числа в строке рзделены запятыми
SL.DelimitedText := SL.Text; // разбиваем строку на отдельные числа
SL[5] := IntToStr(StrToInt(Trim(SL[2])) * 60); // работаем с 6-м числом (индексация от 0)
// тут работаем с другими числами
SL.Text := SL.DelimitedText; // чтобы были запятые в результирующем файле
Readln; // если достигнут конец строки
// в файле, то переход на следующую строку}
SL.SaveToFile('c:\2.txt'); // сохраняем результат
end;
finally
FreeAndNil(SL);
end;
end;


темнеменее выдаёт ошибку, в чём она может быть?

[SuperVisor]

на какой строке ошибку выдает (или с каким сообщением)?

[Virtson]

Readln;

скорее всего на этой
откуда читаем то ?