[R] Script pour supprimer les accents

[Boulanza]

Bonjour,
Je cherche un script pour supprimer les accents des lettres accentuées :
["_", " "], _
["a", "ÁáÀàÂâǍǎĂăÃãẢảẠạÄäÅåĀāĄąẤấẦầẪẫẨẩẬậẮắẰằẴẵẲẳẶặǺǻ"], _
["c", "ĆćĈĉČčĊċÇç"], _
["d", "ĎďĐđÐ"], _
["e", "ÉéÈèÊêĚěĔĕẼẽẺẻĖėËëĒēĘęẾếỀềỄễỂểẸẹỆệ"], _
["g", "ĞğĜĝĠġĢģ"], _
["h", "ĤĥĦħ"], _
["i", "ÍíÌìĬĭÎîǏǐÏïĨĩĮįĪīỈỉỊị"], _
["j", "Ĵĵ"], _
["k", "Ķķ"], _
["l", "Ĺ弾ĻļŁłĿŀ"], _
["n", "ŃńŇňÑñŅņ"], _
["o", "ÓóÒòŎŏÔôỐốỒồỖỗỔổǑǒÖöŐőÕõØøǾǿŌōỎỏƠơỚớỜờỠỡỞởỢợỌọỘộ"], _
["p", "ṔṕṖṗ"], _
["r", "ŔŕŘřŖŗ"], _
["s", "ŚśŜŝŠšŞş"], _
["t", "ŤťŢţŦŧ"], _
["u", "ÚúÙùŬŭÛûǓǔŮůÜüǗǘǛǜǙǚǕǖŰűŨũŲųŪūỦủƯưỨứỪừỮữỬửỰựỤụ"], _
["w", "ẂẃẀẁŴŵẄẅ"], _
["y", "ÝýỲỳŶŷŸÿỸỹỶỷỴỵ"], _
["z", "ŹźŽžŻż"]]
Merci pour votre aide.
Cordialement.

[jchd]

J'ai une DLL qui offre cette fonction parmi bien d'autres, mais c'est une extension 32-bits pour SQLite. Ceci dit, c'est parfaitement utilisable quand même hors tout autre emploi de SQLite.

Le source avec mode d'emploi est inclus dans l'archive et s'appuie sur Unicode 5.1 (je crois) pour désaccentuer l'ensemble du jeu Unicode. Il y a aussi le moteur d'une recherche floue (évaluation de distances) qui ne tient pas compte de l'accentuation.

Rechercher unifuzz sur le forum US.

[Boulanza]

Merci pour votre réponse.
Ok pour tester la DLL 32-bits pour SQLite.

[Boulanza]

Ce script marche pour une seule opération de remplacement de chaine : $line=StringReplace($line,"à","a")

► Afficher le texte

Code : Tout sélectionner

 SupprimerAccents()
Func SupprimerAccents()

Global $dir = @TempDir&"\ExportDrvpi\"
Global $hSearch = FileFindFirstFile($dir & "*.ini"), $res
;Msgbox(0,"test1", $hSearch)
If $hSearch = -1 Then
    MsgBox(0, "Error1", "Pas de fichier *.ini")
    Exit
EndIf

Global $sFileName = FileFindNextFile($hSearch) ; lit un fichier ini après l'autre
Global $trace=$dir&$sFileName
Global $txt = FileRead($trace)
;Msgbox(0,"test2", $trace)

$tilt = StringRegExp($txt, '\$Nom=(\V+)', 3) ; cherche une chaine $MP="chaine"
If IsArray($tilt) Then
$res = $tilt[0] ; si chaine trouvée, $res = la chaine
;Msgbox(0,"test3", $res)

EndIf
;==========================
; Ouverture des fichiers
Global $file1 = FileOpen($trace, 0)
;Msgbox(0,"test4", $file1)
Global $file2 = FileOpen("Infoclient.txt",2)

; Vérifie si fichier 1 OK
If $file1 = -1 Then
    MsgBox(0, "Error1", "Unable to open file.",3)
    Exit
EndIf

; Vérifie si fichier 2 OK
If $file2 = -1 Then
    MsgBox(0, "Error2", "Unable to open file.",3)
    Exit
EndIf

; Déclare contenu fichier 2
Dim $contenu2


; Lecture ligne à  ligne du fichier 1
While 1
    Local $line = FileReadLine($file1)
    ;Msgbox(0,"test4", $line)

    ; SI EOF, sortie de la boucle
    If @error = -1 Then ExitLoop

    ; Remplacement de chaine
    $line=StringReplace($line,"à","a")

    ; Ajout au contenu du fichier 2
    $contenu2=$contenu2 & $line & @CRLF

WEnd

; Ecriture du fichier 2
FileWrite($file2,$contenu2)

