AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Inhalt von text datei vergleichen

Ein Thema von Knotti2005 · begonnen am 18. Nov 2005 · letzter Beitrag vom 18. Nov 2005
Antwort Antwort
Knotti2005

Registriert seit: 10. Nov 2005
275 Beiträge
 
#1

Inhalt von text datei vergleichen

  Alt 18. Nov 2005, 22:16
Hey wie kann ich den Inhalt von 2 Textdateien mit ein ander vergleichen. Und nach dem vergleich gegebenfalls eine Prozedur starten. Wenn die 2 Datei eine höhere Versionsnummer beinhaldet soll eine Prozedur gestartet werden. Der inhalt sieht ca so aus..


z.b.

1 Txt Datei
Zitat:
0.1
2 Txt Datei
Zitat:
0.2.1
  Mit Zitat antworten Zitat
TheAn00bis

Registriert seit: 7. Jun 2004
386 Beiträge
 
#2

Re: Inhalt von text datei vergleichen

  Alt 18. Nov 2005, 22:30
Vielleicht so:
Delphi-Quellcode:
var s1,s2:Tstringlist;
begin
  s1:=tstringlist.create;
  s2:=tstringlist.create;
  s1.LoadFromFile('datei1.txt');
  s2.loadfromfile('datei2.txt');
  if s1=s2 then showmessage('Die Dateien sind gleich')
  else if strtofloat(s1[0])>strtofloat(s1[1]) then showmessage('Datei1 hat eine höhere Versionsnummer!')
  else if strtofloat(s1[0])<strtofloat(s1[1]) then showmessage('Datei2 hat eine höhere Versionsnummer!');
Dabei müsste die Versionsnummer in der ersten Zeile liegen - ungetestet.

//edit: stringlist noch initialisiert - habs mal getestet das mit dem s1=s2 scheint nicht zu funktionieren und strtofloat ist ja auch Unsinn, da es ja keine Gleitpunktzahl sein muss
- warte lieber auf jemanden der kompetenter ist
  Mit Zitat antworten Zitat
Knotti2005

Registriert seit: 10. Nov 2005
275 Beiträge
 
#3

Re: Inhalt von text datei vergleichen

  Alt 18. Nov 2005, 22:33
Okay ich warte...
  Mit Zitat antworten Zitat
Benutzerbild von Grishnak
Grishnak

Registriert seit: 15. Sep 2005
Ort: Neu-Ulm
111 Beiträge
 
RAD-Studio 2009 Arc
 
#4

Re: Inhalt von text datei vergleichen

  Alt 18. Nov 2005, 23:42
Wenn die Versionsnummern in der jeweils ersten Zeile der Datei stehen, sollte ein Vergleich
Delphi-Quellcode:
[...] // wie oben

if S1.Strings[0] = S2.Strings[0] // oder kurz: S1[0] = S2[0]
  then
    ShowMessage('Die Versionsnummern der Dateien sind gleich')
  else
    if S1.Strings[0] > S2.Strings[0] // oder kurz: S1[0] > S2[0]
      then
        ShowMessage('Datei1 hat eine höhere Versionsnummer!')
      else
        ShowMessage('Datei2 hat eine höhere Versionsnummer!');
möglich sein.
Mach' etwas idiotensicher und irgendjemand erfindet einen besseren Idioten!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:39 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