Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi gleiche nummern nur EINMAL in txt datei schreiben (https://www.delphipraxis.net/59290-gleiche-nummern-nur-einmal-txt-datei-schreiben.html)

rennkuckuck 20. Dez 2005 10:23


gleiche nummern nur EINMAL in txt datei schreiben
 
hallo
habe folgendes problem:
ich habe eine quelldatei(*.txt), die sieht ungefähr so aus.

1234|beamer|350|x
1237|testgerät|350|x
1231|rechner|100|x
1239|drucker|200|x
1233|testgerät2|350|x

so jetzt lese ich bei jeder zeile den dritten teil raus und schreibe den in eine textdatei
das sieht dann so aus:

350
350
100
200
350

jedoch will ich dass jeder eintrag nur einmal in dieser datei vorkommt.
also so soll es aussehen:

350
100
200

wie kann ich das machen??????????????????

bitte bedenkt bei euren antworten, dass ich noch anfänger bin.
danke schon mal für antworten.
(falls ich den beitrag nicht im richtigen forum habe gebt mir bescheid)
gruß rennkuckuck

Bernhard Geyer 20. Dez 2005 10:27

Re: gleiche nummern nur EINMAL in txt datei schreiben
 
Schau dir mal TStringList an. Dort trägst Du die Einträge ein und kannst z.B. mittels IndexOf-Methode abprüfen ob es schon den gesuchten Eintrag gibt.

Peter Wolf 20. Dez 2005 10:39

Re: gleiche nummern nur EINMAL in txt datei schreiben
 
Hallo,

wenn die Reihenfolge der Einträge egal ist, kannst Du, anstelle von Berhards Vorschlag (IndexOf-Methode), mit den Eigenschaften "Duplicates" und "Sorted" arbeiten, die Du nach dem TStringList.Create mit den Werten dupIgnore und true initialisiert. Du brauchst dann nur noch mit ADD einen String hinzufügen und die StringList erledigt den Rest.

Grüße Peter


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:34 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz