Zeile in TXT löschen

26/11/2007 - 12:04 von Hans Otany | Report spam
Hallo,

ich habe mehrere Strings zeilenweise in eine txt Datei geschrieben.
Nun lese ich diese txt bei Form.load aus und füge die Zeilen einem List
hinzu.
wenn ich nun einen Eintrag aus der List entferne, dann ist der weg und der
nàchste markiert.
Soweit so gut.
Nun komme ich aber nicht drauf wie ich gleichzeitig genau diesen Eintrag
auch aus der txt Datei raus bekomme.
Kann mir da jemand etwas helfen?


Vielen Dank.

mfg Hans


So sieht es aus:

Datei:
d: \\server1\mapping1
e: \\server2\mapping2

code:
With Form2.List1
Index = .ListIndex
If Index >= 0 Then
' Eintrag löschen
.RemoveItem Index

'Mapping aus config-Datei löschen
Open App.Path & "\config.txt" For Output As #1
While Not EOF(1)

HIER HÖRTS BEI MIR AUF

Wend
Close 1

' automatisch nachfolgenden Eintrag markieren
If Index > .ListCount - 1 Then Index = .ListCount - 1
.ListIndex = Index
End If
End With
 

Lesen sie die antworten

#1 Hans Otany
26/11/2007 - 12:50 | Warnen spam
hab nicht drann gedacht, dass ich ja nach dem remove eine Listbox habe wie
ich sie brauch und die einfach nur wieder wegschreiben brauch.

So gehts jetzt:

With Form2.List1
Index = .ListIndex
If Index >= 0 Then
' Eintrag löschen
.RemoveItem Index

'Mapping aus config-Datei löschen
List1.Refresh
F = FreeFile
Open App.Path & "\config.txt" For Output As #F
With List1
For I = 0 To .ListCount - 1
Print #F, .List(I)
Next I
End With
Close #F

' automatisch nachfolgenden Eintrag markieren
If Index > .ListCount - 1 Then Index = .ListCount - 1
.ListIndex = Index
End If
End With

Ähnliche fragen