Discussion :

[aliosys]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
saisie= 'récupération de données
 
Open "c:\test.txt" For Append As #1
Print #1, saisie
Close #1
 
On Error Resume Next
Open "c:\test.txt" For Input As #1
Line Input #1, saisie
tout = NameMusic
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, saisie
tout = tout + vbCrLf + saisie
Wend
End If
Text2.Text = tout
Close #1

avec cela j'aimerai rajouter du code pour effacer

[cari]

une astuce serait de créer un fichier en omettant d'écrire la première ligne du fichier de départ.

[aliosys]

c'est à dire

[SfJ5Rpw8]

c'est à dire

tiens voila

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub SupprimeLigne1()
Dim fl As Integer 'Fichier Lu
Dim fe As Integer 'Fichier ecrit
Dim St As String
Dim stFl As String 'Nom du ficier lu
stFl = "c:\test.txt"
Dim bLigne1 As Boolean
fl = FreeFile
Open stFl For Input As #fl
fe = FreeFile
Open stFl & ".$$$" For Output As #fe 'Fichier temporaire c:\test.txt.$$$
While Not EOF(fl)
Line Input #fl, St
 If bLigne1 Then Print #fe, St
 bLigne1 = True
Wend
Close #fl
Close #fe
On Error Resume Next 'Pour eviter message d'erreur si fichier effacé n'existe pas ..
Kill stFl & ".bak" 'Detruit sauvegarde précédente
On Error GoTo 0
Name stFl As stFl & ".bak"
Name stFl & ".$$$" As stFl
End Sub

Fonctionnement ...:
Lecture fichier et écriture sauf 1° ligne dans nouveau fichier ".$$$"
Renomme Fichier traité ".bak"
Renomme fichier Copié en supprimant les ".$$$"

[aliosys]

je te remercie amplement pour ton aide