slet sektion fra ini-fil

Du har jo 99% af svaret i http://www.eksperten.dk/spm/479288 (som du mangler at lukke)

Du kan bruge IF newssection=false så skriv linien til en ny fil. Den nye fil vil da indeholde det samme som den oprindelige men uden det der står i newssection

yeah, lige nu ser den sådan her ud:

Private Sub cmdDelNews_Click()
DeleteNews ("www.bt.dk")
End Sub

Private Sub Delete_News(Dummy As String)
  Dim Section As Boolean
  Filnummer = FreeFile
  Open App.Path & "\minidata.ini" For Input As #Filnummer

  Section = False
  While Not EOF(Filnummer)
    Line Input #Filnummer, Dummy
    If LTrim(RTrim(Dummy)) = "[" & Section & "]" Then Section = False
    If Section = True Then lstNews.AddItem Dummy
    If LTrim(RTrim(Dummy)) = "[News]" Then Section = True
  Wend
  Close #Filnummer
End Sub


jeg er godt klar over at den lige nu forsøger at smide noget ind i en list box, men jeg forstår ikke hvordan jeg laver den om til at slette istedet for det.
jeg har ingen erfaring med at slette fra filer, indtil nu er jeg kun nået til at læse og skrive til filer...

Det er også det eneste du kan - læse og skrive.

Så du må læse linie for linie, og skrive linie for linie til en ny fil. Og så kan du nøjes med at skrive de linier, der ikke har noget med news at gøre, så vil de mangle i den nye fil (dvs. de er "slettet")

Så opret en ny fil, og skriv linierne til den inde i loopet, sådan som jeg forklarede

Jeg har læst din kode - det er noget underligt noget du skriver. Hvorfor smider du www.bt.dk over i dummy - du bruger den jo ikke.

Og hvad er det for noget mystisk noget med "[" & Section & "]" ???
Section kan kun indeholde True og False. Hmm - hvad mon det er du forsøger?

Jeg har taget min gamle kode, og skrevet den om, så den gemmer alt undtagen newssectionen i en ny fil.


Private Sub cmdDelNews_Click()
  DeleteNews ("C:\Nyfil.txt")
End Sub

Private Sub Delete_News(NytFilNavn As String)
  Dim Section As Boolean
  Dim FilNummer1 as Integer 
  Dim FilNummer2 as Integer 
  Filnummer1 = FreeFile
  Filnummer2 = Filnummer1 + 1

  Open App.Path & "\minidata.ini" For Input As #Filnummer1
  Open nytFilNavn For Output As #Filnummer2


  newssection = false
  while not eof(filnummer) 
    Line Input #Filnummer, Dummy
    if ltrim(rtrim(dummy)) = "[News_Type]" then newssection = false
    if newssection = true then list1.additem Dummy
    if ltrim(rtrim(dummy)) = "[News]" then newssection = true
    If newsSection = Fale then Print #Filnummer2, Dummy
  Wend 
  Close #Filnummer1
  Close #Filnummer2
End Sub

If newsSection = Fale
=
If newsSection = FalSe

Og
Dim Section As Boolean
Skal rettes til
Dim newsSection As Boolean

Og et par andre rettelser. Det hele blev blandet lidt sammen. Altså - copy-paste dette

Private Sub cmdDelNews_Click()
  DeleteNews ("C:\Nyfil.txt")
End Sub

Private Sub Delete_News(NytFilNavn As String)
  Dim NewsSection As Boolean
  Dim FilNummer1 as Integer 
  Dim FilNummer2 as Integer 
  Dim Dummy as string

  Filnummer1 = FreeFile
  Filnummer2 = Filnummer1 + 1

  Open App.Path & "\minidata.ini" For Input As #Filnummer1
  Open nytFilNavn For Output As #Filnummer2

  newssection = false
  while not eof(filnummer1) 
    Line Input #Filnummer1, Dummy
    if ltrim(rtrim(dummy)) = "[News_Type]" then newssection = false
    if newssection = true then list1.additem Dummy
    if ltrim(rtrim(dummy)) = "[News]" then newssection = true
    If newsSection = False then Print #Filnummer2, Dummy
  Wend 
  Close #Filnummer1
  Close #Filnummer2
End Sub