[R] Fichier XML

[amouna98]

Bonjour

je cherche une fonction pour creer directement des fichiers xml
j ai essayé de faire du .txt puis changer l'extension en .xml mais ca marche paaaaaaaaaaaas

Code : Tout sélectionner

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

je sais pas pourquoi d'ailleur
il faut dire qu il y a bien longtemps que j'ai pas touché au xml

merci

[SrBelial]

chez moi ça marche impec .... !!!
même en compliquant la chose je crée aisément un fichier xml ....

teste un peu ce code pour voir :

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

[Tlem]

Si vous avez l'intention de faire du XML avec AutoIt, je vous conseil cet UDF : http://www.autoitscript.com/forum/index ... opic=19848

[amouna98]

J ai compris pourquoi ca marchait pas mais je sais pas comment resourdre le probleme

remplace juste
ta variable $name par

Code : Tout sélectionner

Dim $name = "2 testé"
 

en fait il accepte ni les chifre ni les espace ni les accents

[SrBelial]

bah chez moi ça marche !

mais bien entendu avec un espace il considère "2" comme le nom de balise et "testé" comme un nom d'attribut ...
si tu as un souci ça vient sans doute d'un problème d'encodage ... tu obtiens quel résultat en exécutant cet exemple sur ton pc ?

[amouna98]

voila le resultat

[amouna98]

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

j ai ajouté ces lignes
et le probleme est resolut
et

[Tlem]

@amouna98
Merci d'éviter les citations pour chacun de vos messages (cela m'évitera d'avoir à éditer vos messages).

Pour répondre, c'est le gros bouton 'Répondre' en bas à gauche et non le bouton 'Citer' sous le dernier message.

La citation, n'est là que pour souligner une réponse spécifique à une partie du message qui précède ou à un message antérieur.