Поиск и чтение...

[Decibel]

Здравствуйте! У меня к вам вопрос. Значит задача такая: есть текстовый файл, запись в нем допустим такого вида
aaaaaaa:4udsrg74
ccccj77r:jgygjjjgjj
gy456gyjgyj:fhghfgh
..........ну и в том же духе
Нужно организовать поиск строки ДО двоеточия, и при таковой найденной, прочитать то что после двоеточия. Вот в общем какое дело..

[dr.Chas]

str:='asd'; //строка которую надо найти
AssignFile(Fail,'адрес файла');
Reset(fail);
While not eof(fail) do
begin
  Readln(Fail,s); //читаем строку
  for i:=1 to length(s) do
    if s(i)<>':' then doDvoetoch:=s(i)  
    else break;  //если до шли до ':' останавливаем цикл
  if str=doDvoetoch then 
   for j:=i to length(s) do
    PosleDvoet:=s(j); //вот твоя строка можешь на прямую выводить   
    //твоё дело
   //Я сделал всё так как ты описал, на счёт повторной строки, ты не чего
  // не уточнял, так что думай сам. Можешь при первой найденой  
  // закончить читать файл, а можешь их несколько вывести твоё дело))
end;

[Decibel]

Сообщение от dr.Chas

str:='asd'; //строка которую надо найти
AssignFile(Fail,'адрес файла');
Reset(fail);
While not eof(fail) do
begin
  Readln(Fail,s); //читаем строку
  for i:=1 to length(s) do
    if s(i)<>':' then doDvoetoch:=s(i)  
    else break;  //если до шли до ':' останавливаем цикл
  if str=doDvoetoch then 
   for j:=i to length(s) do
    PosleDvoet:=s(j); //вот твоя строка можешь на прямую выводить   
    //твоё дело
   //Я сделал всё так как ты описал, на счёт повторной строки, ты не чего
  // не уточнял, так что думай сам. Можешь при первой найденой  
  // закончить читать файл, а можешь их несколько вывести твоё дело))
end;

Спасибо! Все отлично, в принципе как мне и надо! Как буду за своей машиной опробую алгоритм))

[Decibel]

procedure TForm1.Button1Click(Sender: TObject);
var
fl:textfile;
str,s,doDvoetoch,PosleDvoet:String;
i,j:Integer;
begin
str:='asd';
AssignFile(fl,'C:\file.txt');
Reset(fl);
While not eof(fl) do
begin
Readln(fl,s);
for i:=1 to length(s) do
if s(i)<>':' then doDvoetoch:=s(i) // ругается Missing operator or semicolon
else break;
if str=doDvoetoch then
for j:=i to length(s) do
PosleDvoet:=s(j); //на эту тоже самое
end;
 end;
end.

Простите начинающего что я сделал не так?

[WOLFak]

Вот ))) попытался исправить
З.Ы. я условия не понял)) ща исправил

procedure TForm1.Button1Click(Sender: TObject);
 var
fl:textfile;
str,s,doDvoetoch,PosleDvoet:String;
i,j:Integer;
begin
str:='asd';
AssignFile(fl,'file.txt');
Reset(fl);
While not eof(fl) do
begin
 readln(fl,s);
 if pos(':',s)<>0 then
begin
   form1.Label1.Caption:=copy(s,pos(':')+1,length(s));
   exit;
end;
end;

end;

[dr.Chas]

Прошу прощения ошибся ну с кем не бывает

if s[i]<>':' then doDvoetoch:=s[i] // ругается Missing operator or semicolon

PosleDvoet:=s[j]; //на эту тоже самое

[Decibel]

Вот сейчас работает
но,беру 2 строки в файле:
asd:111111111
dsa:222222222

при поиске строки asd, как никрути выводит последнюю строку (причем не после двоеточия, а полностью)

[Decibel]

Сообщение от dr.Chas

Прошу прощения ошибся ну с кем не бывает

if s[i]<>':' then doDvoetoch:=s[i] // ругается Missing operator or semicolon

PosleDvoet:=s[j]; //на эту тоже самое

а точно, массив)))
всем спасибо за ответы

[Decibel]

К сожалению, код находит последний символ,последней строки, перед двоеточием, и выводит его...(( надо бы как - поиск во всем файле например :
пусть строка неизвестно где будет находится в файле, надо найти слово ada5ab, а потом уже как найдется, перейти к чтению в этой же строке, но уже после двоеточия
ada5ab:1111
т.е. результат 1111
З.Ы. Я наверное запарил уже со своими строками))

[WOLFak]

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

ada5ab:1111
т.е. результат 1111
З.Ы. Я наверное запарил уже со своими строками))

если нада найти результат 1111 тоесть то что после первого двуеточия то мой код подходит(яя егго исправил)