Effacer les lignes dans un fichier texte

[Creepy]

Bonjour à tous,

Je voudrais effacer toutes les lignes d'un fichier .txt sous VBA, sauf la première qui est indispensable pour que le fichier fonctionne !

Merci de votre aide

++

Creepy

 

[@+Thierry]

Salut Creepy

Et bien c'est très simple tu écrase ton fichier TXT avec Output au lieu de Append...

Exemple
Sub EraseTxt()
Dim ThePath As String, TheHeaders As String
ThePath = "C:\Mes Documents\TheTxtFile.txt"

TheHeaders = "User Name" & vbTab & "User Address" & vbTab & "User City"

Open ThePath For Output As #1
Print #1, TheHeaders
Close #1
End Sub

Ici j'image tes headers avec Tabulation en séparateurs, à toi d'adapter.

Bon Dimanche
@+Thierry

 

[yeahou]

Bonjour Creepy, Thierry, le forum

ton fichier, Thierry, écrase le fichier originel avec de nouvelles données. Pour effacer toutes les lignes sauf la première, je ferai plutôt:

Sub Efface_Lignes_Sup1()
Dim Ligne As String
Open "d:\copy\test.txt" For Input As #1
Line Input #1, Ligne
Close #1
Open "d:\copy\test.txt" For Output As #1
Print #1, Ligne
Close #1
End Sub

je récupére la première ligne et re écrit le fichier avec.

Cordialement, A+

 

[omicron]

Bonjour Creepy,

Voilà quelques instructions qui après adaptation devraient répondre au problème posé

=====================================================
Private Sub CommandButton5_Click()

FileNumber = FreeFile
Open "c:\test.txt" For Input As FileNumber
Line Input #FileNumber, FirstRecord
Close FileNumber

FileNumber = FreeFile
Open "c:\test.txt" For Output As FileNumber
Print #FileNumber, FirstRecord
Close FileNumber

End Sub
=====================================================

Attention !!!
Je suis allé au plus court et n'ai pas programmé les exceptions :
- fichier inexistant
- fichier vide (pas de première ligne)
- etc

Cordialement.

Omicron.

 

[yeahou]

Re à tous

en retard, Omicron ;-)

A+