Discussion :

[wholehog2]

Bonsoir à tous !

Je débute dans le xml et je n'ai pas une grosse expérience en vb.net mais je voudrais convertir un fichier xml en fichier txt formaté d'une certaine façon.
voici par exemple mon fichier xml :test_xml_to_asc.xml

transformer de la sorte dans un fichier txt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
cue  "<number> du xml"
up    "<cuepart><basic_fade>" du xml
chan  "<channel_id>"/"<value>"   "<channel_id>"/"<value>"   "<channel_id>"/"<value>"  
chan  "<channel_id>"/"<value>"   "<channel_id>"/"<value>"   "<channel_id>"/"<value>" 
...
 
cue  "<number> du xml"
up    "<cuepart><basic_fade>" du xml
chan  "<channel_id>"/"<value>"   "<channel_id>"/"<value>"   "<channel_id>"/"<value>"
chan  "<channel_id>"/"<value>"   "<channel_id>"/"<value>"   "<channel_id>"/"<value>" 
...
 
et ça pour chaque cue du xml

Je ne sais pas si je suis très clair et si je post au bon endroit mais si vous voulez d'autres explications demander moi !

D'avance merci

[chrismonoye]

Bonsoir,
voici une première approche pour appréhender l'arborescence d'un fichier XML :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
    Dim xmlFilePath As String = IO.Directory.GetCurrentDirectory & "\test_xml_to_asc.xml" ' Chemin du fichier .XML
    Dim strgBuilt As New System.Text.StringBuilder  'Stockage temporaire des chaines
    Dim txtFilePath As String = IO.Directory.GetCurrentDirectory & "\test.txt"  'Chemin du fichier .txt
 
    Private Sub ExtractFileXml(ByVal fichier As String)
 
        'Charge le fichier xml.
        Dim xmldoc As New XmlDocument()
        xmldoc.Load(fichier)
 
        'Liste les éléments qui correspondent à "Cue"
        Dim Cues As XmlNodeList
        Cues = xmldoc.GetElementsByTagName("Cue")
 
        'Liste les enfants de chaque "Cue"
        For Each Cue As XmlNode In Cues
            Dim CueShildNodes As XmlNodeList = Cue.ChildNodes
 
            'Recherche "number" et l'enregistre dans un StringBuilder
            For i As Integer = 0 To CueShildNodes.Count - 1
                Dim CueShildNode As XmlNode = CueShildNodes(i)
                If CueShildNode.Name = "Number" Then
                    strgBuilt.Append("cue : " & CueShildNode.Attributes.ItemOf("number").Value)
                    strgBuilt.AppendLine()
                End If
            Next
 
            'Idem pour "basic_fade"
            For i As Integer = 0 To CueShildNodes.Count - 1
                Dim CueShildNode As XmlNode = CueShildNodes(i)
                If CueShildNode.Name = "CuePart" Then
                    strgBuilt.Append("up : " & CueShildNode.Attributes.ItemOf("basic_fade").Value)
                    strgBuilt.AppendLine()
                End If
            Next
 
            'Même démarche pour les enfants des enfants de "CueDatas"
            For i As Integer = 0 To CueShildNodes.Count - 1
                Dim CueShildNode As XmlNode = CueShildNodes(i)
                If CueShildNode.Name = "CueDatas" Then
                    Dim CueDatasShildNodes As XmlNodeList = CueShildNode.ChildNodes
                    For Each CueDatasShildNode As XmlElement In CueDatasShildNodes
                        For j As Integer = 0 To 1
                            If CueDatasShildNode.ChildNodes(j).Name = "Channel" Then
                                strgBuilt.Append("chan : " & CueDatasShildNode.ChildNodes(j).Attributes.ItemOf("channel_id").Value)
                            End If
                            If CueDatasShildNode.ChildNodes(j).Name = "Value" Then
                                strgBuilt.Append("  " & CueDatasShildNode.ChildNodes(j).InnerText)
                                strgBuilt.AppendLine()
                            End If
                        Next
                    Next
                End If
            Next
            strgBuilt.AppendLine()
        Next
 
            SaveToFile(txtFilePath)
    End Sub
 
 
    Private Sub SaveToFile(ByVal fileName As String)
 
        Dim w As System.IO.TextWriter = New System.IO.StreamWriter(fileName)
        w.Write(strgBuilt.ToString())
        w.Flush()
        w.Close()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ExtractFileXml(xmlFilePath)
    End Sub

[wholehog2]

Merci de m'avoir répondu chrismonoye.

ça à l'air prometteur mais je n'ai pas le temps de tester ton code en ce moment (beaucoup de travail), je pourrais le faire en début de semaine prochaine.

[wholehog2]

J'ai testé le code de chrismonoye et c'est ce que je voulais faire, mais je dois apporter quelques modifications.
Je voudrais testé si l'attribut "name" dans le noeud "cuepart" existe pour ensuite l’intégrer dans le fichier texte comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
cue  "<number> du xml"
up    "<cuepart><basic_fade>" du xml
TEXT  "name" du xml
chan  "<channel_id>"/"<value>"   "<channel_id>"/"<value>"   "<channel_id>"/"<value>"  
chan  "<channel_id>"/"<value>"   "<channel_id>"/"<value>"   "<channel_id>"/"<value>" 
...

j'ai fait des essais mais je n'y arrive pas.

D'avance merci.

[chrismonoye]

Bonjour,
tester si l'attribut voulu du nœud existe genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If CueShildNode.Name = "CuePart" AndAlso CueShildNode.Attributes("name") IsNot Nothing Then

[wholehog2]

Merci c'est ce que je voulais faire.

J'ai intégré ton code et je suis a nouveau bloqué.

voila ce que j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
            For i As Integer = 0 To CueShildNodes.Count - 1
                Dim CueShildNode As XmlNode = CueShildNodes(i)
 
                If CueShildNode.Name = "CuePart" AndAlso CueShildNode.Attributes("name") IsNot Nothing Then
                    strgBuilt.Append("TEXT " & CueShildNode.Attributes.ItemOf("name").Value)
                    strgBuilt.AppendLine()
 
                ElseIf CueShildNode.Name = "InfoItems" Then
                    strgBuilt.Append("TEXT " & CueShildNode.InnerText)
                    strgBuilt.AppendLine()
                End If
 
            Next

ça me met une ligne avec
TEXT "texte du info de infoitem"
puis une ligne avec
TEXT "texte du cuepart name"

mais ce que je veux c'est qu'une seule ligne TEXT avec "texte du cuepart name" ou "texte du info de infoitem" si "texte du cuepart n'existe pas.

Vois tu l'erreur que j'ai faite ?

[chrismonoye]

Bonjour,
à première vue, le souci ne vient pas du bout de code que tu fournis.
Il faudrait voir dans ton code si tu ne recherches pas deux fois "cuepart name".