[](VB) Récupérer les données dans un fichier .xml

Version imprimable

26/09/2005, 00h52
Furius

[](VB) Récupérer les données dans un fichier .xml

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 ?
26/09/2005, 14h14
ridan

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

:)

Bonjour ridan et merci

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

Code:

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 ?

Récupérer des données de fichiers html

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:

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[/]

02/10/2005, 20h39
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à.