[R] Enregistrer txt sous UTF-8

[duyen]

Bonjour,

j'ai une question sur la commande "_ReplaceStringInFile".
je dois remplacer des champs dans un fichier web.config qui est enregistré en UTF-8, mais après la modife, il n'est plus en UTF-8.
Y a t'il une soluce ou une autre méthode?

Voici ma commande:

Code : Tout sélectionner

_ReplaceStringInFile("c:\inetpub\wwwroot\tpo\web.config", $Old, $New)

Merci.

[ZDS]

Bonjour,

A essayer et à améliorer, j'ai pris la fonction de base dans File.au3, et je l'ai modifiée un chouia (cf ligne 29) :

► Afficher le texteReplaceStringInFileWithUTF8

Code : Tout sélectionner

#Include <File.au3>

Func _ReplaceStringInFileWithUTF8($szFileName, $szSearchString, $szReplaceString, $fCaseness = 0, $fOccurance = 1)

    Local $iRetVal = 0
    Local $nCount, $sEndsWith
    ; Check if file is readonly ..
    If StringInStr(FileGetAttrib($szFileName), "R") Then Return SetError(6, 0, -1)
    ;===============================================================================
    ;== Read the file into an array
    ;===============================================================================
    Local $hFile = FileOpen($szFileName, $FO_READ)
    If $hFile = -1 Then Return SetError(1, 0, -1)
    Local $s_TotFile = FileRead($hFile, FileGetSize($szFileName))
    If StringRight($s_TotFile, 2) = @CRLF Then
        $sEndsWith = @CRLF
    ElseIf StringRight($s_TotFile, 1) = @CR Then
        $sEndsWith = @CR
    ElseIf StringRight($s_TotFile, 1) = @LF Then
        $sEndsWith = @LF
    Else
        $sEndsWith = ""
    EndIf
    Local $aFileLines = StringSplit(StringStripCR($s_TotFile), @LF)
    FileClose($hFile)
    ;===============================================================================
    ;== Open the output file in write mode
    ;===============================================================================
    Local $hWriteHandle = FileOpen($szFileName, $FO_OVERWRITE+256)
    If $hWriteHandle = -1 Then Return SetError(2, 0, -1)
    ;===============================================================================
    ;== Loop through the array and search for $szSearchString
    ;===============================================================================
    For $nCount = 1 To $aFileLines[0]
        If StringInStr($aFileLines[$nCount], $szSearchString, $fCaseness) Then
            $aFileLines[$nCount] = StringReplace($aFileLines[$nCount], $szSearchString, $szReplaceString, 1 - $fOccurance, $fCaseness)
            $iRetVal = $iRetVal + 1

            ;======================================================================
            ;== If we want just the first string replaced, copy the rest of the lines
            ;== and stop
            ;======================================================================
            If $fOccurance = 0 Then
                $iRetVal = 1
                ExitLoop
            EndIf
        EndIf
    Next
    ;===============================================================================
    ;== Write the lines back to original file.
    ;===============================================================================
    For $nCount = 1 To $aFileLines[0] - 1
        If FileWriteLine($hWriteHandle, $aFileLines[$nCount]) = 0 Then
            FileClose($hWriteHandle)
            Return SetError(3, 0, -1)
        EndIf
    Next
    ; Write the last record and ensure it ends with the same as the input file
    If $aFileLines[$nCount] <> "" Then FileWrite($hWriteHandle, $aFileLines[$nCount] & $sEndsWith)
    FileClose($hWriteHandle)

    Return $iRetVal
EndFunc   ;==>_ReplaceStringInFileWithUTF8
 

Normalement ça marche, mais je te laisse tester !

A bientôt !

[duyen]

Je teste ça et je te dis.
Merci.

[jchd]

Exact, un certain nombre de fonction "fichier texte" dites de haut niveau ne respectent pas l'encodage initial.
Cela fait partie des nombreuses modifs qui s'empilent sur le bureau des UDFs.
Utiliser des fonctions séparées (fileopen avec option qui convient, fileread, ...).

[duyen]

ça ne doit pas être la même version, car voici ce que j'ai:

► Afficher le texteReplaceStringInFileWithUTF8

Code : Tout sélectionner

