Wörter in einer Datei finden

[chrisw]

Oder noch einfacher :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const SearchString = 'Version= '; // hier ein Leerzeichen einfügen
      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);
      //diese Zeile einfügen
      if pos(' ', tempstr) <> 0 then  delete(tempstr,pos(' ', tempstr),1000);
      showmessage('Der gesuchte String lautet : ' + tempstr + #13#10 +
                  'Er wurde gefunden in Zeile ' + Inttostr(i +1));
      MyTextFileContent.Free;
      exit;
    end;
  MyTextFileContent.Free;
end;