read und write

[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

[Mavarik]

Zitat von EWeiss:

Möchtest du mich diffamieren oder was bezweckst du damit!

Nein, natürlich nicht - wenn Du es so aufgefasst hast, entschuldige ich mich hierfür...

[EWeiss]

Zitat von Mavarik:

Zitat von EWeiss:

Möchtest du mich diffamieren oder was bezweckst du damit!

Nein, natürlich nicht - wenn Du es so aufgefasst hast, entschuldige ich mich hierfür...

Danke! Und vergessen..

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.

[EWeiss]

Zitat:

Vielleicht so?

Das Thema ist doch erledigt
Ich sehe jetzt keinen Anlass hier noch was zu ändern.
Es tut was es soll.

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

gruss

[p80286]

Entschuldige wenn ich darauf herum reite. Wenn '#EXTM3U' in der ersten Zeile steht, dann reicht es auch, die erste Zeile zu lesen.
Sollte der Text in der 1. oder 2. oder 3. oder... Zeile stehen, dann

Delphi-Quellcode:

var
  buffer : array [0..$FFFF] of byte; // macht es etwas schneller
  enthaltext3m3u : boolean;

enhaltext3mu:=false;
assignfile(f,Myfile);
reset(f,buffer);
while not(eof(f)) and (mystring<>'#EXTM3U') do 
begin
  readln(f,mystring);
  enthaltext3mu;)mystring='#EXTM3U';
end;
closefile(f);
assignfile(f,myfile);
if enthaltext3mu and not(clear) then
  reset(f,buffer)
else
  rewrite(f,buffer);

(ohne gewähr!)

Ich hoffe ich hab an alles gedacht.

Gruß
K-H