Parcourir un texte (.txt) et et convertir les caractères spéciaux

Version imprimable

Bonjour,

je souhaiterais convertir le contenu d'un fichier texte (.txt) et lui enlever tous les caractères spéciaux, accent... et les remplacer par leur équivalence sans caractère spéciaux (par exemple "é" en "e") par l'aide d'un script.
Si quelqu'un à ça sous le coude c'est sympa.

peut être avec un paramétrage du format ? (Ascii 128 bits...)
Ou un bout de code qui boucle sur tous les caractère et qui les modifient en fonction du type? pour ca j'avais un bout de code mais j'y n'y suis pas arrivé

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
--- Remplace les caractères accentués par des non accentués
    *
    * Dim i As Integer
    * Dim Lettre As String
    *
    * For i = 1 To Len(sText)
    * Lettre = Mid$(sText, i, 1)
    * If Asc(Lettre) > 127 Then
    * Select Case Lettre
    * 'Majuscule
    * Case "É": Lettre = "E"
    * Case "È": Lettre = "E"
    * Case "Ê": Lettre = "E"
    * Case "Ë": Lettre = "E"
    * Case "Ä": Lettre = "A"
    * Case "Ï": Lettre = "I"
    * Case "Î": Lettre = "I"
    * Case "Ç": Lettre = "C"
    * Case "Ü": Lettre = "U"
    * Case "Û": Lettre = "U"
    * Case "Ö": Lettre = "O"
    * 'Minuscule
    * Case "é": Lettre = "e"
    * Case "è": Lettre = "e"
    * Case "ä": Lettre = "a"
    * Case "à": Lettre = "a"
    * Case "ê": Lettre = "e"
    * Case "ë": Lettre = "e"
    * Case "ï": Lettre = "i"
    * Case "î": Lettre = "i"
    * Case "ç": Lettre = "c"
    * Case "ü": Lettre = "u"
    * Case "û": Lettre = "u"
    * Case "ö": Lettre = "o"
    * End Select
    * End If
    * SansAccent = SansAccent + Lettre
    * Next i

J'ai trouvé ca quelques part un truc dans ce style sinon. Si quelqu'un à un truc sympas à partager.

Merci d'avance.

Salut,

tu peux partir là dessus :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Const ForReading = 1
Const ForWriting = 2
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("FichierEnEntree.txt", ForReading)
 
strText = objFile.ReadAll
objFile.Close
 
strNewText = Replace(strText, "É", "E")
strNewText = Replace(strNewText, "Ê", "E")
strNewText = Replace(strNewText, "Ë", "E")
strNewText = Replace(strNewText, "Ï", "I")
strNewText = Replace(strNewText, "Ç", "C")
strNewText = Replace(strNewText, "-", " ")
strNewText = Replace(strNewText, "_", " ")
strNewText = Replace(strNewText, " * ", " ")
 
Set objFile = objFSO.CreateTextFile("FichierEnSortie.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

A++

16/01/2009, 16h24
Balbo

Merci, pour ton aide :) ca fonctionne nickel :king:

comment puise je faire pour passer en argument un fichier, car c'est une batch qui s'exécute et j'ai un paramètre qui est le nom du fichier.
Comment puis je faire pour l'éxécuté de cette maniere sous Dos.
monscript.vb monfichier.txt
16/01/2009, 16h27
RadPAT
Citation:

Envoyé par Balbo

comment puise je faire pour passer en argument un fichier, car c'est une batch qui s'exécute et j'ai un paramètre qui est le nom du fichier.

tu ajoutes en début de ton vbs qquechose comme ceci :
Code:

1 2 Nom_de_mon_parametre = Wscript.Arguments.Item(0)
et du coup tu changes ca aussi :
Code:

1 2 Set objFile = objFSO.OpenTextFile("FichierEnEntree.txt", ForReading)
en
Code:

1 2 Set objFile = objFSO.OpenTextFile(Nom_de_mon_parametre, ForReading)
A++
16/01/2009, 16h32
Balbo

Tu es un genius !!!!:king:

Double résolution de problème. Merci beaucoup
16/01/2009, 16h33
RadPAT

Résolution express en moins d'une heure, ca va faire grimper ta facture :mouarf: !!