Func _ReplaceStringInFile($szFileName, $szSearchString, $szReplaceString, $fCaseness = 0, $fOccurance = 1)

    Local $iRetVal = 0
    Local $nCount, $sEndsWith
    ; Check if file is readonly ..
    If StringInStr(FileGetAttrib($szFileName), "R") Then Return SetError(6, 0, -1)
    ;===============================================================================
    ;== Read the file into an array
    ;===============================================================================
    Local $hFile = FileOpen($szFileName, $FO_READ)
    If $hFile = -1 Then Return SetError(1, 0, -1)
    Local $s_TotFile = FileRead($hFile, FileGetSize($szFileName))
    If StringRight($s_TotFile, 2) = @CRLF Then
        $sEndsWith = @CRLF
    ElseIf StringRight($s_TotFile, 1) = @CR Then
        $sEndsWith = @CR
    ElseIf StringRight($s_TotFile, 1) = @LF Then
        $sEndsWith = @LF
    Else
        $sEndsWith = ""
    EndIf
    Local $aFileLines = StringSplit(StringStripCR($s_TotFile), @LF)
    FileClose($hFile)
    ;===============================================================================
    ;== Open the output file in write mode
    ;===============================================================================
    Local $hWriteHandle = FileOpen($szFileName, $FO_OVERWRITE)
    If $hWriteHandle = -1 Then Return SetError(2, 0, -1)
    ;===============================================================================
    ;== Loop through the array and search for $szSearchString
    ;===============================================================================
    For $nCount = 1 To $aFileLines[0]
        If StringInStr($aFileLines[$nCount], $szSearchString, $fCaseness) Then
            $aFileLines[$nCount] = StringReplace($aFileLines[$nCount], $szSearchString, $szReplaceString, 1 - $fOccurance, $fCaseness)
            $iRetVal = $iRetVal + 1

            ;======================================================================
            ;== If we want just the first string replaced, copy the rest of the lines
            ;== and stop
            ;======================================================================
            If $fOccurance = 0 Then
                $iRetVal = 1
                ExitLoop
            EndIf
        EndIf
    Next
    ;===============================================================================
    ;== Write the lines back to original file.
    ;===============================================================================
    For $nCount = 1 To $aFileLines[0] - 1
        If FileWriteLine($hWriteHandle, $aFileLines[$nCount]) = 0 Then
            FileClose($hWriteHandle)
            Return SetError(3, 0, -1)
        EndIf
    Next
    ; Write the last record and ensure it ends with the same as the input file
    If $aFileLines[$nCount] <> "" Then FileWrite($hWriteHandle, $aFileLines[$nCount] & $sEndsWith)
    FileClose($hWriteHandle)

    Return $iRetVal
EndFunc   ;==>_ReplaceStringInFile

Merci.

[ZDS]

Justement, je te propose une version modifiée ^^
Fais une comparaison, et tu verras trois choses changées :
L3 : _ReplaceStringInFile( ... > _ReplaceStringInFileWithUTF8( ...
L29 : ... $FO_OVERWRITE) > ... $FO_OVERWRITE+256)
L63 : ... _ReplaceStringInFile > ... _ReplaceStringInFileWithUTF8

