Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Differenz der Inhalte zweier TString Dateien ? (https://www.delphipraxis.net/129798-differenz-der-inhalte-zweier-tstring-dateien.html)

madina 25. Feb 2009 19:13


Differenz der Inhalte zweier TString Dateien ?
 
Hallo,

wie kann ich den Differenz der Inhalte zweier TString Dateien in ein 3. TString Datei schreiben.

mfg
madina

nuclearping 25. Feb 2009 19:18

Re: Differenz der Inhalte zweier TString Dateien ?
 
Was ist denn eine TString Datei? :gruebel:

DeddyH 25. Feb 2009 19:18

Re: Differenz der Inhalte zweier TString Dateien ?
 
Kannst Du das mal etwas präzisieren?

mkinzler 25. Feb 2009 19:19

Re: Differenz der Inhalte zweier TString Dateien ?
 
Wie soll das Ergebnis aussehen?

Nikolas 25. Feb 2009 19:24

Re: Differenz der Inhalte zweier TString Dateien ?
 
Meinst du so etwas wie diff?

madina 26. Feb 2009 07:21

Re: Differenz der Inhalte zweier TString Dateien ?
 
Hallo,

einfach 2 ASCII Dateien mit zeilenweise Inhalte. Z.B.:
Datei1Inhalt:
2
5
8
10

Datei2Inhalt:
3
5
8
9

DifferenzDatei (Ergebnis):
2
3
9
10

mfg
m

sx2008 26. Feb 2009 07:33

Re: Differenz der Inhalte zweier TString Dateien ?
 
http://www.delphipraxis.net/internal...ct.php?t=23230

himitsu 26. Feb 2009 09:21

Re: Differenz der Inhalte zweier TString Dateien ?
 
am Einfachsten beide Listen durchgehn, jeweils in der Anderen nachsehn ob der String dort drin ist und wenn nicht diesen der Ergebnisliste zufügen ... am Ende eventuell noch sortieren.
Delphi-Quellcode:
StringListDiff.Clear;
For i := 0 to StringList1.Count - 1 do
  If StringList2.IndexOf(StringList1[i]) < 0 Then
    StringListDiff.Add(StringList1[i]);
For i := 0 to StringList2.Count - 1 do
  If StringList1.IndexOf(StringList2[i]) < 0 Then
    StringListDiff.Add(StringList2[i]);
//StringListDiff.Sort;
bei shmia's Code (siehe sx2008's Link) fehlt dieses allerdings.


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:08 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