XML et vb 2005
Résolu
cs_breton51
Messages postés
78
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
15 novembre 2018
-
15 sept. 2006 à 15:03
cs_breton51 Messages postés 78 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 15 novembre 2018 - 19 sept. 2006 à 14:33
cs_breton51 Messages postés 78 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 15 novembre 2018 - 19 sept. 2006 à 14:33
2 réponses
cs_breton51
Messages postés
78
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
15 novembre 2018
19 sept. 2006 à 14:33
19 sept. 2006 à 14:33
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' utilisation des fonctions de ce module '
' '
' 1°) lectureXML '
' dim valeur as string '
' valeur = lectureXML("chemin_du_fichier" _ '
' ,"chemin_de_la_valeur" _ '
' ,"valeur_a_recherché" _ '
' ,"type_du_chemin_de_la_valeur" ) optionnel '
' '
' 2°) EcritureXML '
' dim valeur as string '
' ecritureXML("chemin_du_fichier" _ '
' ,"chemin_de_la_valeur" _ '
' ,"noeud_de_la_valeur_a_modifier" _ '
' ,"valeur_à_modifier _ '
' ,"type_du_chemin_de_la_valeur" ) optionnel '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Imports
System.Xml
Module
XML
Private
root
As
XmlNode
Public
Function
lectureXML(
ByVal
chemin_fichier
As
String
,
ByVal
chemin_recherche
As
String
,
ByVal
valeur
As
String
,
Optional
ByVal
type
As
String
=
""
)
As
String
'declaration des varriables
Dim
parent()
As
String
Dim
i
As
Integer
'exploration du tableau
Dim
temp
As
String
'varriable contenant la valeur a recup
Dim
position
As
Integer
'position d'un eventuel retour cahrio (vbcr)
Dim
xmlTemp
As
XmlNode
'variable pour parcourrir le fichier XML
'initialisation du retour de la fonction
lectureXML =
""
'ouvre le fichier et copy les info dans root
Dim
XMLStruct
As
New
XmlDocumentXMLStruct.Load(chemin_fichier)
'met dans root l'integraliter du fichier xml
root = XMLStruct.DocumentElement
'decoupe le chemin dans un tableau
parent = Split(chemin_recherche,
","
)
'initialise xmltemp sur le premier noeud contenu dans chemin recherche
xmlTemp = root.Item(parent(0))
'boucle pour allez a la bonne valleur
For
i = 1
To
UBound(parent)xmlTemp = xmlTemp.Item(parent(i))
Next
i
'verifi que le type est corecte
While
type <> xmlTemp.Attributes(0).Value.ToString
And
type <>
""
xmlTemp = xmlTemp.NextSibling
End
While
'met dans temp la valeur rechercher
temp = xmlTemp.Item(valeur).InnerText
'recherche un eventuel retour a la ligne
position = InStr(temp, vbCr)
If
position <> 0
Then
'si retour a la ligne recup ce qui se trouve avant le retour a la ligne
lectureXML = (Mid(temp, 1, position - 1))
Else
'sinon retourne les données
lectureXML = (temp)
End
If
End
Function
Public
Function
ecritureXML(
ByVal
chemin_fichier
As
String
_,
ByVal
chemin_de_la_valeur
As
String
_,
ByVal
noeud_de_la_valeur_a_modifier
As
String
_,
ByVal
valeur_à_modifier
As
String
_,
Optional
ByVal
type_du_chemin_de_la_valeur
As
String
=
""
)
As
Boolean
Dim
XMLStruct
As
New
XmlDocumentXMLStruct.Load(chemin_fichier)
'met dans root l'integraliter du fichier xml
root = XMLStruct.DocumentElement
'declaration des varriables
Dim
parent()
As
String
Dim
i
As
Integer
'exploration du tableau
Dim
xmlTemp
As
XmlNode
'variable pour parcourrir le fichier XML
'initialisation du retour de la fonction
ecritureXML =
False
'decoupe le chemin dans un tableau
parent = Split(chemin_de_la_valeur,
","
)
'initialise xmltemp sur le premier noeud contenu dans chemin recherche
xmlTemp = root.Item(parent(0))
'boucle pour allez a la bonne valleur
For
i = 1
To
UBound(parent)xmlTemp = xmlTemp.Item(parent(i))
Next
i
'verifi que le type est corecte
While
type_du_chemin_de_la_valeur <> xmlTemp.Attributes(0).Value.ToString
And
type_du_chemin_de_la_valeur <>
""
xmlTemp = xmlTemp.NextSibling
End
While
'modifi la valeur dans xmltemp
xmlTemp.Item(noeud_de_la_valeur_a_modifier).InnerText = valeur_à_modifier
'sauve le fichier
XMLStruct.Save(chemin_fichier)
End
Function
End
Module
' utilisation des fonctions de ce module '
' '
' 1°) lectureXML '
' dim valeur as string '
' valeur = lectureXML("chemin_du_fichier" _ '
' ,"chemin_de_la_valeur" _ '
' ,"valeur_a_recherché" _ '
' ,"type_du_chemin_de_la_valeur" ) optionnel '
' '
' 2°) EcritureXML '
' dim valeur as string '
' ecritureXML("chemin_du_fichier" _ '
' ,"chemin_de_la_valeur" _ '
' ,"noeud_de_la_valeur_a_modifier" _ '
' ,"valeur_à_modifier _ '
' ,"type_du_chemin_de_la_valeur" ) optionnel '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Imports
System.Xml
Module
XML
Private
root
As
XmlNode
Public
Function
lectureXML(
ByVal
chemin_fichier
As
String
,
ByVal
chemin_recherche
As
String
,
ByVal
valeur
As
String
,
Optional
ByVal
type
As
String
=
""
)
As
String
'declaration des varriables
Dim
parent()
As
String
Dim
i
As
Integer
'exploration du tableau
Dim
temp
As
String
'varriable contenant la valeur a recup
Dim
position
As
Integer
'position d'un eventuel retour cahrio (vbcr)
Dim
xmlTemp
As
XmlNode
'variable pour parcourrir le fichier XML
'initialisation du retour de la fonction
lectureXML =
""
'ouvre le fichier et copy les info dans root
Dim
XMLStruct
As
New
XmlDocumentXMLStruct.Load(chemin_fichier)
'met dans root l'integraliter du fichier xml
root = XMLStruct.DocumentElement
'decoupe le chemin dans un tableau
parent = Split(chemin_recherche,
","
)
'initialise xmltemp sur le premier noeud contenu dans chemin recherche
xmlTemp = root.Item(parent(0))
'boucle pour allez a la bonne valleur
For
i = 1
To
UBound(parent)xmlTemp = xmlTemp.Item(parent(i))
Next
i
'verifi que le type est corecte
While
type <> xmlTemp.Attributes(0).Value.ToString
And
type <>
""
xmlTemp = xmlTemp.NextSibling
End
While
'met dans temp la valeur rechercher
temp = xmlTemp.Item(valeur).InnerText
'recherche un eventuel retour a la ligne
position = InStr(temp, vbCr)
If
position <> 0
Then
'si retour a la ligne recup ce qui se trouve avant le retour a la ligne
lectureXML = (Mid(temp, 1, position - 1))
Else
'sinon retourne les données
lectureXML = (temp)
End
If
End
Function
Public
Function
ecritureXML(
ByVal
chemin_fichier
As
String
_,
ByVal
chemin_de_la_valeur
As
String
_,
ByVal
noeud_de_la_valeur_a_modifier
As
String
_,
ByVal
valeur_à_modifier
As
String
_,
Optional
ByVal
type_du_chemin_de_la_valeur
As
String
=
""
)
As
Boolean
Dim
XMLStruct
As
New
XmlDocumentXMLStruct.Load(chemin_fichier)
'met dans root l'integraliter du fichier xml
root = XMLStruct.DocumentElement
'declaration des varriables
Dim
parent()
As
String
Dim
i
As
Integer
'exploration du tableau
Dim
xmlTemp
As
XmlNode
'variable pour parcourrir le fichier XML
'initialisation du retour de la fonction
ecritureXML =
False
'decoupe le chemin dans un tableau
parent = Split(chemin_de_la_valeur,
","
)
'initialise xmltemp sur le premier noeud contenu dans chemin recherche
xmlTemp = root.Item(parent(0))
'boucle pour allez a la bonne valleur
For
i = 1
To
UBound(parent)xmlTemp = xmlTemp.Item(parent(i))
Next
i
'verifi que le type est corecte
While
type_du_chemin_de_la_valeur <> xmlTemp.Attributes(0).Value.ToString
And
type_du_chemin_de_la_valeur <>
""
xmlTemp = xmlTemp.NextSibling
End
While
'modifi la valeur dans xmltemp
xmlTemp.Item(noeud_de_la_valeur_a_modifier).InnerText = valeur_à_modifier
'sauve le fichier
XMLStruct.Save(chemin_fichier)
End
Function
End
Module
Julien237
Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
7
15 sept. 2006 à 15:44
15 sept. 2006 à 15:44
De tête, je pense que tu peux simplement faire comme ceci :
(Ca vaut plus vraiment la peine faire une fonction, mais bon, à toi de voir...)
Dim element As Xml.XmlNode
element = xmldoc.SelectSingleNode("inputs/input/duration")
MsgBox(element.InnerText)
Julien.
(Ca vaut plus vraiment la peine faire une fonction, mais bon, à toi de voir...)
Dim element As Xml.XmlNode
element = xmldoc.SelectSingleNode("inputs/input/duration")
MsgBox(element.InnerText)
Julien.
