Copie de fichier, ligne par ligne + ajout

**ruxxy** · 26/09/2012, 16h38

Bonjour à tous,

Comment faire pour copier le contenu d'un fichier texte dans un autre fichier mais en y ajoutant une ligne à un endroit donné ?

Exemple :
Dans mon fichier source, j'ai une ligne qui est exactement "B95A".
J'aimerais ajouter une ligne en dessous de cette derniere dans le nouveau fichier.

J'arrive à copier mon fichier ligne par ligne :

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
 
nomfich="test.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set fich_source = fs.OpenTextFile(nomfich, 1, False)
Set nouv_fich = fs.OpenTextFile(left(nomfich,len(nomfich)-4) & "_new.txt", 2, true)
 
Do While not fich_source.AtEndOfStream
nouv_fich.writeLine fich_source.readLine
nouv_fich.writeBlankLines 1
Loop
 
nouv_fich.close
fich_source.close
Set nouv_fich=nothing
Set fich_source=nothing
Set fs=nothing

Pourriez vous m'indiquer le moyen d'ajouter une ligne à un endroit donné ?

Merci d'avance pour vos réponses.

**pitchalov** · 27/09/2012, 09h14

Bonjour,

Pour faire cela, je propose une comparaison de chaque ligne du fichier avec la ligne "B95A". Si lelle est trouvée, on rajoute la nouvelle ligne en dessous :

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
 
Const STR_SPECIAL_LINE = "B95A"
Const STR_NEW_LINE = "la nouvelle ligne à insérer"
 
nomfich="test.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set fich_source = fs.OpenTextFile(nomfich, 1, False)
Set nouv_fich = fs.OpenTextFile(left(nomfich,len(nomfich)-4) & "_new.txt", 2, true)
 
Do While not fich_source.AtEndOfStream
  strTmpLine = fich_source.readLine
  nouv_fich.writeLine strTmpLine
  If StrComp(strTmpLine, STR_SPECIAL_LINE, vbText) = 0 Then nouv_fich.writeLine STR_NEW_LINE 
Loop
 
nouv_fich.close
fich_source.close
Set nouv_fich=nothing
Set fich_source=nothing
Set fs=nothing