read und write

[EWeiss]

I := 0; // Fehlte Du hast mich nicht zu ende schreiben lassen hatte es zu früh abgeschickt da von Hand getippt. )

Zitat:

// <- das ist eine Textdatei File Count ist nicht die Zeilen Anzahl

Jo
btw.. Dein Grow auch nicht

Zitat:

Reset(f); // Fehlte

Ja nicht auf den Zeilenanfang gesetzt.

werde es nochmal testen Danke.

gruss

[Mavarik]

Zitat von EWeiss:

btw.. Dein Grow auch nicht

Das ist ja auch nur dafür da, damit Du nicht für jede Zeile ein Setlength aufrufen musst.

[EWeiss]

Ich mache eine Kombination von beiden und gut ist.
Ist mir jetzt zu viel Arbeit die Zeilenlänge des Textes von Hand zu ermitteln.

so geht's und gut ist

Delphi-Quellcode:

function TPlayList.SaveM3UFile(Filename: String; clear: BOOL = false): Boolean;
var
  F: TextFile;
  Buffer: String;
  i: Integer;
  CheckM3U: BOOL;
  SList: TStringList;
begin
  Result := True;
  CheckM3U := false;
  try
    SList := TStringList.create;
    SList.LoadFromFile(Filename);
    if SList.Strings[0] = '#EXTM3U' then
      CheckM3U := true;
    SList.Free;

    AssignFile(F, Filename);
    if (FileExists(Filename)) and (not Clear) then
    begin
      Append(F);
    end
    else
    if clear then
      Rewrite(F)
    else
    Rewrite(F);

    if not CheckM3U then
      Writeln(F, '#EXTM3U');

    for i := 0 to FFile.Count - 1 do
    begin
      Buffer := Format('#EXTINF:%s|%s|%s|%s', [FTime.Strings[i], FTitle.Strings[i],
        FArtist.Strings[i], FAlbum.Strings[i]]);
      Writeln(F, Buffer);
      Writeln(F, FFile.Strings[i]);
    end;
    CloseFile(F);
  except
    CloseFile(F);
    Result := False;
  end;

end;

gruss

[peterbelow]

Zitat von EWeiss:

Zitat:

Dein Fehler ist, dieses uralte Textfile API zu verwenden

Es hat seine gründe

Ich schreibe mit Win32Api mitteln und verwende nicht überall TStringList nur weil es bequemer ist.
Meine Anwendungen basieren auf NONVCL.. ja ich weis auch dort kann man TStringList verwenden.

Ich suche eine Lösung für Meine Anwendungsweise.
Es muss doch möglich sein während des Schreibens vorher\gleichzeitig zu prüfen ob der Eintrag in der Datei existiert.

Danke..

gruss

Manche Leute haben halt eine masochistische Ader . Wenn Du unbedingt bei Textfile bleiben willst mußt Du die Aufgabe in zwei separate Aktionen teilen: erst die Datei zum lesen öffnen, den gewünschten Teil lesen, die Datei wieder schließen und dann zum Schreiben wieder öffnen. Geht nicht anders.

[EWeiss]

Zitat:

erst die Datei zum lesen öffnen, den gewünschten Teil lesen, die Datei wieder schließen und dann zum Schreiben wieder öffnen.

Mache ich ja siehe letzter Beitrag..

Delphi-Quellcode:

    SList := TStringList.create;
     SList.LoadFromFile(Filename); // öffnen
     if SList.Strings[0] = '#EXTM3U' then // Bereich auslesen
       CheckM3U := true;
     SList.Free; // schließen

     AssignFile(F, Filename); // öffnen

oder..

Delphi-Quellcode:

    AssignFile(F, Filename); // öffnen
    Reset(F); // Zeilenanfang
    while not Eof(F) do
    begin
      ReadLn(F, Buffer);
      if Buffer = '#EXTM3U' then // gefunden 
      begin
        CheckM3U := true;
        break; // raus hier
      end;
    end;
    CloseFile(F); // schließen

ohne Array !!

gruss

[DieDolly]

Hier eine kleine Verbesserung basierend auf deinem Ansatz

