String an Position x ausgeben lassen

[SaFu]

Hi,

Ich würde mir gerne den String an der Position x in einer .txt ausgeben lassen bis zu Position x, aber hab schon alles durch gesucht, mit was mache ich das am besten.

[Teekeks]

Ist mit x die Zeilenzahl gemeint oder die anzahl der vorherigen Zeichen?

[SaFu]

Die Anzahl der voherigen Zeichen

[himitsu]

Ist der String genauso lang wie der Dateiteil, welchen du überschreiben willst?
ach du willst da was Lesen :shock:


Als Erstes/Einfachstes fällt mir dazu TFileStream ein.

[SaFu]

OK mal so ich habe eine Datei mit PLZ und Ortsnamen.

Jetzt suche ich in einem Edit nach der Postleitzahl, wenn die gefunden wird möchte ich mir den Ort ausgeben lassen.

Dazu verwende ich die Datei im Anhang

[alleinherrscher]

Dann kannst du die Datei doch zeilenweise in einer Schleife einlesen:

Delphi-Quellcode:

var T:Textfile;
    found_PLZ:boolean;
    gesuchte_PLZ:string;
    aline:string;
begin

 gesuchte_PLZ:='52067';
 found_PLZ:=false;

 assignfile(T,'bla.txt');

 reset(T);
 while (not eof(T)) and (not found_PLZ) do
 begin
   readln(T,aline);
   if pos(gesuchte_PLZ,aline)>0 then found_PLZ:=true;
 end;

 closefile(T);

end;

//edit: kleine Source-korrekturen...hoffe es stimmt jetzt so, ist ausm kopf...
//edit2: Noch eine Korrektur. POS liefert 0 (und nicht -1) zurück, wenn der SubString nicht gefunden wurde.

[himitsu]

Wie findest du denn die Postleitzahl?
Genauso würde ich dann auch den Städtenamen finden/auslesen.

[SaFu]

Habe diesen Codeschnipsel gefunden mit der ich mir die Position ausgeben lasse an der der String gefunden wird

Delphi-Quellcode:

function ScanFile(const FileName: string; const forString: string; caseSensitive: Boolean): Longint;
const
  BufferSize = $8001;  { 32K+1 bytes }
var
  pBuf, pEnd, pScan, pPos: PChar;
  filesize: LongInt;
  bytesRemaining: LongInt;
  bytesToRead: Integer;
  F: file;
  SearchFor: PChar;
  oldMode: Word;
begin
  { assume failure }
  Result := -1;
  if (Length(forString) = 0) or (Length(FileName) = 0) then Exit;
  SearchFor := nil;
  pBuf      := nil;
  { open file as binary, 1 byte recordsize }
  AssignFile(F, FileName);
  oldMode  := FileMode;
  FileMode := 0;    { read-only access }
  Reset(F, 1);
  FileMode := oldMode;
  try { allocate memory for buffer and pchar search string }
    SearchFor := StrAlloc(Length(forString) + 1);
    StrPCopy(SearchFor, forString);
    if not caseSensitive then  { convert to upper case }
      AnsiUpper(SearchFor);
    GetMem(pBuf, BufferSize);
    filesize       := System.Filesize(F);
    bytesRemaining := filesize;
    pPos           := nil;
    while bytesRemaining > 0 do
    begin
      { calc how many bytes to read this round }
      if bytesRemaining >= BufferSize then
        bytesToRead := Pred(BufferSize)
      else
        bytesToRead := bytesRemaining;
      { read a buffer full and zero-terminate the buffer }
      BlockRead(F, pBuf^, bytesToRead, bytesToRead);
      pEnd  := @pBuf[bytesToRead];
      pEnd^ := #0;
      pScan := pBuf;

      while pScan < pEnd do
      begin
       if not caseSensitive then { convert to upper case }
          AnsiUpper(pScan);
        pPos := StrPos(pScan, SearchFor);  { search for substring }

          if pPos <> nil then
          begin { Found it! }
            Result := FileSize - bytesRemaining +
              Longint(pPos) - Longint(pBuf);
            Break;
          end;

        pScan := StrEnd(pScan);
        Inc(pScan);
      end;

      if pPos <> nil then Break;
      bytesRemaining := bytesRemaining - bytesToRead;
      if bytesRemaining > 0 then
      begin
        Seek(F, FilePos(F) - Length(forString));
        bytesRemaining := bytesRemaining + Length(forString);
      end;
    end; { While }

  finally
    CloseFile(F);
    if SearchFor <> nil then StrDispose(SearchFor);
    if pBuf <> nil then FreeMem(pBuf, BufferSize);
  end;
end; { ScanFile }


// Search in autoexec.bat for "keyb" with case insensitive
// In der autoexec.bat nach "keyb" suchen

procedure TForm1.btn2Click(Sender: TObject);
begin
  Position:= ScanFile('C:\Users\test.txt', edt1.Text, False);
  ShowMessage(IntToStr(Position));
end;

War glaube ich zu umständlich oder :wall:

[Hobby-Programmierer]

Gerade was das durchsuchen von Textdateien betrifft gibt es unzählige Threads. Hier wurde auch darüber diskutiert.

[himitsu]

Lad die Datei einfach in eine Stringliste (TStringList)

bastel dir dann noch eine Funktion, welche die Zeilen zerlegt (in Stadtname, PLZ usw.)

und geh dann diese Stringliste in einer Schleife durch
laß dir die aktuelle Zeile zerlegen
vergleiche die PLZ
und wenn gleich, dann nimm den zugehörigen Namen