Zeilen txt löschen

[Fanpost]

Hallo, ich suche ein Code-Beispiel um in einer txt-Datei eine bestimmte Zeilenanzahl von unten, z.B. die letzten 10, zu löschen. Kann mir da jemand behilflich sein?

[Mijikai]

Mit

Code: Alles auswählen

TruncateFile(#Datei)

sollte das gehen.

Beispiel:

Code: Alles auswählen

Procedure.i CutFilePart(File.s,Length.i)
  Protected FileHandle.i = OpenFile(#PB_Any,File)
  If FileHandle
    If Length < Lof(FileHandle)
      FileSeek(FileHandle,Length)
      TruncateFile(FileHandle)
      CloseFile(FileHandle)
      ProcedureReturn #True    
    EndIf
    CloseFile(FileHandle)
  EndIf 
EndProcedure

[mk-soft]

Ist ein wendig Kopfarbeit.
Normalerweise muss man alle Zeilen einmal durchgeben und Position der letzen 10 Zeilen merken.
Dann die Datei mit der gemerkten Position abschneiden (Truncate)

Bei sehr grossen Dateien ist das aber langsam.

Alternative die Datei Blockweise von hinten in ein Buffer laden und selber nach den Zeilenumbruch suchen

- Window #LFCR$
- Linux #LF$ oder #CR$
- MacOS #CR$ oder #LF$

[Fanpost]

Danke. Da ich aber die Weisheit nicht mit Löffeln gefressen habe, brauche ich halt ein Code-Schnippsel

[Josh]

Alternative die Datei Blockweise von hinten in ein Buffer laden und selber nach den Zeilenumbruch suchen

Warum Blockweise? Datei komplett in einen Buffer laden und von hinten zu suchen beginnen.

Auf jeden Fall über Pointer arbeiten, bei Stringoperationen ist die Zigarettenpause sonst schon mitprogrammiert.

[NicTheQuick]

Alternative die Datei Blockweise von hinten in ein Buffer laden und selber nach den Zeilenumbruch suchen

Warum Blockweise? Datei komplett in einen Buffer laden und von hinten zu suchen beginnen.

Je nachdem wie groß die Datei ist, fände ich es Blockweise auch nicht schlecht.

[Josh]

Je nachdem wie groß die Datei ist, fände ich es Blockweise auch nicht schlecht.

Warum? Du musst ohnehin die ganze Datei laden, weil du ja das Ende benötigst. Wobei ich mal davon ausgehe, dass es keine Datei von 1 GB oder so ist

[GlassJoe]

Also ich würde es so machen, daß ich ganz normal einlesen lasse und das gleichzeitig in eine linkedlist schmeisen, und alles bis auf die letzten 10 Positionen in eine >neue< (keine Experimente mit der Quelle) Datei schreiben.
Wenn es nicht grade riesige Dateien sind, geht es damit auch sehr schnell.

Code: Alles auswählen

  
  NewList bla.s()
  
  If ReadFile(0,"C:\proglist.txt") And CreateFile(1,"C:\somerandomfile.txt")
    ClearList(bla.s())
    While Eof(0) = #False
      a$ = ReadString(0)
      If a$
        AddElement(bla.s())
        bla() = a$ 
      EndIf 
    Wend
    Max = ListSize(bla.s())
    If Max > 10
      Max -1
      For Pos = 0 To Max -10
        SelectElement(bla.s(),Pos)
        Debug bla()
        WriteStringN(1,bla())
      Next 
    EndIf
    CloseFile(0)
    CloseFile(1)
  EndIf

[Fanpost]

@ GlassJoe

Danke. Ich muss leider mit der "Quell-Datei" arbeiten

[GPI]

Warum? Du musst ohnehin die ganze Datei laden, weil du ja das Ende benötigst. Wobei ich mal davon ausgehe, dass es keine Datei von 1 GB oder so ist

Nö, wozu. Es wäre auch gut zu wissen, wie lange eine Zeile theoretisch sein kann. Wenn sie bspw. maximal 1000 Zeichen lang sein kann:
Mit FileSeek() 1000*10 vor das ende springen
Den block einlesen.
Von hinten her anfangen die Linefeeds zu suchen, diese zählen und die Position merken (Procode, wenn man die Zeilenlänge nicht kennt: blockende feststellen, Block davor laden und weitersuchen, aufpassen bei der Filepos-Berechnung! nicht verhauen)
mit fileseek() zu dieser Position springen (Achtung Speicherposumrechnung auf Filepos nicht verhauen)
mit TruncateFile() die datei kürzen

fertig.

Warum alles einlesen? wäre unsinn. Mit der Methode kannst du auch Terrabytegroße Dateien in sekunden bearbeiten.

@ GlassJoe

Danke. Ich muss leider mit der "Quell-Datei" arbeiten

Zum testen aber eine Kopie machen und mit der arbeiten:)

Darf man fragen, was zur Hölle du da eigentlich löschen willst?