slet linie i txt fil og slet fil

til det første sp.
jeg ville lave et array med 100 indgange indlæse linierne heri, slette den gamle fil, og så smide de 99 ind i en ny med samme navn.

andet spørgsmål(og delvist det første)
du sletter en fil vha. kommandoen kill filnavn

jeg har vidst formuleret mit andet spørsmål lidt forkert det er kun indholdet af filen der skal slettes

kan man ikke slette en bestem linie (her linie1) fra en fil uden at lave det med array som du foreslår

Jeg bruger tekstfiler, - altså rene ascii-filer - som databaser, så jeg bruger ofte at slette en bestemt linie- eller rette.

Jeg bruger to filer:  Den jeg læser fra og den jeg skriver til.  Det er let at tælle antal linier i en tekstfil.  Alt under forudsætning af at det er CR + LF (ascii 13 & 10 - Enter-tasten) der adskiller linierne.

Dim linie as String
Dim a, b as Integer

Open dinsti & \"\\dinfil.txt\" for Input as #1
  Do while eof(1) = false
    Line Input #1, linie
    a = a +1
  Loop
Close #1

If a > 100 then b = 100 - a

Open dinsti & \"\\dinfil.txt\" for Input as #1
Open dinsti & \"\\dinfil.bak\" for Output as #2
  Do While EOF(1) = False
    Line Input #1, linie
    a = a + 1
    if a > b then print #2, linie
  Loop
Close #1
Close #2

FileCopy dinsti & \"\\dinfil.bak\" , dinsti & \"\\dinfil.txt\"

Du kan jo indsætte at det kun skal udføres når b > 50 eller lign.

For at slette indholdet i en fil uden at slette filen:

Open dinfil.txt for output as #1
  print #1, \"\"
close #1

M.v.h.  Jørn

tak for hjælpen jørn det var din løsning der kunne bruges jelzin får 10 point for hans indslag

undskyld jørn det var meningen du skulle have 25 point jeg ved ikke hvad der gik galt, hvordan kan jeg give dig de sidste

tak for pts