![]() |
String an Position x ausgeben lassen
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. |
Re: String an Position x ausgeben lassen
Ist mit x die Zeilenzahl gemeint oder die anzahl der vorherigen Zeichen?
|
Re: String an Position x ausgeben lassen
Die Anzahl der voherigen Zeichen
|
Re: String an Position x ausgeben lassen
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. |
Re: String an Position x ausgeben lassen
Liste der Anhänge anzeigen (Anzahl: 1)
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 |
Re: String an Position x ausgeben lassen
Dann kannst du die Datei doch zeilenweise in einer Schleife einlesen:
Delphi-Quellcode:
//edit: kleine Source-korrekturen...hoffe es stimmt jetzt so, ist ausm kopf...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; //edit2: Noch eine Korrektur. POS liefert 0 (und nicht -1) zurück, wenn der SubString nicht gefunden wurde. |
Re: String an Position x ausgeben lassen
Wie findest du denn die Postleitzahl?
Genauso würde ich dann auch den Städtenamen finden/auslesen. |
Re: String an Position x ausgeben lassen
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: |
Re: String an Position x ausgeben lassen
Gerade was das durchsuchen von Textdateien betrifft gibt es unzählige Threads.
![]() |
Re: String an Position x ausgeben lassen
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 |
Re: String an Position x ausgeben lassen
Der Code von mir oben liefert dir doch direkt die Zeile, in der die PLZ gefunden wurde. Diese ist noch in der Variablen aline gespeichert, wenn die Schleife verlassen wird. Das einzige was du noch machen müsstest ist, aus der Zeile den Stadtnamen zu isolieren. Dafür würd ich mir z.B. mal ansehen, mit welchem Zeichen die PLZ etc. getrennt sind in der Datei. Ich schätze mal, es ist ein Tabulator. Dann trennst du die Zeile anhand des Tabulators auf, und schon hast du deinen Stadtnamen.
Ist vielleicht nicht die performanteste Lösung, aber auf jedenfall einfacher zu verstehen als der Code, den du eben gepostet hast. @ himitsu: Okay, wir haben ja alle genug speicher dafür, aber im Grunde ist die Datei doch ein bisschen sehr groß, um sie komplett in den Speicher zu laden... //edit: Okay, es sind keine Tabulatoren als Trennzeichen, sondern Leerzeichen. Aber die Position (Anzahl der Zeichen vom Start der Zeile) der einzelnen Einträge ist immer gleich. Den Stadtnamen kannste also z.B. so erhalten:
Delphi-Quellcode:
function PLZtoStadt(afilename:string;gesuchte_PLZ:string):string;
var T:Textfile; found_PLZ:boolean; aline:string; begin found_PLZ:=false; assignfile(T,afilename); 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); result:=trim(copy(aline,0,45)); //Liefert den Stadtnamen zurück. end; |
Re: String an Position x ausgeben lassen
Delphi-Quellcode:
Naja wenn ich das so mache weis der Code doch immer noch nicht in welcher Zeile die PLZ stehtvar 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; |
Re: String an Position x ausgeben lassen
Die steht doch dann in aline.
|
Re: String an Position x ausgeben lassen
Zitat:
2. Habe ich dir gerade die Funktion fertig programmiert. Siehe Post #11 //edit: Danke für deine Unterstützung @DeddyH Außerdem möchte ich noch eine Anregung einwerfen: Bei meiner schönen Stadt erstrecken sich die Postleitzahlen über einen ganzen PLZ-Bereich. In der txt steht dann: Stadt XYZ XXXXX-YYYYY Wenn du eine Postleitzahl suchst, die zwischen diesen beiden Werten liegt, wirst du sie nicht finden. D.h. hier müsste man noch etwas fine-tuning machen. |
Re: String an Position x ausgeben lassen
Wenn ich mir aline in einem edit ausgeben lasse bekomme ich immer die Daten der ersten Zeile angezeigt
|
Re: String an Position x ausgeben lassen
Zitat:
|
Re: String an Position x ausgeben lassen
Jetzt hab ich es nochmal neu geschrieben und siehe da es funzt. Danke
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz