Jag försöker radera en rad i en text fil..
här för att spara till txt filen

<code>
Private Sub cmdSpara_Click()
Open "Test.txt" For Append Shared As #1
Print #1, Text1.Text
Close #1
Text1.Text = ""
edit
End Sub
</code>

<code>
Public Function edit()
List1.Clear

iFreeFile = FreeFile
Open App.Path & "\Test.txt" For Input As iFreeFile
While Not EOF(iFreeFile)
Line Input #iFreeFile, strLine
List1.AddItem "" & strLine & ""
Wend
Close iFreeFile
End Function
</code>


men hur gör jag för att radera en rad i txtfilen

för att radera namnet i list rutan skriver jag

<code>
Private Sub cmdRadera_Click()
List1.RemoveItem List1.ListIndex
End Sub
'men hur skriver jag för att texten ska försvinna från textfilen....
</code>

Hej,

Du får ta och läsa över filen till en temporärfil där du hoppar över den rad du inte vill ha med. Sen raderar du orginal filen (kill) och döper om temporärfilen till rätt namn (rename).

MVH

/Magnus

då blir det massa mellanrum i posterna..

jag har en Combobox och värdena läses in från textfilen..
så då är det inte roligt med massa mellanrum...

Om du hoppar över att skriva en rad blir det ingen tom rad.
Du ska inte skriva en tom sträng till filen då får du en tom rad.

har du något code exempel hur du menar...

Här kommer ett exempel. Skapa filen C:\fil.txt i notepad och lägg till 3 rader med text för att provköra.

MVH

/Magnus

Dim intOrgFile As Integer
Dim intTempFile As Integer
Dim strRow As String
Dim intRecCount As Integer

intOrgFile = FreeFile
Open "c:\fil.txt" For Input As #intOrgFile
intTempFile = FreeFile
Open "C:\tempfile.txt" For Output As #intTempFile
While Not EOF(intOrgFile)
intRecCount = intRecCount + 1
Input #intOrgFile, strRow
If intRecCount <> 2 Then 'Hoppa över andra raden
Print #intTempFile, strRow
End If
Wend

Close #intOrgFile
Close #intTempFile

Kill "c:\fil.txt"
Name "c:\tempfile.txt" As "c:\fil.txt"

Hej kvirrgubben har synpunkter.:-)
Använd inte onödiga negationer.(Not)
Do Until EOF(intOrgFile)
intRecCount = intRecCount + 1
Input #intOrgFile, strRow
If intRecCount <> 2 Then 'Hoppa över andra raden
Print #intTempFile, strRow
End If
Loop
/Sven

Vad jag ser så är det för att skapa post i txt filen..
Jag vill kunna radera en post i txt filen

Posterna som finns i txt läses in i en rullningslista som finns i databasen
och där användarna själva ska kunna lägga till och radera..

det ända som fattas är att kunna radera en rad i txt filen....

Prova det här

<code>

Dim X, I As Integer
X = FreeFile
Open App.Path & "\test.txt" For Output As #X
For I = 0 To Combo1.ListCount - 1
Print #X, Combo1.List(I)
Next I
Close #X

</code>

Den raderar hela txt filen.
vill bara ha bort valfri rad

så här ser coden ut

<code>
Dim iFreeFile As Integer
Dim strLine As String

Private Sub cmdRadera_Click()
List1.RemoveItem List1.ListIndex
Dim X As Integer
Dim I As Integer
X = FreeFile
Open App.Path & "\Test.txt" For Output As #X
For I = 1 To List1.ListIndex - 1
Print #X, List1.List(I)
Next I
Close #X
End Sub

Private Sub cmdSpara_Click()
Open "Test.txt" For Append Shared As #1
Print #1, Text1.Text
Close #1
Text1.Text = ""
edit
End Sub

Public Function edit()
List1.Clear

iFreeFile = FreeFile
Open App.Path & "\Test.txt" For Input As iFreeFile
While Not EOF(iFreeFile)
Line Input #iFreeFile, strLine
List1.AddItem "" & strLine & ""
Wend
Close iFreeFile
End Function

Private Sub Form_Load()
edit
End Sub

Public Function spara1()
Open "Test.txt" For Append Shared As #1
Print #1, List1.ItemData
Close #1
edit
End Function

</code>