fehler mit Pos() ?

[sharkx]

Hallo,

Ich lese eine Text Datei mit LoadFromFile in eine StringListe. Diese lasse ich dann durch eine Schleife laufen und füge alle zeilen die nicht mit ; oder ' ' (leerzeichen) beginnen in eine neue StringList.

Die Procedure:

Delphi-Quellcode:

function CreateStringList(SFVFile: string): string;
var
  OldList: TStrings;
  NewList: TStrings;
  i: integer;
begin
  NewList := TStringList.Create;
  OldList := TStringList.Create;

  OldList.LoadFromFile(SFVFile);

  for i := 0 to OldList.Count - 1 do
    begin
      if (Pos(';', OldList.Strings[i]) = 1) or (Pos(' ', OldList.Strings[i]) = 1) then
        Continue
      else
        NewList.Add(OldList.Strings[i]);
    end;
    
  OldList.Free;
  Result := NewList.CommaText;
end;

die SFV File, von der gelsen wird sieht etwa so aus:

Delphi-Quellcode:

; sfv raped by project-zs (mXr edition)

; 

datei a bissel text
das ganze nochmal
und nochmal

Jedesmal wenn ich eine sfv file lade, die diese ; sfv rapped ... Commends hat, stimmem die Strings in der StringListe nicht mehr.
Wo steckt mein fehler?

Danke :-)

[Wormid]

Moinsen,

versuche das ganze mal so:

Delphi-Quellcode:

var SFVFile: TStringList;
    i: Integer;
begin
  SFVFile := TStringList.Create;
  SFVFile.LoadFromFile(SFVFileName);

  for i := SFVFile.Count - 1 downto 0 do
  begin
    SFVFile[i] := Trim(SFVFile[i]);
    if (Length(SFVFile[i]) = 0) or (SFVFile[i][1] = ';') then
      SFVFile.Delete(i);
  end;

  Result := SFVFile.CommaText;
  SFVFile.Free;
end;

Gruß

Wormid

[Luckie]

Zu aller erst würde ich die if-bedingung ändern:

Delphi-Quellcode:

if not ((Pos(';', OldList.Strings[i]) = 1) or (Pos(' ', OldList.Strings[i]) = 1)) then 
  NewList.Add(...);

Damit sparst du dir dieses Rumgehopse in der Schleife mit dem Continue.

[sharkx]

@WormId: Das funktioniert nicht, da diese function in einer Schleife läuft die bis SFVFile.Count läuft. Wenn ich dann Strings abschneiden würde, stimmt der Count nicht mehr und ich bekomm eine Exception.

@Luckie: Stimmt, hast Recht, aber das Problem is damit nicht behoben.



Mit dem Inhalt der StringList erstelle ich jeweils für einen Eintrag eine neue Datei.

Delphi-Quellcode:

procedure CreateMissing(FileList: TStrings; Directory: String);
var
  i: integer;
begin
  for i := 0 to FileList.Count - 1 do
    begin
      dump := Copy(FileList.Strings[i], 1,Pos(' ', FileList.Strings[i]) - 1);
      FileClose(FileCreate(directory + dump + '-missing'));
    end;
end;

Wenn jedoch ; Kommentare in der alten StringList war, dann erstellt er mir 1 -missing file die nicht sein dürfte. Der Rest stimmt alles.

[sharkx]

Arg Stop!, Ich hab das Problem gefunden ..

[sharkx]

Problem doch nicht behoben...

Wenn jmd den fehler sieht, pls help :-)

[Wormid]

Zitat:

@WormId: Das funktioniert nicht, da diese function in einer Schleife läuft die bis SFVFile.Count läuft. Wenn ich dann Strings abschneiden würde, stimmt der Count nicht mehr und ich bekomm eine Exception.

Ich verstehe nicht so ganz, warum "meine" Variante nicht funktionieren soll...

Was läuft in einer Schleife ab, und auf welches Count beziehst Du dich jetzt? Eines in deinem Code irgendwo, oder in meinem Beispiel jetzt?

[sharkx]

Delphi-Quellcode:

CheckList := TStringList.Create;
  CheckList.CommaText := CreateStringList(ParamStr(1));

  dir := ExtractFilePath(ParamStr(1));

  // Create Missing Files
  CreateMissing(CheckList, dir);

  // Create Incomplete File
  CreateIncompleteFile(dir);

  for i := 0 to CheckList.Count - 1 do
    begin
    filen := Copy(CheckList.Strings[i], 1,Pos(' ', CheckList.Strings[i]) - 1);

    if FileExists(dir + filen) then
......

die Function CreateMissing steht weiter oben in diesem Tread.

die function CreateStringList sieht nun wie filgt aus:

Delphi-Quellcode:

function CreateStringList(SFVFile: string): string;
var
  OldList: TStrings;
  NewList: TStrings;
  i: integer;
begin
  NewList := TStringList.Create;
  OldList := TStringList.Create;

  OldList.LoadFromFile(SFVFile);

  for i := 0 to OldList.Count - 1 do
    if (Length(Trim(OldList.Strings[i])) > 0) and (OldList.Strings[i][1] <> ';')  then
      NewList.Add(OldList.Strings[i]);

  OldList.Free;
  Result := NewList.CommaText;
end;

Trotzdem habe ich ab und an noch eine -missing datei die garnicht da sein dürfte. Somit stimmem auch alle weiteren Proceduren die auf den beiden functionen aufbauen überhaupt nicht mehr.

[Wormid]

Hast du mal ein SFVFile da? Denn mit meinem Testfile funktionuckelt das...

[sharkx]

sicher doch ...

[Wormid]

Hmmm... So richtig schnall ich das Problem scheinbar nicht - was soll denn da eigentlich passieren?

Der Code liest jetzt so ein sfv-File ein, entfernt Leerzeilen und Kommentare und legt dann für jeden Dateieintrag eine leere Datei an. Mit deinem Code hier scheint das doch zu funktionieren, den Sinn verstehe ich zwar nicht, aber es tut... :shock:

Falls Du einfach nur ein simples SFV-Tool suchst, das dir bequem anzeigt, welche Dateien fehlen oder korrupt sind, dann empfehle ich dir mal einen Blick auf FlashSFV zu werfen -> http://www.flashfxp.com/freeware.php?Program=FlashSFV


Gruß

Wormid

[Touchdown]

Wäre es nicht sinnvoller als Result eine Stringlist zurück zu geben? Der String könnte doch ziemlich lang werden ...

[sharkx]

Es funktioniert eigentlich .. aber aus mir unerklärlichen Gründen legt er mir Oftmals eine '-missing' Datei ohne dateinamen an.
Und dieses problem würde ich gern beheben :>

Du verstehst den Sinn nicht? Sagen dir zipscripte etwas? glFTPd und zipscript -c z.b.? Wenn ja siehst du oben ein stück code von so einem :-)

Ansonsten kannst du mal www.glftpd.at besuchen, dort gibt es jede menge solcher zipscripte für FTPDs. jedoch verwende ich hier keinen FTPD als ausgang, sondern lediglich einen WinNT Service.