Delphi-Quellcode:

 CheckM3U := False;
 if (FileExists(Filename)) then // LoadFromFile geht in die Hose, wenn die Datei nicht existiert
  begin
   SList := TStringList.Create;
   try
    SList.LoadFromFile(Filename);
  
    CheckM3U := SList.Text.StartsWith(#EXTM3U);
   finally
    SList.Free; // schließen
   end;

   AssignFile(F, Filename); // öffnen
   ...
  end;

[EWeiss]

Danke.. habe meinen Beitrag nochmals editiert.
Denke so geht s
Auch ohne TStringList.

Zitat:

Manche Leute haben halt eine masochistische Ader

Du hast so recht.. schwer warm heute, von daher verzeih mir noch mal meine Herangehensweise.

gruss

[Mavarik]

Zitat von EWeiss:

Mache ich ja siehe letzter Beitrag..

Delphi-Quellcode:

    SList := TStringList.create;
     SList.LoadFromFile(Filename); // öffnen
     if SList.Strings[0] = '#EXTM3U' then // Bereich auslesen
       CheckM3U := true;
     SList.Free; // schließen

     AssignFile(F, Filename); // öffnen

ohne Array !!

Echt jetzt? Den ganzen File in Memory laden um festzustellen, ob in der 1. Zeile ein Token steht...
Und wenn es eh schon im Speicher ist, dann nicht die List ergänzen und SavetoFile…

omg... Ich gebe auf.

[EWeiss]

Zitat von Mavarik:

Zitat von EWeiss:

Mache ich ja siehe letzter Beitrag..

Delphi-Quellcode:

    SList := TStringList.create;
     SList.LoadFromFile(Filename); // öffnen
     if SList.Strings[0] = '#EXTM3U' then // Bereich auslesen
       CheckM3U := true;
     SList.Free; // schließen

     AssignFile(F, Filename); // öffnen

ohne Array !!

Echt jetzt? Den ganzen File in Memory laden um festzustellen, ob in der 1. Zeile ein Token steht...
Und wenn es eh schon im Speicher ist, dann nicht die List ergänzen und SavetoFile…

omg... Ich gebe auf.

Echt jetzt?
Liest du eigentlich auch was anderes als nur das was dir so gefällt?
Nochmal extra für dich!

Delphi-Quellcode:

    AssignFile(F, Filename); // öffnen
     Reset(F); // Zeilenanfang
     while not Eof(F) do
     begin
       ReadLn(F, Buffer);
       if Buffer = '#EXTM3U' then // gefunden 
       begin
         CheckM3U := true;
         break; // raus hier
       end;
     end;
     CloseFile(F); // schließen

Den Post hättest du dir gerne sparen können denn er war unnötig.
Möchtest du mich diffamieren oder was bezweckst du damit!
Ohne dein ominöses Array.. Sorry das musste jetzt sein.

Manchmal fällt einem nichts ein deshalb aber versuchen hier jemand zur Schau zu stellen ist auch nicht die feine Art.

Zitat von Mavarik:

Zitat von EWeiss:

Readln(F,Array[i]) Hier kracht es schon.. direkt nach dem öffnen.

Ich hoff Du hast es so nicht geschrieben...

sondern

Delphi-Quellcode:

Var
  S : TArray<String>;

Zeig mal den Code PLS

Nur eines der Beispiele. .Das du mich für so blöd hältst das ich mein Array so auslegen würde spricht schon für sich.
OK! Ist gut Thema erledigt.. Trotzdem Danke.

gruss

[DieDolly]

Zitat von Mavarik:

Echt jetzt? Den ganzen File in Memory laden um festzustellen, ob in der 1. Zeile ein Token steht...

Vielleicht so?

Delphi-Quellcode:

function IsM3UFile(const AFileName: string): BOOLEAN;
 var
  FileStream: TFileStream;
  LineBuffer: TBytes;
  Encoding: TEncoding;
  Line: string;
 begin
  Result := False;

  FileStream := TFileStream.Create(AFileName, fmOpenRead);
  try
   SetLength(LineBuffer, 7);
   FileStream.Read(LineBuffer[0], Length(LineBuffer));
   TEncoding.GetBufferEncoding(LineBuffer, Encoding);

   Result := Encoding.GetString(LineBuffer).StartsWith('#EXTM3U');
  finally
   FileStream.Free;
  end;
 end;


 B := IsM3UFile();

Kann man eventuell noch umschreiben, sodass #EXTM3U reingeschrieben wird, wenn es nicht existiert.