Type Zeilen Field Zeile$ End Type ; zum zwischenspeichern der Datei
key$="network.proxy.http"; suche nach...
;Datei einlesen
INI%= ReadFile("prefs.js")
If ini = 0 Then RuntimeError("Datei nicht gefunden")
   
While Not Eof(INI)
    z.Zeilen = New Zeilen
    z\zeile  = ReadLine (INI)
Wend
CloseFile INI%


For z.Zeilen =Each Zeilen
    If AktivZumLesen=1 Then;erst wenn die Zeile "[Engine.Input]" gefunden wurde ist das aktiv und die Suche geht los
       ; Schleife verlassen da alle relevanten abgearbeitet
       If Instr(z\zeile,"network.proxy.http") Then Exit ; dieses wird erst ausgefüht wenn alle Daten von "[Engine.Input]" ausgeführt sind
     
        PositionGleich% = Instr (z\zeile,"network.proxy.http"); das = Zeiechen suchen
        If PositionGleich% > 0 Then ;also nur wenn das = zeichen gefunden wurde
            GefundeneTaste$ = Left (z\zeile,PositionGleich-1) ;Taste rauskopieren aber ohne =
            WertDerTaste$ = Mid (z\zeile,PositionGleich+1);alles nach dem = Zeichen
            Print GefundeneTaste$
            Print "  Wert: " + WertDerTaste$
            ;....
            If Key$ = GefundeneTaste$ Then ;wichtig ist die Goss/Klein schreibung
                ;....Hier jetzt die Zeile abändern wie gewollt
                z\zeile = GefundeneTaste$ + "=" + "; Was_immer_da_dann_Stehen_soll"
                ;....
                ;....
            End If
        EndIf
    End If
    If AktivZumLesen=0 Then ;Zum lesen freischalten nach [Engine.Input]
        If Instr(z\zeile,"[Engine.Input]") Then AktivZumLesen=1
    End If
Next

;Datei speichern
INI%= WriteFile("ini.bb")

For z.Zeilen = Each Zeilen
    WriteLine (INI,z\zeile)
    Delete z ; den Eintrag aus der Liste löschen
Next
CloseFile INI%