Передо мной строит такая задача. Есть тектовой файл, его структура вот такая:

:15 число: 456774
:30 число: 20040121
:32 число: 480983409

Мне нужно искать в файле строки ":15", ":30", ":32" и из каждой строки после второго двоеточия вытягивать число в какую-нибудь переменную, а затем после этих действий в поле :15: записать после чисел слово "ОКЕЙ" и сохранить файл.

Пока я использую Memo:

Код

for i:=0 to memo1.lines.count-1 do     begin        if 0<pos(':32', memo1.lines[i]) then        Edit1.text:=memo1.lines[i];     end;

У меня вытягивается вся строка...
Помогите плиз советом!!!

функция copy(s:string; begin_char_number, count_of_chars:integer);
пример: есть строка
var s,s1:string;
s:="1234567890";
s1:=copy(s,3,4); //s1="3456"

Про функцию copy я в курсе, до дело в том что я не знаю какое количество символов будет стоять после второго двоеточия в строке, там модет быть и 3 символа, и 30 символов.
Так то эту функцию можно и так написать:

Код

for i:=0 to memo1.lines.count-1 do     begin        if 0<pos(':15', memo1.lines[i]) then          s:=memo1.lines[i];          s1:=copy(s,10,6);          Edit1.Text:=s1;     end;   for i:=0 to memo1.lines.count-1 do     begin        if 0<pos(':30', memo1.lines[i]) then          s:=memo1.lines[i];          s1:=copy(s,10,6);          Edit2.Text:=s1;     end;   for i:=0 to memo1.lines.count-1 do     begin        if 0<pos(':32', memo1.lines[i]) then          s:=memo1.lines[i];          s1:=copy(s,11,12);          Edit3.Text:=s1;     end;

но смысла я не вижу... к примеру, программе необходимо в файле или в Memo1 найти строку по шаблону ":15", скопировать в переменную все что идет после второго двоеточия, т.е. :15 TEXT: XXXXXXX, т.е. все Х. А после этого добавить после ХХХХХХ в этой строчке слово OKEY.
Пример:
Имеем строчку: :15 TEXT: 345345600
копируем 345345600 в переменную с переводом StrToInt(), затем после цифр добавляем слово OKEY и сохраняем файл. Строкча должна получится такой:
:15 TEXT: 345345600 OKEY

МОжно копировать с 10-го до length(s)-10

удаляешь певый символ Delete (s, 1, 1);
получаешь первое число s1 := Copy (s, 1, Pos (' ', s) - 1);
удаляешь пробел Delete (s, 1, 1)
получаешь второе число s2 := Copy (s, 1, Pos (':', s) - 1);
удаляешь двоеточие Delete (s, 1, 1)
остаётся третье число s3 := s;


дальше делаешь с ними вмеми чего хочешь.

Цитата

дело в том что я не знаю какое количество символов будет стоять после второго двоеточия в строке, там модет быть и 3 символа, и 30

ты же можешь его определить, твой число всегда находится между первым пробелом и вторым двоеточием. а чтобы первое двоеточие не мешалось, его надо просто убить. тогда весь код вообще две строчки:

Delete (s, 1, 1);
s2 := Copy (s, Pos (' ', s) + 1, Pos (':', s) - Pos (' ', s));

Это сообщение отредактировал(а) x77 - 21.1.2004, 11:58

Цитата

Про функцию copy я в курсе, до дело в том что я не знаю какое количество символов будет стоять после второго двоеточия в строке, там модет быть и 3 символа, и 30 символов.

Дак число будет располагаться между ":" и последним символом, те length.

Ура!!! Все получилось! только надо до конца довести,
вообще без понятия как слово OKEY дописать.
Вижу два варианта:
Или определить конец строки в Memo1 и дописать туда программно, а потом программно сохранить
или переписывать строки, хотя переписывать не хотелось бы.
как программно добавить в конец активной строки в Memo1 слово?.

что значит "активной"? для любой i-той строки так:

Lines [i] := Lines [i] + 'OKEY';

для строки, на которой сейчас стоит курсор:

SelText := 'OKEY';

Ок! Спасибо большое!!! Все получилось!!!