Discussion :

[Furius]

Bonjour à tous, je voudrai créé un script « VB » qui récupérer et affiche les données contenu dans un fichier .xml.

Voila j’ai un programme donc le menu est dans un fichier .xml, je modifie souvent ce menu puis je le sauvegarde, mais de temps en temps j’ai besoin retrouver un fichier sauvegarder bien précis mais pour le retrouver en ouvrant tout les .xml sauvegarder pour consulter leurs contenu cela prend du temps, s’est pour quoi je voudrai créer un script « VB » qui récupère et affiche les donnée d’un .xml.

Se script « VB » devra être un boite de dialogue muni d’un bouton « Parcourir » qui permettra d’aller chercher les fichier .xml à consulter.

L’ennui s’est que je n’y connais rien en « VB ».

Quelqu’un ici pourrait m’aiguiller ?

[ridan]

http://vb.developpez.com/faq/?page=Routines#lirexml

[Furius]

Bonjour ridan et merci

Je viens de copier le code suivant dans le bloc note, puis j’ai enregistré « litxml.vbs » :

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
Private Sub BrowseChildNodes(root_node As IXMLDOMNode)
 
    Dim i As Long
 
    For i = 0 To root_node.childNodes.length - 1
        If root_node.childNodes.Item(i).nodeType <> 3 Then Debug.Print root_node.childNodes.Item(i).baseName
        BrowseChildNodes root_node.childNodes(i)
    Next
 
End Sub
 
Private Sub BrowseXMLDocument(ByVal filename As String)
 
    Dim xmlDoc As DOMDocument, root As IXMLDOMElement
 
    Set xmlDoc = New DOMDocument
    xmlDoc.async = False
    xmlDoc.Load filename
    Set root = xmlDoc.documentElement
    If Not root Is Nothing Then
        Debug.Print root.baseName
        BrowseChildNodes root
    End If
 
End Sub

Quand je lance le fichier il y a un message d’erreur, regarder la capture :
http://pic.aceboard.net/img/5476/8954/1127740762.jpg

Il faut le compiler ce script ?
Si oui pourriez vous me dire comment ?

[leroissejp]

Bonjour,
Tu peux utiliser ce code.Places sur une Form un TextBox (propriété Multiligne sur True. un contrôle CommondDialog et deux CommandButton (cmdExport et cmdEnregistrer.

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
 
 
Private Sub cmdExport_Click()
Dim FileExport As String
    With cd1
        .CancelError = True
        .FileName = ""
        .InitDir = App.Path
        .Filter = "Fichiers HTML(*.HTM)|*.HTM"
        .DefaultExt = "HTM"
        .Flags = cdlOFNOverwritePrompt Or cdlOFNCreatePrompt
        On Error GoTo Annuler
        .ShowOpen
    End With
 
Open cd1.FileName For Input As #1
Line Input #1, FileExport
Close #1
Text1.Text = FileExport
GoTo Suite:
 
Annuler:
MsgBox "Vous n'avez sélectionné aucun fichier"
Suite:
End Sub
 
Private Sub cmdEnregistrer_Click()
Open cd1.FileName For Output As #1
Print #1, Text1.Text
Close #1
 
End Sub

[B]jpleroisse[/]

[AlainTech]

VBS n'accepte pas le typage.

On ne peut donc pas déclarer une variable "As quelque chose".

Je pense que ton message d'erreur vient de là.