Discussion :

[Stephan09]

Bonjour,
Je recherche un script pour scanner tous les fichiers d'un repertoire pour remplacer certains characters speciaux (de la liste ci dessous) par un espace ou un "_"

Voici un exemple d'un texte d'un fichier :
0000ACSYOK WRLVT
(Notepad++ affiche un 'SUB')

il semblerait que ce charactere fait parti de la liste des characters non imprimables :

Les 33 premiers caractères (0 à 32) et le caractère 127 forment les caractères non imprimables.

DEC HEX Description
0 00 NUL Null
1 01 STX Start of Header
2 02 SOT Start of Text
3 03 ETX End of Text
4 04 EOT End of Transmission
5 05 ENQ Enquiry
6 06 ACK Acknowledge
7 07 BEL Bell
8 08 BS BackSpace
9 09 HT Horizontal Tabulation
10 0A LF Line Feed
11 0B VT Vertical Tabulation
12 0C FF Form Feed
13 0D CR Carriage Return
14 0E SO Shift Out
15 0F SI Shift In
16 10 DLE Data Link Escape
17 11 DC1 Device Control 1 (XON)
18 12 DC2 Device Control 2
19 13 DC3 Device Control 3 (XOFF)
20 14 DC4 Device Control 4
21 15 NAK Negative acknowledge
22 16 SYN Synchronous Idle
23 17 ETB End of Transmission Block
24 18 CAN Cancel
25 19 EM End of Medium
26 1A SUB Substitute
27 1B ESC Escape
28 1C FS File Separator
29 1D GS Group Separator
30 1E RS Record Separator
31 1F US Unit Separator
32 20 [Space] Space
127 7F DEL Delete

Merci pour votre aide.

[ProgElecT]

Salut

Dans une première boucle ouvrir tous les fichiers, dans une boucle interne remplacer avec la fonction Replace toutes les occurrences de chaque caractères non imprimable
En sortie de cette boucle interne, enregistrer sous le même nom le fichier, passage dans la boucle externe .......
Le principe

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
Dim T, TextFichier
'boucle primaire
    'ouvrir un fichier (input -> lecture)
    'TextFichier = contenu du fichier
    TextFichier = "0000ACSYOK WRLVT"
    'fermer le fichier
    'boucle interne
        For T = 0 To 32
            TextFichier = Replace(TextFichier, Chr(T), "_")
        Next
        TextFichier = Replace(TextFichier, Chr(127), "_")
        MsgBox TextFichier '******** a remer **********
    'fin de boucle interne
 
    'boucle primaire  suite
    'reouvrir le fichier (output -> écriture)
    'enregistrer TextFichier
    'fermer le fichier
'retour début boucle primaire pour le fichier suivant
'fin

[Stephan09]

Bonjour ProgElect,
Merci beaucoup pour ta reponse rapide !
je test le script et te tiens au courant.

[Stephan09]

Bonjour ProgElect,
ton script remplace bien les characteres speciaux.
Par contre j'ai une question (de débutant en programmation...), dans ton script, il y a une partie :
TextFichier = " " ou tu mets le contenu du fichier, comment faire pour que plutot ce script scan par exemple le repertoire C:\Temp\ et modifie tous les fichiers qu'il trouve contenant les characteres speciaux et les enregistrent sous un nom auquel il serait rajouté "copy"?
Merci beaucoup pour ton aide !
St.

[ProgElecT]

Salut
Dans la FAQ VBScript
Comment lister les fichiers d'un dossier ?
Avec l'exemple donné, dans la boucle For each tu ouvres chaque fichiers tu appliques le code proposé plus haut dans la discussion, et tu sauvegardes
le fichier en ajoutant "copy" à oFl.Name de l'exemple de la FAQ.

Pour la sauvegarde

Code :

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

1
2
3
4
'Dim f
Set f = oFSO .OpenTextFile(oFl.Name & "Copy", ForWriting)
f.Write TextFichier 'du code plus haut
f.close

oFSO est déjà créé avant la boucle For each Dim f devra lui aussi être déclaré en debut de code, toujours en dehors de la boucle.

Edit: ajouter

Code :

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

Const ForReading = 1, ForWriting = 2

en début de code

[Stephan09]

Salut, je te remercie beaucoup pour ton aide !
Je pense qu'on peut fermer ce post.