(la dernière, c'est du commentaire, elle sert à rien).

Donc voila, au lieu d'utiliser dans ton code la fonction _ReplaceStringInFile présente dans File.au3, utilise celle que j'ai modifiée _ReplaceStringInFileWithUTF8 (en faisant quand même un Include de File.au3 au passage) et tu géreras l'UTF8 comme il faut.

[duyen]

bon je vais refaire le test.
Merci.

[duyen]

Bon je dois être un NOOBs !!!

Voici mon petit bout de code qui me pose problème.

Code : Tout sélectionner

;Modification des Web.Config

    FileCopy("c:\inetpub\wwwroot\pvo\web.config", @ScriptDir&"\logs\pvo\", 1)
        Sleep(1000)
        
    _ReplaceStringInFile("c:\inetpub\wwwroot\pvo\web.config", $Old, $New+256)
        Sleep(1500)
    
    FileCopy("c:\inetpub\wwwroot\tpo\web.config", @ScriptDir&"\logs\tpo\", 1)
        Sleep(1000)
        
    _ReplaceStringInFile("c:\inetpub\wwwroot\tpo\web.config", $Old, $New+256)
        Sleep(1500)

 

Si j'ai bien compris, je ne dois pas modifier le file.au3, mais juste mettre +256 après ma variable?

Merci

[ZDS]

Bonjour,

Désolé, non, toujours pas

Tu dois AJOUTER la fonction que je t'ai donné (qui s'appelle _ReplaceStringInFileWithUTF8, et pas _ReplaceStringInFile tout court) à ton script, et remplacer toutes les fois où tu utilises _ReplaceStringInFile par _ReplaceStringInFileWithUTF8 sans modifier quoi que ce soit d'autre (pas besoin de toucher aux paramètres, c'est transparent pour le code).

Ton code donnera donc :

Code : Tout sélectionner

;Modification des Web.Config
    FileCopy("c:\inetpub\wwwroot\pvo\web.config", @ScriptDir&"\logs\pvo\", 1)
        Sleep(1000)
    _ReplaceStringInFileWithUTF8("c:\inetpub\wwwroot\pvo\web.config", $Old, $New)
        Sleep(1500)
    FileCopy("c:\inetpub\wwwroot\tpo\web.config", @ScriptDir&"\logs\tpo\", 1)
        Sleep(1000)
    _ReplaceStringInFileWithUTF8("c:\inetpub\wwwroot\tpo\web.config", $Old, $New)
        Sleep(1500)

Mais dans le début du script (ou à la fin si tu préfères), tu n'auras pas oublié d'ajouter le bout de code de mon précédent message

A bientôt !

[duyen]

je suis vraiment désolé,

mais je n'arrive pas à le faire fonctionner.

j'ai bien changé mon bout de code

Code : Tout sélectionner

;Modification des Web.Config PVO-TPO

    FileCopy("c:\inetpub\wwwroot\pvo\web.config", @ScriptDir&"\logs\pvo\", 1)
        Sleep(1000)
        
    _ReplaceStringInFileWithUTF8("c:\inetpub\wwwroot\pvo\web.config", "C09981", "C09980")
        Sleep(1500)
    
    FileCopy("c:\inetpub\wwwroot\tpo\web.config", @ScriptDir&"\logs\tpo\", 1)
        Sleep(1000)
        
    _ReplaceStringInFileWithUTF8("c:\inetpub\wwwroot\tpo\web.config", "C09981", "C09980")
        Sleep(1500)

c'est le bout de code que tu me dis d'ajouter que je n'ai pas du comprendre.

dans le file.au3 j'ai fais la modife mais c'est pareil.
j'ai fais les 3 modifications :

► Afficher le texteReplaceStringInFileWithUTF8

Code : Tout sélectionner

Func _ReplaceStringInFileWithUTF8($szFileName, $szSearchString, $szReplaceString, $fCaseness = 0, $fOccurance = 1)

    Local $iRetVal = 0
    Local $nCount, $sEndsWith
    ; Check if file is readonly ..
    If StringInStr(FileGetAttrib($szFileName), "R") Then Return SetError(6, 0, -1)
    ;===============================================================================
    ;== Read the file into an array
    ;===============================================================================
    Local $hFile = FileOpen($szFileName, $FO_READ)
    If $hFile = -1 Then Return SetError(1, 0, -1)
    Local $s_TotFile = FileRead($hFile, FileGetSize($szFileName))
    If StringRight($s_TotFile, 2) = @CRLF Then
        $sEndsWith = @CRLF
    ElseIf StringRight($s_TotFile, 1) = @CR Then
        $sEndsWith = @CR
    ElseIf StringRight($s_TotFile, 1) = @LF Then
        $sEndsWith = @LF
    Else
        $sEndsWith = ""
    EndIf
    Local $aFileLines = StringSplit(StringStripCR($s_TotFile), @LF)
    FileClose($hFile)
    ;===============================================================================
    ;== Open the output file in write mode
    ;===============================================================================
    Local $hWriteHandle = FileOpen($szFileName, $FO_OVERWRITE+256)
    If $hWriteHandle = -1 Then Return SetError(2, 0, -1)
    ;===============================================================================
    ;== Loop through the array and search for $szSearchString
    ;===============================================================================
    For $nCount = 1 To $aFileLines[0]
        If StringInStr($aFileLines[$nCount], $szSearchString, $fCaseness) Then
            $aFileLines[$nCount] = StringReplace($aFileLines[$nCount], $szSearchString, $szReplaceString, 1 - $fOccurance, $fCaseness)
            $iRetVal = $iRetVal + 1

            ;======================================================================
            ;== If we want just the first string replaced, copy the rest of the lines
            ;== and stop
            ;======================================================================
            If $fOccurance = 0 Then
                $iRetVal = 1
                ExitLoop
            EndIf
        EndIf
    Next
    ;===============================================================================
    ;== Write the lines back to original file.
    ;===============================================================================
    For $nCount = 1 To $aFileLines[0] - 1
        If FileWriteLine($hWriteHandle, $aFileLines[$nCount]) = 0 Then
            FileClose($hWriteHandle)
            Return SetError(3, 0, -1)
        EndIf
    Next
    ; Write the last record and ensure it ends with the same as the input file
    If $aFileLines[$nCount] <> "" Then FileWrite($hWriteHandle, $aFileLines[$nCount] & $sEndsWith)
    FileClose($hWriteHandle)

    Return $iRetVal
EndFunc   ;==>_ReplaceStringInFileWithUTF8

Merci.

[ZDS]

Salut.

T'es furieux quand même, aller modifier "File.au3"... ^^ C'est pas du tout ça qu'il fallait faire. juste ajouter la fonction que je t'ai filé à ton script. Ajoute le script entier à un post (en pièce jointe), je te le modifie en conséquence.

PS: Ta première partie de code est bonne.
PS2: Remets "File.au3" comme il l'était.

[duyen]

j'ai remis ma sauvegarde.!!

Oui je sais, mais quand je n'arrive pas a faire un truc , je test partout avant de reposer une question!

Merci pour ton aide.

Voici la page en question

[ZDS]

Re,

Voila la version modifiée, je te l'ai ajoutée en début de script, mais si tu veux, tu peux l'ajouter à ton fichier "Func_Renomme_srv.au3" que j'ai vu dans les includes (pas pu testé jusqu'au bout, puisque je n'ai pas la même archi que toi pour le test).

En tout cas, j'ai lancé jusqu'à l'interface bleuatre, et ça me semble bon. J'ai aussi modifié la troisième ligne d'utilisation du _ReplaceStringInFile par sa version UTF8, celle du connexion_pvo.ini : _ReplaceStringInFileWithUTF8("c:\tomcat5\bin\connexion_pvo.ini", $Old, $New)
Ta ligne d'origine n'est pas perdue, elle est commentée juste en dessous.

Bref, voila une version modifiée. Ça devrait passer.

Tiens moi au courant !

[duyen]

Merci pour la modife, mais il me remet toujours un encodage ANSI...
Cdlt

[ZDS]

Chez moi l'encodage passe très bien. J'ai juste été obligé de créer un fichier bidon pour le test, et un dossier Logs dans le répertoire du script.

Tu as moyen d'envoyer en pièce jointe un fichier exemple de ton c:\inetpub\wwwroot\tpo\web.config et ton c:\inetpub\wwwroot\pvo\web.config ? Parce que si ça se trouve la modif n'est pas effectuée (ajoute peut etre un #RequireAdmin au début du script, ça ne règle pas toujours tout, mais bon, pour les tests...).

PS: Tu indentes bizarrement ton code, pas très lisible par ailleurs, surtout pour relire et t'aider ^^ Si je fais des modifs, tu m'autorises à fusionner les bouts de codes semblables?
PS2: J'oublie aussi le fichier "Func_Renomme_srv.au3", je l'enlève pour le moment, je commente les deux fonctions AutoLog_MagC() et Add_GrpAdm().
PS3: J'aime bien, mais je préfère la Xbox360
PS4: Je te joins une version remaniée de ton code, les codes fusionnés pour le débug (traces dans ton fichier "Renom_20042011.log" et l'avancement de la ProgressBar sont dans une même fonction, d'où un gain en lisibilité plus que certain ^^), la mise en commentaire des fonctions "chiantes" pour les tests (redémarrage machine, modification du nom de l'ordi, etc...) et l'indentation du code : Bref, aucune modif fondamentale, mais avec des fichiers d'exemple je pense pouvoir t'aider.

[duyen]

Salut,

Si tu veux moi je fais le test avec un fichier txt que je renomme en web.config avec dedans quelquechose a remplacer et je l'enregistre en UTF-8.
Je les places dans C:\inetpub\wwwroot\pvo
et C:\inetpub\wwwroot\tpo

ensuite je lance le script que tu as modifié :

► Afficher le texteReplaceStringInFileWithUTF8

Code : Tout sélectionner

#include <file.au3>


#Region Fonctions personnelles
Func _ReplaceStringInFileWithUTF8($szFileName, $szSearchString, $szReplaceString, $fCaseness = 0, $fOccurance = 1)
    Local $iRetVal = 0
    Local $nCount, $sEndsWith
    ; Check if file is readonly ..
    If StringInStr(FileGetAttrib($szFileName), "R") Then Return SetError(6, 0, -1)
    ;===============================================================================
    ;== Read the file into an array
    ;===============================================================================
    Local $hFile = FileOpen($szFileName, $FO_READ)
    If $hFile = -1 Then Return SetError(1, 0, -1)
    Local $s_TotFile = FileRead($hFile, FileGetSize($szFileName))
    If StringRight($s_TotFile, 2) = @CRLF Then
        $sEndsWith = @CRLF
    ElseIf StringRight($s_TotFile, 1) = @CR Then
        $sEndsWith = @CR
    ElseIf StringRight($s_TotFile, 1) = @LF Then
        $sEndsWith = @LF
    Else
        $sEndsWith = ""
    EndIf
    Local $aFileLines = StringSplit(StringStripCR($s_TotFile), @LF)
    FileClose($hFile)
    ;===============================================================================
    ;== Open the output file in write mode
    ;===============================================================================
    Local $hWriteHandle = FileOpen($szFileName, $FO_OVERWRITE+256)
    If $hWriteHandle = -1 Then Return SetError(2, 0, -1)
    ;===============================================================================
    ;== Loop through the array and search for $szSearchString
    ;===============================================================================
    For $nCount = 1 To $aFileLines[0]
        If StringInStr($aFileLines[$nCount], $szSearchString, $fCaseness) Then
            $aFileLines[$nCount] = StringReplace($aFileLines[$nCount], $szSearchString, $szReplaceString, 1 - $fOccurance, $fCaseness)
            $iRetVal = $iRetVal + 1

            ;======================================================================
            ;== If we want just the first string replaced, copy the rest of the lines
            ;== and stop
            ;======================================================================
            If $fOccurance = 0 Then
                $iRetVal = 1
                ExitLoop
            EndIf
        EndIf
    Next
    ;===============================================================================
    ;== Write the lines back to original file.
    ;===============================================================================
    For $nCount = 1 To $aFileLines[0] - 1
        If FileWriteLine($hWriteHandle, $aFileLines[$nCount]) = 0 Then
            FileClose($hWriteHandle)
            Return SetError(3, 0, -1)
        EndIf
    Next
    ; Write the last record and ensure it ends with the same as the input file
    If $aFileLines[$nCount] <> "" Then FileWrite($hWriteHandle, $aFileLines[$nCount] & $sEndsWith)
    FileClose($hWriteHandle)
    Return $iRetVal
EndFunc   ;==>_ReplaceStringInFileWithUTF8


;Modification des Web.Config PVO-TPO

    FileCopy("c:\inetpub\wwwroot\pvo\web.config", @ScriptDir&"\logs\pvo\", 1)
        Sleep(1000)
        
    _ReplaceStringInFileWithUTF8("c:\inetpub\wwwroot\pvo\web.config", "C09981", "C09980")
        Sleep(1500)
    
    FileCopy("c:\inetpub\wwwroot\tpo\web.config", @ScriptDir&"\logs\tpo\", 1)
        Sleep(1000)
        
    _ReplaceStringInFileWithUTF8("c:\inetpub\wwwroot\tpo\web.config", "C09981", "C09980")
        Sleep(1500)
        
        Exit

dit moi si ça te vas pour faire les tests ou si tu veux d'autres éléments.

le reste fonctionne. Donc je ne vais pas modifier car sinon je risque d'être perdu dedans... !

PS3: moi je suis plus PS3

[sylvanie]

Bonjour,
je ne vais rien apporter à la problématique, c'est juste pour vous demander d'utiliser les balises "spoiler" autours des balises "Code" sur les gros volumes de code.
Merci

[duyen]

@Sylvanie Désolé pour les long bout de code.

Bon je crois que j'ai trouvé......! au lieu de 256 dans les options, j'ai 128 et ça a l'aire de fonctionner.

Je te le confirme tout a l'heure.

@+

[ZDS]

Hello,

C'est justement ce que j'allais te proposer; je cherchais ce que pouvait bien impliquer le BOM (je ne savais pas ce que c'était, donc je préférais me renseigner avant de dire une connerie ^^)

Bon, bah si c'est réglé tant mieux. Sinon, n'hésite pas à redemander.

N'oublie pas de passer ton post d'origine en [R]ésolu

A bientôt !

[duyen]

Je confirme, ça fonctionne.

Encore merci pour ton aide.

@ bientôt