Faire un Scan/Replace de fichiers MS Office de façon réccursive

**Bragu Demon** · 09/07/2014, 15h38

Bonjour, le tire est assez clair.

en recherchant j'ai pu trouver ceci : (get-content monFichier) | foreach-object {$_ -replace "OLD", "NEW"} | set-content monFichier
La modification est bien effectuée, mais le fichier s'est retrouvé corrompu .....

Voici mon besoin final plus en détail :

Réaliser 2 scripts pour scanner puis remplacer une chaine de caractère dans des fichiers .doc

Script de scan :

1) Scanner une arborescence à la recherche d'une chaine de caractère (avec des fois des espaces) à l'intérieur des fichiers (sans tenir compte des méta données du fichier).

2) Inscrire dans un fichier le résultat du scan avec :

° le Sous-dossier traité,
° le nombre de fichiers parcourus,
° le nombre de modifications à faire,
° La liste des fichiers à modifier.

3) Pouvoir réutiliser ce fichier résultat en tant que fichier de paramètre pour effectuer dans un second script les modifs.

Script de remplacement :

4) Aller lire le fichier résultat du scan
5) copier dans un dossier de travail l'arborescence qui sera touchée
6) faire le remplacement dans les fichiers.

Chose qui serait pratique, serait d'avoir dans un fichier externe (type .ini) le paramétrage (l'emplacement du dossier parent, l'emplacement du dossier de travail et la chaine recherchée).

Une fois les 2 script passés, il n'y a plus qu'à recopier l'arborescence de l'emplacement de travail vers l'emplacement réell.

Petit dessin :

Emplacement réell :

Sous-dossier_1

Fichier_1.doc
Fichier_2 avec des espaces.doc
Fichier_3.doc

Sous-dossier_2

Fichier_4.doc
Fichier_5.doc
Fichier_6.doc
Fichier_7.doc

Sous-dossier_3

Sous-dossier_4

Fichier_8.doc
Fichier_9.doc
Fichier_10.doc
Fichier_11.doc
Fichier_12.doc
Fichier_13.doc

Emplacement de travail :

Sous-dossier_1

Fichier_1.doc
Fichier_2 avec des espaces.doc

Sous-dossier_2

Fichier_4.doc
Fichier_8.doc

Sous-dossier_3
Sous-dossier_4

Fichier_11.doc

Je me tourne vers powershell car la commande find ou findstr me ramène également des informations dans les tag des fichiers, ce que je souhaite éviter.

Actuellement, je bloque au premier point, et j'aimerai bien un petit coup de pousse .....

J'espère être clair.

A+

**Laurent Dardenne** · 12/07/2014, 17h29

Salut,

Envoyé par Bragu Demon

Réaliser 2 scripts pour scanner puis remplacer une chaine de caractère dans des fichiers .doc

Si tu parles de documents Word, il te faut utiliser Ole Automation.
Set-Content travaille au niveau Byte ou ASCII, pas étonnant que tu corromps un fichier Word avec.

**Bragu Demon** · 15/07/2014, 11h19

Merci Laurent, je vais regarder ça :-)

**Bragu Demon** · 22/07/2014, 09h56

Bonjour,

Je reviens aujourd'hui après quelques tests infructueux.
J'ai donc lu et testé le script cité en lien et voici le résultat :
Nom : ps.jpg
Affichages : 249
Taille : 143,7 Ko

Nom : ps.jpg
Affichages : 249
Taille : 143,7 Ko

C'est assez peut probant.

Voici mon code :

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
# Création de l'instance Word.application
$objWord = New-Object -ComObject word.application
$objWord.Visible = $True
$objDoc = $objWord.Documents.Open("D:\test.doc")
$objSelection = $objWord.Selection

# Texte recherché et de remplacement
$FindText = "searched for"
$ReplaceText = "recherché"

# Paramétrage des options pour le remplacement
$ReplaceAll = 2
$FindContinue = 1
$MatchCase = $False
$MatchWholeWord = $True
$MatchWildcards = $False
$MatchSoundsLike = $False
$MatchAllWordForms = $False
$Forward = $True
$Wrap = $FindContinue
$Format = $False


# Exécution de la recherche et du remplacement
objSelection.Find.Execute(
	$FindText,
	$MatchCase,
	$MatchWholeWord,
	$MatchWildcards,
	$MatchSoundsLike,
	$MatchAllWordForms,
	$Forward,
	$Wrap,
	$Format,
	$ReplaceText,
	$ReplaceAll
	)

Le fichier test.doc contient :

The text to be searched for. Use an empty string ("") to search for formatting only. You can search for special characters by specifying appropriate character codes. For example, "^p" corresponds to a paragraph mark and "^t" corresponds to a tab character.

J'aimerai bien un petit coup de main là

**Bragu Demon** · 22/07/2014, 11h14

A titre indicatif, voici ma version de powershell :

PS C:\Windows\System32\WindowsPowerShell\v1.0> $PSVersionTable

