Discussion :

[duduch33]

Bonjour, je débute en vbs et je dois faire un script qui doit récupérer le contenu de plusieurs fichiers TXT et le mettre dans un autre fichier.

par exemple : fichier1.txt (son contenu)=01234
fichier2.txt = abcdef

et le résultat devrait faire : fichierresultat.txt =
01234
abcdef

je vous remercie.

[ProgElecT]

Salut
Bienvennue sur DVP.
Comment lire le contenu d'un fichier texte ?
Comment écrire dans un fichier texte ?

[duduch33]

Merci mais j'avais bien vu ces articles mais je ne m'en sors pas pour autant :-(

[l_autodidacte]

Un exemple de code pour copier le contenu de 2 fichiers dans un autre :

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
Const ForReading = 1 , ForAppending = 8
Dim oFso, fich1, fich2, fDest
Dim ts1, ts2
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set fich1 = oFso.OpenTextFile("c:\Tmp\test1.txt", ForReading)
  ts1 = fich1.ReadAll 
  fich1.Close
  Set fich2 = oFso.OpenTextFile("c:\Tmp\test2.txt", ForReading)
  ts2 = fich2.ReadAll
  fich2.Close
  Set fDest = oFso.OpenTextFile("c:\Tmp\Resultat.txt", ForAppending,True)
  fDest.Write ts1
  fDest.Write String(30,"=") & VbNewLine ' Séparateur entre les 2 textes(facultatif)
  fDest.Write ts2
 
  fDest.Close

Si tes "plusieurs fichiers texte" sont dans un même répertoire, tu peux faire la même chose en utilisant une boucle For Each ...Next

[duduch33]

Merci beaucoup cela va beaucoup m'aider ! juste encore une petite question comment je dois faire si je ne veux que le contenu qu'une seule fois (si j"execute plusierus le vbs je ne veux que le contenu qu'une seule fois)

[hackoofr]

Merci beaucoup cela va beaucoup m'aider ! juste encore une petite question comment je dois faire si je ne veux que le contenu qu'une seule fois (si j"execute plusierus le vbs je ne veux que le contenu qu'une seule fois)

Bonjour , Si j'ai bien compris votre Question donc il faut faire ceci : Au lieu d'utiliser

Code :

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

la Constante ForAppending = 8

,il faut utiliser

Code :

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

la Constante ForWriting = 2

Voila essaye ce

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
Const ForReading = 1 , ForAppending = 8 , ForWriting = 2
Dim oFso, fich1, fich2, fDest
Dim ts1, ts2
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set fich1 = oFso.OpenTextFile("c:\Tmp\test1.txt", ForReading)
  ts1 = fich1.ReadAll 
  fich1.Close
  Set fich2 = oFso.OpenTextFile("c:\Tmp\test2.txt", ForReading)
  ts2 = fich2.ReadAll
  fich2.Close
  Set fDest = oFso.OpenTextFile("c:\Tmp\Resultat.txt", ForWriting,True)
  fDest.Write ts1
  fDest.Write VbNewLine & String(30,"*") ' Saut de ligne avec un Séparateur entre les 2 textes(facultatif)
  fDest.Write VbNewLine ' saut de ligne
  fDest.Write ts2
  fDest.Close

[duduch33]

Merci beaucoup !!!