AutoIt Français

Code : Tout sélectionner

FileWriteLine($hFile, "<" & $sName & ">" & $sVersion & "</" & $sName & ">")
 

Code : Tout sélectionner

Global $xmlFileName = "test.xml"
Global $xmlHandle = FileOpen($xmlFileName, 1)

FileWriteLine($xmlHandle, "<root>")

Dim $name = "test"
for $i = 0 To 10 Step 1
    FileWriteLine($xmlHandle, @tab & "<" & $name & $i & ">" & "v1." & Random(0, 9, 1) & "</" & $name & $i & ">" )
Next

FileWriteLine($xmlHandle, "</root>")
 

Code : Tout sélectionner

Dim $name = "2 testé"
 

Code : Tout sélectionner

    

Func delAccents($chaine)
    $nbChar = 53
    Dim $array[2][$nbChar]=[["À","Á","Â","Ã","Ä","Å","à","á","â","ã","ä","å","Ò","Ó","Ô","Õ","Ö","Ø","ò","ó","ô","õ","ö","ø","È","É","Ê","Ë","è","é","ê","ë","Ç","ç","Ì","Í","Î","Ï","ì","í","î","ï","Ù","Ú","Û","Ü","ù","ú","û","ü","ÿ","Ñ","ñ"], _
                            ["A","A","A","A","A","A","a","a","a","a","a","a","O","O","O","O","O","O","o","o","o","o","o","o","E","E","E","E","e","e","e","e","C","c","I","I","I","I","i","i","i","i","U","U","U","U","u","u","u","u","y","N","n"]]

    For $i = 0 To $nbChar-1
        $chaine = StringReplace($chaine,$array[0][$i],$array[1][$i],0,1)
    Next
    return $chaine
EndFunc


$sDisplayName = delAccents($sDisplayName)
$sDisplayName = StringReplace($sDisplayName, " – ", "-")
$sDisplayName = StringReplace($sDisplayName, " — ", "-")
FileWriteLine($xmlHandle, @tab & "<" & "productName" & ">" & $sDisplayName & "</" & "productName" & ">" )