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.