mohamed222222
Messages postés161Date d'inscriptionmardi 12 juin 2007StatutMembreDernière intervention22 avril 2009
-
9 août 2007 à 15:56
mohamed222222
Messages postés161Date d'inscriptionmardi 12 juin 2007StatutMembreDernière intervention22 avril 2009
-
9 août 2007 à 16:31
Bonjour à tous!!!
Je voudrai traduire un fichier txt en fichier xml.
Private Sub Form_Load()
Dim oXML As DOMDocument
Dim oRoot As IXMLDOMElement
Dim i As Long
Dim xsHotels() As String
Dim xsParts() As String
'# L'objet qui va nous permettre de manipuler notre document.
Set oXML = New DOMDocument
'# Racine de notre document
oXML.appendChild oXML.createElement("personnes")
'# On découpe la chaine d'entrée par lignes : une ligne = un hotel
xsHotels = Split(sFileContent, vbNewLine)
For i = 0 To UBound(xsHotels)
'# On créé un élément 'hotel' pour chaque hotel
Set oRoot = oXML.createElement("personne")
oXML.childNodes(0).appendChild oRoot
'# On découpe chacun des champs qui compose chaque ligne
xsParts = Split(xsHotels(i), ";")
'# On definit chaque attribut
oRoot.setAttribute "nom", xsParts(0)
oRoot.setAttribute "prenom", xsParts(1)
oRoot.setAttribute "id", xsParts(2)
oRoot.setAttribute "age", xsParts(3)
Next i
'# On crée le fichier XML
oXML.save "C:\d.xml"
End Sub , ----
By Renfield