Wörter in einer Datei finden

[chrisw]

So könnte man das machen !

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const SearchString = 'Version=';
      filename     = 'c:\mytextfile.txt';

var MyTextFileContent : TStringList;
    i,j               : Integer;
    tempStr           : String;
    ErstesLeerzeichen : Boolean;
begin
  MyTextFileContent :=  TStringList.Create;
  try
    MyTextFileContent.LoadFromFile(filename);
  except
    Showmessage('Motz');
    MyTextFileContent.Free;
    exit;
  end;
  for i := 0 to MyTextFileContent.Count -1 do
    if pos(SearchString,MyTextFileContent[i]) <> 0 then
    begin
      tempStr := MyTextFileContent[i];
      delete(tempStr,1,pos(SearchString,MyTextFileContent[i])+ length(SearchString)-1);
      ErstesLeerzeichen := False;
      for j := Length(tempstr) downto 0 do
        begin
          if ErstesLeerzeichen and (tempStr[i] = ' ') then break;
          if tempStr[i] <> ' ' then delete(tempStr,i,1) else ErstesLeerzeichen := True;
        end;
      showmessage('Der gesuchte String lautet : ' + tempstr + #13#10 + 
                  'Er wurde gefunden in Zeile ' + Inttostr(i +1));
      MyTextFileContent.Free; 
      exit;
    end;
  MyTextFileContent.Free;
end;