Remplacement d'une ligne par une autre ligne

Version imprimable

15/07/2011, 15h41
thisistheend

Remplacement d'une ligne par une autre ligne
Bonjour à tous,

Je souhaiterais, par le biais d’un script VBS, ouvrir un ensemble de fichiers texte contenu dans un répertoire et remplacer la première ligne de chaque fichier par une nouvelle ligne.
Je m’explique : j’ai un ensemble de fichier texte dans un répertoire appelé Toto.
Code:

1 2 3 4 5 Toto ---------->TextFile1.txt ---------->TextFile2.txt ... ---------->TextFileN.txt
Chaque fichier TexteFilei.txt contient en début de fichier les lignes suivantes (la chaîne Foo.txt est variable entre chaque fichier et peut prendre n'importe quelle valeur) :
Code:

1 2 3 Name Foo.txt Folder C:\TEMP\Toto …
Mon but est d’ouvrir chacun de ces fichiers TexteFilei, de le mettre en écriture, et de remplacer la première ligne (sachant que celle-ci n’a de commun entre tous les fichiers que la chaîne Name au début, cd contenu ci-dessus) par une nouvelle ligne, i.e.:
Name Toto_TexteFilei.txt

Est-ce possible? Si oui, quelle fonction dois-je utiliser?
Ou serait-il plus simple de remplacer ce qui suit la chaîne Name jusque la fin de la première ligne par ce que je souhaite (i.e. Toto_TexteFilei.txt)? Si oui, auriez-vous une idée de comment le faire?

Merci d’avance pour votre aide :).
15/07/2011, 17h10
ProgElecT

Salut

Il faut ouvrir chaque fichier en lecture, récupérer son contenu, fermer le fichier en lecture, remplacer la ligne, ré ouvrir le fichier en écriture et sauvegarder le fichier sous le même nom.

Il y a toutes les réponses pour y parvenir dans ce forum et dans la FAQ VBScript.
Reviens nous avec le code que tu auras écrit, si tu as des difficultés à mettre en œuvre.

Ayé, j'ai réussi. Voici le code qui m'a permis de faire ce que je voulais :-).

Code:

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
34
35
36
37
38
39
40
41
Const ForReading = 1
Dim objFSO, stRep, oFld, oFile, oFileDir, FileContents, dFileContents, arrLines, tobereplaced
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Temp\Test"
If objFSO.FolderExists(stRep) Then
	For each oFld in objFSO.GetFolder(stRep).SubFolders
 
		For Each oFile In objFSO.GetFolder(strep & "\" & oFld.Name).Files
 
			Set oFileDir = objFSO.OpenTextFile(oFile.Path,ForReading)
			FileContents = oFileDir.ReadAll
			oFileDir.Close
			arrLines = Split(FileContents,vbCrLf)
			tobereplaced = right(arrLines(0), len(arrLines(0)) - 6)
 
			'Replace the string in the source file by the new one
			dFileContents = replace(FileContents, tobereplaced, oFld.Name &  "_" & oFile.Name)
 
			'Compare the source and the result and perform the replacement
			If dFileContents <> FileContents Then
			  WriteFile oFile.Path, dFileContents
			End If
 
		Next   
 
	Next
End If
 
 
 
 
'Function to replace the whole content of a file
function WriteFile(FileName, Contents)
  Dim OutStream, FS
 
  on error resume Next
  Set FS = CreateObject("Scripting.FileSystemObject")
    Set OutStream = FS.OpenTextFile(FileName, 2, True)
    OutStream.Write Contents
End Function

Merci pour ton aide tout de même :-).