AutoIt Français

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

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

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

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