Appliquer le script sur les fichiers de répertoire

Version imprimable

Slt a tous
J'ai un script qui modifie un fichier File.txt qui se trouve dans le repertoire Script
et je veux appliquer ce script sur tous les fichiers qui se trouvent dans le même répertoire
sa veut dire: les modifier tous par un seule script

voici le script que je l'utilise
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Set objFS = CreateObject("Scripting.FileSystemObject") strFile = "C:\Documents and Settings\ABBAN\Bureau\Script\File.txt" Set objFile = objFS.OpenTextFile(strFile) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine If InStr(strLine,"AAAAA")> 0 Then strLine = Replace(strLine,"AAAAA","BBBBB") End If If InStr(strLine,"CCCCC")> 0 Then strLine = Replace(strLine,"CCCCC","ZZZZZ") End If WScript.Echo strLine Loop

24/01/2014, 22h27
ProgElecT

Salut, bienvenue sur DVP

En adaptant/utilisant Comment lister les fichiers d'un dossier ? de la FAQ VBScript, en la reliant ce code avec celui que tu proposes, cela devrait fonctionner.
24/01/2014, 22h41
ABBAN270

Pouvez vous me guider pour adapter le code.
Car je suis débutant.
Merci pou l'aide ProgElecT

:salut:
Ce code est à tester chez vous et dites-moi, s'il y a un problème ou non :roll:

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
Dim stRep 'Nom du répertoire à parcourir
Dim oFSO,oFl,Ext 
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = Parcourir_Dossier()
MsgBox stRep,64,"Chemin du dossier à traiter"
If oFSO.FolderExists(stRep) Then
    For each oFl in  oFSO.GetFolder(stRep).Files
'ici dans ce tableau vous pouvez ajouter d'autres extensions de type texte
        Ext = Array(".txt",".asp",".php",".rtf",".html",".htm",".hta",".xml",".csv",".vbs",".js",".css",".ini",".inf")
        For i=LBound(Ext) To UBound(Ext)
            If instr(lcase(oFl.name),Ext(i)) > 0 Then 
                Set ReadFile = oFSO.OpenTextFile(oFl,1)
                Do Until ReadFile.AtEndOfStream
                    strLine = ReadFile.ReadLine
                    If InStr(strLine,"AAAAA")> 0 Then
                        strLine = Replace(strLine,"AAAAA","BBBBB")
                        WScript.Echo strLine
                    End If 
                    If InStr(strLine,"CCCCC")> 0 Then
                        strLine = Replace(strLine,"CCCCC","ZZZZZ")
                        WScript.Echo strLine
                    End If 
                Loop
            End if
        Next 
    Next
End If
'*************************************************************************
Function Parcourir_Dossier()
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "Veuillez choisir un dossier pour le traitement !",1,"c:\Programs")
    If objFolder Is Nothing Then
        Wscript.Quit
    End If
    NomDossier = objFolder.title
    Parcourir_Dossier = objFolder.self.path
end Function
'*************************************************************************

25/01/2014, 09h28
ABBAN270

Merci hackoofr
le script marche
mais il na pas modifier les fichiers qui se trouve dans le répertoire
il nous manque le output

:salut:
Testez ce :

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
Option Explicit
Const ForReading = 1
Const ForWriting = 2
Dim stRep 'Nom du répertoire à parcourir
Dim oFSO,oFl,Ext,ReadFile,strLine,OutPutFile,i 
'ici dans ce tableau vous pouvez ajouter d'autres extensions de type texte
Ext = Array(".txt",".asp",".php",".rtf",".html",".htm",".hta",".xml",".csv",".vbs",".js",".css",".ini",".inf")
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = Parcourir_Dossier()
MsgBox qq(stRep),64,"Chemin du dossier à traiter"
If oFSO.FolderExists(stRep) Then
    For each oFl in  oFSO.GetFolder(stRep).Files
       For i=LBound(Ext) To UBound(Ext)
          If Instr(lcase(oFl.name),Ext(i)) > 0 And  oFl.size <> 0 Then 
              Set ReadFile = oFSO.OpenTextFile(oFl,ForReading)'Ouvrir le fichier en lecture Seule
              strLine = ReadFile.ReadAll 'Lecture de la totalité du fichier
              Set OutPutFile = oFSO.OpenTextFile(oFl,ForWriting) 'Ouvrir le fichier en écriture
              strLine = Replace(strLine,"AAAAA","BBBBB")
              strLine = Replace(strLine,"CCCCC","ZZZZZ")
              OutPutFile.WriteLine strLine
              MsgBox strLine,64,"Le fichier "& qq(oFl.name) 
          End if
        Next 
    Next