; Fermeture des fichiers
FileClose($file1)
FileClose($file2)
;=========================================
Local $dir=@ScriptDir&("\Infoclient.txt")
Global $hSearch = FileFindFirstFile($dir), $res2
;Msgbox(0,"test4", $hSearch)
While 1
Global $sFileName = FileFindNextFile($hSearch) ; lit un fichier ini après l'autre
Global $trace=$dir
Global $txt = FileRead($trace)
;Msgbox(0,"test5", $trace)
$tilt = StringRegExp($txt, '\$Source=(\V+)', 3) ; cherche une chaine $MP="chaine"
If IsArray($tilt) Then
$res = $tilt[0] ; si chaine trouvée, $res = la chaine
;Msgbox(0,"test6", $res)
Exitloop ; et on sort de la boucle
EndIf
Wend
;==========================
FileSetAttrib(@TempDir&"\ExportDrvpi\", "-A-H-R-S", 1)
Sleep(2000)
FileDelete(@TempDir&"\ExportDrvpi\")
Sleep(2000)
FileCopy(@ScriptDir&"\Infoclient.txt", @TempDir&"\ExportDrvpi\"&$res&".ini", $FC_OVERWRITE + $FC_CREATEPATH)
Sleep(3000)
FileDelete(@ScriptDir&"\Infoclient.txt")
Sleep(1000)
FileDelete(@ScriptDir&"\IniTransite\")
EndFunc
;==============================

on a une autre solution mais il n'est pas exploitable

► Afficher le texte

Code : Tout sélectionner

$sText = "ÁáÀàÂâǍǎĂăÃãẢảẠạÄäÅåĀāĄąẤấẦầẪẫẨẩẬậẮắẰằẴẵẲẳẶặǺǻ"

$iRet = _StrRegExpAccents($sText, "aaaaaaaaaaAAAAAAAAAAAAAaaaAAAAAAAAaaaAAAAAAAAA")
ConsoleWrite($iRet & @CRLF)

Func _StrRegExpAccents($sString, $sExpr)
    Local $aFrenchChars[20][2] = [ _
            ["a", "ÁáÀàÂâǍǎĂăÃãẢảẠạÄäÅåĀāĄąẤấẦầẪẫẨẩẬậẮắẰằẴẵẲẳẶặǺǻ"], _
            ["c", "ĆćĈĉČčĊċÇç"], _
            ["d", "ĎďĐđÐ"], _
            ["e", "ÉéÈèÊêĚěĔĕẼẽẺẻĖėËëĒēĘęẾếỀềỄễỂểẸẹỆệ"], _
            ["g", "ĞğĜĝĠġĢģ"], _
            ["h", "ĤĥĦħ"], _
            ["i", "ÍíÌìĬĭÎîǏǐÏïĨĩĮįĪīỈỉỊị"], _
            ["j", "Ĵĵ"], _
            ["k", "Ķķ"], _
            ["l", "Ĺ弾ĻļŁłĿŀ"], _
            ["n", "ŃńŇňÑñŅņ"], _
            ["o", "ÓóÒòŎŏÔôỐốỒồỖỗỔổǑǒÖöŐőÕõØøǾǿŌōỎỏƠơỚớỜờỠỡỞởỢợỌọỘộ"], _
            ["p", "ṔṕṖṗ"], _
            ["r", "ŔŕŘřŖŗ"], _
            ["s", "ŚśŜŝŠšŞş"], _
            ["t", "ŤťŢţŦŧ"], _
            ["u", "ÚúÙùŬŭÛûǓǔŮůÜüǗǘǛǜǙǚǕǖŰűŨũŲųŪūỦủƯưỨứỪừỮữỬửỰựỤụ"], _
            ["w", "ẂẃẀẁŴŵẄẅ"], _
            ["y", "ÝýỲỳŶŷŸÿỸỹỶỷỴỵ"], _
            ["z", "ŹźŽžŻż"]]
    For $i = 0 To UBound($aFrenchChars) - 1
        $sString = StringRegExpReplace($sString, "[" & $aFrenchChars[$i][1] & "]", $aFrenchChars[$i][0])
    Next

    Return StringRegExp($sString, "(?i)" & $sExpr)
EndFunc   ;==>_StrRegExpAccents

Peut on la modifier pour qu'elle marche ?

[Boulanza]

Pour partager. Voici la solution la plus simple...!!

► Afficher le texte

Code : Tout sélectionner

#include <file.au3>
; On fait une sauvegarde du fichier à traiter.
FileCopy("test.txt","test.txt.bak",1)
; Remplacement de la chaine.
If Not _ReplaceStringInFile( "test.txt", " ", "_" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "â", "a" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "à", "a" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ä", "a" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "à", "a" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ã", "a" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "à", "a" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "å", "a" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "à", "a" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Á", "A" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Á", "A" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Â", "A" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ã", "A" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ä", "A" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Å", "a" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ç", "c" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ç", "C" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ð", "D" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "é", "e" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "è", "e" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ê", "e" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ë", "e" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "É", "E" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "È", "E" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ê", "E" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ë", "E" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "É", "E" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "í", "i" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ì", "i" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "î", "i" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ï", "i" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Í", "I" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ì", "I" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Î", "I" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ï", "I" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ñ", "n" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ñ", "N" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ó", "o" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ò", "o" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ô", "o" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ö", "o" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ø", "o" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ó", "O" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ò", "O" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ô", "O" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ö", "O" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Õ", "O" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ø", "O" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "š", "s" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Š", "S" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ú", "u" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ù", "u" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "û", "u" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ú", "U" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ù", "U" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Û", "U" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ü", "U" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ý", "y" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ÿ", "y" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ý", "Y" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ÿ", "Y" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "ž", "z" ) > 0 Then Sleep(50)
If Not _ReplaceStringInFile( "test.txt", "Ž", "Z" ) > 0 Then Sleep(50)

; Si le remplacement ne s'est pas effectué, on supprimer le fichier backup.
;FileDelete("test.txt.bak")

[jguinch]

En partant du code fourni par Orax ici, voilà ce que ça peut donner :

► Afficher le texte

Code : Tout sélectionner

$sText = "ÁáÀàÂâǍǎĂăÃãẢảẠạÄäÅåĀāĄąẤấẦầẪẫẨẩẬậẮắẰằẴẵẲẳẶặǺǻ"

$iRet = _StrRegExpAccents($sText)
ConsoleWrite($iRet & @CRLF)

Func _StrRegExpAccents($sString)
    Local $aFrenchChars = [ _
            ["a", "áàâǎăãảạäåāąấầẫẩậắằẵẳặǻ"], _
            ["A", "ÁÀÂǍĂÃẢẠÄÅĀĄẤẦẪẨẬẮẰẴẲẶǺ"], _
            ["c", "ćĉčċç"], _
            ["C", "ĆĈČĊÇ"], _
            ["d", "ďđ"], _
            ["D", "ĎĐÐ"], _
            ["e", "éèêěĕẽẻėëēęếềễểẹệ"], _
            ["E", "ÉÈÊĚĔẼẺĖËĒĘẾỀỄỂẸỆ"], _
            ["g", "ğĝġģ"], _
            ["G", "ĞĜĠĢ"], _
            ["h", "ĥħ"], _
            ["H", "ĤĦ"], _
            ["i", "íìĭîǐïĩįīỉị"], _
            ["I", "íìĭîǐïĩįīỉị"], _
            ["j", "ĵ"], _
            ["J", "Ĵ"], _
            ["k", "ķ"], _
            ["K", "Ķ"], _
            ["l", "ĺľļłŀ"], _
            ["L", "ĹĽĻŁĿ"], _
            ["n", "ńňñņ"], _
            ["N", "ŃŇÑŅ"], _
            ["o", "óòŏôốồỗổǒöőõøǿōỏơớờỡởợọộ"], _
            ["O", "ÓÒŎÔỐỒỖỔǑÖŐÕØǾŌỎƠỚỜỠỞỢỌỘ"], _
            ["p", "ṕṗ"], _
            ["P", "ṔṖ"], _
            ["r", "ŕřŗ"], _
            ["R", "ŔŘŖ"], _
            ["s", "śŝšş"], _
            ["S", "ŚŜŠŞ"], _
            ["t", "ťţŧ"], _
            ["T", "ŤŢŦ"], _
            ["u", "úùŭûǔůüǘǜǚǖűũųūủưứừữửựụ"], _
            ["U", "ÚÙŬÛǓŮÜǗǛǙǕŰŨŲŪỦƯỨỪỮỬỰỤ"], _
            ["w", "ẃẁŵẅ"], _
            ["W", "ẂẀŴẄ"], _
            ["y", "ýỳŷÿỹỷỵ"], _
            ["Y", "ÝỲŶŸỸỶỴ"], _
            ["z", "źžż"], _
            ["Z", "ŹŽŻ"]]
    For $i = 0 To UBound($aFrenchChars) - 1
        $sString = StringRegExpReplace($sString, "[" & $aFrenchChars[$i][1] & "]", $aFrenchChars[$i][0])
    Next

    Return $sString
EndFunc   ;==>_StrRegExpAccents
 

Sinon, le code de jchd est beaucoup plus complet et moins casse-gueule...

[mdanielm]

Je serais curieux de connaître un exemple d'utilisation de cette fonction.
Bonne journée à tous

[jchd]

Si c'est de mon bébé (extension SQLite) dont tu parles, le lien donné par jguinch t'y mène.

[Boulanza]

Bonjour,
Merci à vous tous pour vos réponses.
J'ai essayé de tester le code fourni par Orax, mais il ne marche pas :
$sText = @TempDir&"\ExportDrvpi\test.txt" ;"ÁáÀàÂâAaAaÃã????ÄäÅåAaAa??????????????????????"
Pouvez-vous le adapté pour mon cas.
Cordialement.

[Boulanza]

J'aimerais savoir si le code de Orax fonctionne correctement pour vous ou pas ?
Merci de me répondre.