XML : CLASSE QUI PERMET LA LECTURE/ECRITURE/SUPPRESSION D'INFOS À LA MANIÈRE DES
Tdigiacomo
Messages postés
8
Date d'inscription
mercredi 19 février 2003
Statut
Membre
Dernière intervention
4 juillet 2007
-
19 oct. 2003 à 10:58
XelectroX Messages postés 209 Date d'inscription samedi 11 novembre 2000 Statut Membre Dernière intervention 6 novembre 2009 - 1 août 2008 à 21:31
XelectroX Messages postés 209 Date d'inscription samedi 11 novembre 2000 Statut Membre Dernière intervention 6 novembre 2009 - 1 août 2008 à 21:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6948-xml-classe-qui-permet-la-lecture-ecriture-suppression-d-infos-a-la-maniere-des-fichiers-ini-d-avant
https://codes-sources.commentcamarche.net/source/6948-xml-classe-qui-permet-la-lecture-ecriture-suppression-d-infos-a-la-maniere-des-fichiers-ini-d-avant
1 août 2008 à 21:31
Un fichier xml horrible en sortie :(
1 août 2008 à 20:24
imaginons, qu'on veut écrire plus de 100 paramètres ...
le fichier va être ouvert, lu, écrit, fermé à chaque fois !
au niveau des performances, c'est à revoir :s
encore à l'écriture, elle est incapable de créer le fichier ...
pourquoi pas intégrer le .ToUpper() directement dans la fonction de lecture ?
cette source pourrait être super mais elle a quelques assez gros défauts ...
6/10
11 oct. 2005 à 18:46
29 juin 2005 à 14:04
"ou si vous utilisez des variables:
s = XML.Read(mavar.ToUpper())"
Ba tu peut aussi faire "une string".ToUpper()
et ouai...
20 déc. 2004 à 10:14
26 juin 2004 à 17:21
merci
bart-rennes
21 juin 2004 à 22:58
les noms des NODES et des KEYS doivent êtres en majuscules
ainsi
XML.Write("en", "Language")
enregistrera 'en' dans la section "LANGUAGE"
il faudra donc pour le lire:
s = XML.Read("LANGUAGE")
ou si vous utilisez des variables:
s = XML.Read(mavar.ToUpper())
28 déc. 2003 à 01:10
Vive VB6 lol :)
19 oct. 2003 à 10:58
Pour créer un nouveau XML
Public Class XML
Public Sub CreateXML(ByVal strFichier As String, ByVal strInformation As String, ByVal strEnfant As String, ByVal strSousEnfant As String)
Dim xDoc As New XmlDocument()
Dim xPI As XmlProcessingInstruction
Dim xCommentaire As XmlComment
Dim xElementRacine As XmlElement
Dim xElementEnfant As XmlElement
xPI = xDoc.CreateProcessingInstruction("xml", "version='1.0'")
xDoc.AppendChild(xPI)
xCommentaire = xDoc.CreateComment(strInformation)
xDoc.AppendChild(xCommentaire)
xElementRacine = xDoc.CreateElement("XML")
xDoc.AppendChild(xElementRacine)
xElementEnfant = CType(xElementRacine.AppendChild(xDoc.CreateElement(strEnfant)), XmlElement)
Call xElementEnfant.AppendChild(xDoc.CreateElement(strSousEnfant))
xDoc.Save(strFichier)
End Sub
End Class