Discussion :

[ABBAN270]

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 :

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

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

[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.

[ABBAN270]

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

[hackoofr]

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

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
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
'*************************************************************************

[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

[hackoofr]

Testez 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
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
'***************************************************************************************************

[ABBAN270]

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

[ABBAN270]

hackoofr
votre script ne veut pas foncionner avec cette instruction

Code :

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

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

[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 :

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
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

[ABBAN270]

Bonjour,

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

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
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

[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

[ABBAN270]

Merci pour l'aide comeme quand même