Copie de fichier, ligne par ligne + ajout

Version imprimable

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:

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.

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:

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

Est-ce que c'est ce que tu voulais?

Bonne continuation.

02/10/2012, 15h54
ruxxy

Bonjour,

C'est exactement ce que je cherchais ;)

Un grand merci !
02/10/2012, 16h44
hackoofr

Citation:

Envoyé par ruxxy

Bonjour,
C'est exactement ce que je cherchais ;)
Un grand merci !

:salut:
Si votre problème est résolu alors, pensez à cliquer sur le bouton :resolu: en bas à droite et attribuer une note de +1 :plusser: pour la réponse pertinente.
Cordialement :ccool: