Discussion :

[belfaigore]

Bonjour,

Je cherche le moyen de modifier la ligne 8 d'un fichier Txt. Y a t-il un moyen simple* ? sans avoir à reecrir dans un fichier temporaire.

* : sans utiliser la methode :
- Copie dans un fichier temporaire jusqu'à la ligne 8
- Ecriture de la nouvelle ligne 8
- Copie des lignes jusqu'à la dernière
- Ecrasement du fichier source par le fichier temporaire

[avigeilpro]

Essaye cela :

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
25
26
27
28
29
30
31
32
33
Dim Adresse As String
Dim Contenu As String
Dim Lignes() As String
Dim Boucle As Single

Adresse = "C:\MyFile.txt"

'Récupère le contenu du fichier
Contenu=Space(Filelen(Adresse))

Open Adresse For Binary As #1
       Get #1,,Contenu
Close #1

Lignes = Split(Contenu, VbCrLf)

'Modifie la ligne 8 du fichier
Lignes(7) = "Nouvelle ligne"  'ou autre traitement de la ligne 8 (index = 7 car 1ere à 0)

'Reconstruit le fichier
Contenu=""
For Boucle = 0 To Ubound(Lignes)
       Contenu=Contenu & Lignes(Boucle)
       If Boucle <> Ubound(Lignes) then Contenu = Contenu & VbCrLf
Next

'Détruit le fichier d'origine
Kill Adresse

'Réécrit le nouveau fichier
Open Adresse For Binary As #1
       Put #1,,Contenu
Close #1

[zazaraignée]

Salut avi

J'arrivais pas à te replacer jusqu'au souvenir d'une araignée... tu t'en es débarrassé?

Faut que j'essaie ça

Code :

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

Contenu=Space(Filelen(Adresse))

la connaissais pas!