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

[dr.Chas]

Вот пожалуста, всё работает, проверил.

var
  fl:textfile;
  str,s,doDvoetoch,PosleDvoet:String;
  i,j:Integer;

begin
  str:='dsfw';   //данные которые надо найти, исправляйте под себя, т.е 
  //если вам надо в делфи а не в паскале то, например прочитать   
  // в Edit1.text;
  AssignFile(fl,'C:\file.txt');
  Reset(fl);
  While not eof(fl) do
  begin
    Readln(fl,s);
    doDvoetoch:='';
    PosleDvoet:='';
    for i:=1 to length(s) do
      if s[i]<>':' then doDvoetoch:=doDvoetoch+s[i] //тут я ошибся, это  
       //хорошо будет видно
      //в редакторе, сразу увидел, а вам я писал, прямо в ответе   
       //алгоритм))
      else break;
    if str=doDvoetoch then
      for j:=i+1 to length(s) do
        PosleDvoet:=PosleDvoet+s[j]; //опять как и выше
    write(PosleDvoet);   //выводите, опять же если в делфи, то другими   
                             //способами
  end;
  close(fl);
end.

Если что то не понятно, спрашивайте всё объясню

[Decibel]

Да, это понятно, что он после двоеточия выводит результат...
Я просто наверное описал задачу слишком непонятно..
Попробую по другому..
В общем, вот текстовый файл

user2:0x00022
data:0x0007d
save:0x01004
...И так подобные данные далее

Задача: Моей программе поступила команда data, она должна отыскать
текст data в этом файле соответственно с левой стороны, НО не касаясь правой и двоеточия (двоеточие, своего рода разделитель) также неизвестно на какой строке расположен этот текст. Итак, каким то образом, на какой то строке обнаружился текст data (кстати, повторных команд в файле нет), значит нам известно уже какая строка, тут уже вступает вышеописанный тобой код для чтения после разделителя..
В общем то вот так

[Decibel]

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

Вот пожалуста, всё работает, проверил.

var
  fl:textfile;
  str,s,doDvoetoch,PosleDvoet:String;
  i,j:Integer;

begin
  str:='dsfw';   //данные которые надо найти, исправляйте под себя, т.е 
  //если вам надо в делфи а не в паскале то, например прочитать   
  // в Edit1.text;
  AssignFile(fl,'C:\file.txt');
  Reset(fl);
  While not eof(fl) do
  begin
    Readln(fl,s);
    doDvoetoch:='';
    PosleDvoet:='';
    for i:=1 to length(s) do
      if s[i]<>':' then doDvoetoch:=doDvoetoch+s[i] //тут я ошибся, это  
       //хорошо будет видно
      //в редакторе, сразу увидел, а вам я писал, прямо в ответе   
       //алгоритм))
      else break;
    if str=doDvoetoch then
      for j:=i+1 to length(s) do
        PosleDvoet:=PosleDvoet+s[j]; //опять как и выше
    write(PosleDvoet);   //выводите, опять же если в делфи, то другими   
                             //способами
  end;
  close(fl);
end.

Если что то не понятно, спрашивайте всё объясню

Ой, извини, не видел что ты ответил, и начал заного всё объяснить!!
СПАСИБО тебе большое!!