End If
'***************************************************************************************************
Function Parcourir_Dossier()
Dim objShell,objFolder,NomDossier
	Set objShell = CreateObject("Shell.Application")
	Set objFolder = objShell.BrowseForFolder(0, "Veuillez choisir un dossier pour le traitement !",1,"c:\Programs")
	If objFolder Is Nothing Then
		Wscript.Quit
	End If
	NomDossier = objFolder.title
	Parcourir_Dossier = objFolder.self.path
end Function
'***************************************************************************************************
Function qq(strIn)
	qq = Chr(34) & strIn & Chr(34)
End Function
'***************************************************************************************************

25/01/2014, 14h36
ABBAN270

En Fin sa marche très bien.
Vous êtes le meilleur Hackoofr

hackoofr
votre script ne veut pas foncionner avec cette instruction

Code:

1
2
3
4
5
6
    If InStr(strLine,"11")> 0 Then
    	strLine = Replace(strLine,"11","22") & "33" & Chr(10)
    End If 
    If InStr(strLine,"AA")> 0 Then
	strLine = Replace(strLine,"AA","BB") & "CC" & Chr(10)
    End If

http://photouploads.com/images/copiedmwm.jpg

Bonjour,

Pour ce besoin, il faut lire (et traiter) le fichier input ligne par ligne et non pas dans sa globalité. Par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Set objFso = CreateObject("Scripting.FileSystemObject")
strInputFolder = "C:\..\Script\"
For Each objInputFile In objFso.GetFolder(strInputFolder).Files
	strOutput = ""
	Set objTmpFile = objFso.OpenTextFile(objInputFile.Path, 1)
	Do Until objTmpFile.AtEndOfStream
		strLine = objFile.ReadLine
		If InStr(strLine,"11")> 0 Then
			strLine = Replace(strLine,"11","22") & "33" & Chr(10)
		End If 
		If InStr(strLine,"AA")> 0 Then
			strLine = Replace(strLine,"AA","BB") & "CC" & Chr(10)
		End If
		strOutput = strOutput  & strLine & vbCrLf
	Loop
        objTmpFile.Close
	objFso.OpenTextFile(objInputFile.Path, 2).Write strOutput
Next

(non testé)

Bonne continuation

Citation:

Envoyé par pitchalov

Bonjour,

Pour ce besoin, il faut lire (et traiter) le fichier input ligne par ligne et non pas dans sa globalité. Par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Set objFso = CreateObject("Scripting.FileSystemObject")
strInputFolder = "C:\..\Script\"
For Each objInputFile In objFso.GetFolder(strInputFolder).Files
	strOutput = ""
	Set objTmpFile = objFso.OpenTextFile(objInputFile.Path, 1)
	Do Until objTmpFile.AtEndOfStream
		strLine = objFile.ReadLine
		If InStr(strLine,"11")> 0 Then
			strLine = Replace(strLine,"11","22") & "33" & Chr(10)
		End If 
		If InStr(strLine,"AA")> 0 Then
			strLine = Replace(strLine,"AA","BB") & "CC" & Chr(10)
		End If
		strOutput = strOutput  & strLine & vbCrLf
	Loop
        objTmpFile.Close
	objFso.OpenTextFile(objInputFile.Path, 2).Write strOutput
Next

(non testé)

Bonne continuation

Ne fonctionne pas Merci

28/01/2014, 19h02
pitchalov

Ok
Effectivement il y a une variable que j'ai oublié de renommer (il suffit de lire et de corriger --> 3 sec) ce qui peut arriver sur des codes non testés.
Après, au vu de la formalité de votre retour, je me dis que ce n'était pas forcément une bonne idée d'essayer de vous aider, mais je ne m'y méprendrai plus.

Bonne continuation, tout de même
01/02/2014, 19h57
ABBAN270

Merci pour l'aide ~~comeme~~ quand même