Name Value
---- -----
CLRVersion 2.0.50727.5466
BuildVersion 6.1.7601.17514
PSVersion 2.0
WSManStackVersion 2.0
PSCompatibleVersions {1.0, 2.0}
SerializationVersion 1.1.0.1
PSRemotingProtocolVersion 2.1

(Windows 7 Entreprise 64 bits)

**Laurent Dardenne** · 22/07/2014, 19h17

Envoyé par Bragu Demon

J'aimerai bien un petit coup de main là

Il faut comprendre le message d'erreur :

Code :

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

objSelection.Find.Execute(...

Ici le parseur PS ne sait quoi faire de ta déclaration, car il manque le dollar ($).
Dans les sources de ce tutoriel, tu as un script nommé Test-PSScript.ps1 qui te permet de valider la syntaxe d'un script.

**Bragu Demon** · 23/07/2014, 09h06

Merci pour cette info, je part de très très loin et je fais en plus des erreur de débutant

...
Je ne peux malheureusement pas aller sur le site depuis ici pour récupérer le Test-PSScript.ps1, le proxy ne m'y autorise pas.

J'ai maintenant un problème de parenthèse :

Jeton «*(*» inattendu dans une expression ou une instruction.
Au niveau de P:\Documents\PERSONNEL\SCRIPTS\PowerShell\ReplaceWordinWord.ps1*: 26 Caractère*: 29
+ $objSelection.Find.Execute ( <<<< $FindText, $MatchCase, $MatchWholeWord, $MatchWildcards, $MatchSoundsLike,
$MatchAllWordForms, $Forward, $Wrap, $Format, $ReplaceText, $ReplaceAll)
+ CategoryInfo : ParserError: ((:String) [], ParseException
+ FullyQualifiedErrorId : UnexpectedToken

Je vais creuser histoire de m'en sortir un peu

**Bragu Demon** · 23/07/2014, 11h41

Bon,

J'ai résolu mon problème de jeton, c'était une parenthèse qui n'était pas à la bonne place.

**Laurent Dardenne** · 23/07/2014, 12h00

Envoyé par Bragu Demon

Merci pour cette info, je part de très très loin et je fais en plus des erreur de débutant

...

Nous sommes tous passé par là

Envoyé par Bragu Demon

Je ne peux malheureusement pas aller sur le site depuis ici pour récupérer le Test-PSScript.ps1, le proxy ne m'y autorise pas.

Le voici :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
function Test-PSScript 
{  #Valide la syntaxe d'un fichier powershell (ps1,psm1,psd1)
 #From http://blogs.microsoft.co.il/blogs/scriptfanatic/archive/2009/09/07/parsing-powershell-scripts.aspx 

   param( 
      [Parameter(Mandatory=$true, Position=0, ValueFromPipeline=$true, ValueFromPipelineByPropertyName=$true)]  
      [ValidateNotNullOrEmpty()]  
      [Alias('PSPath','FullName')]  
      [System.String[]] $FilePath, 

      [Switch]$IncludeSummaryReport 
   ) 

   begin 
   { $total=$fails=$FileUnknown=0 }   

   process 
   { 
       $FilePath | 
        Foreach-Object { 
           if(Test-Path -Path $_ -PathType Leaf) 
           { 
              $Path = Convert-Path -Path $_  
  
              $Errors = $null 
              $Content = Get-Content -Path $path  
              $Tokens = [System.Management.Automation.PsParser]::Tokenize($Content,[ref]$Errors) 
              if($Errors -ne $null) 
              { 
                 $fails++ 
                 $Errors | 
                  Foreach-Object {  
                    $CurrentError=$_
                    $CurrentError.Token | 
                     Add-Member -MemberType NoteProperty -Name Path -Value $Path -PassThru | 
                     Add-Member -MemberType NoteProperty -Name ErrorMessage -Value $CurrentError.Message -PassThru 
                 } 
              } 
             $total++
           }#if 
           else 
           { Write-Warning  "File unknown :'$_'";$FileUnknown++ } 
       }#for 
   }#process  

   end  
   { 
      if($IncludeSummaryReport)  
      { 
         Write-Host "`n$total script(s) processed, $fails script(s) contain syntax errors,  $FileUnknown file(s) unknown." 
      } 
   } 
} #Test-PSScript

Attention, ce code ne valide que la syntaxe. Il évite de livrer un script/module contenant des erreurs de syntaxe.

**Bragu Demon** · 23/07/2014, 13h55

Merci :-)

C'est normal d'avoir mal à la tête quand on fait du powershell ?

**Laurent Dardenne** · 23/07/2014, 14h52

Envoyé par Bragu Demon

C'est normal d'avoir mal à la tête quand on fait du powershell ?

Mal à la tête je ne sais pas, mais je me souviens que mes débuts ont été laborieux.
Il y a beaucoup d'informations et de comportements à mémoriser, il faut donc, à mon avis, être patient

Faire un Scan/Replace de fichiers MS Office de façon réccursive

Scripts/Batch

Discussions similaires

Partager

Partager