XMLCreator-klassen är en klass designad för att underlätta skapandet av XML-dokument. Den förpackar MXXMLWriter30-klassen från Microsoft och skapar XML-dokument såväl i minnet som sparade på disk.
Den stora fördelen med den här klassen är att den tar hand om all kodning av specialtecken osv.
Bli den förste att kommentera eller ställa en fråga om koden!
Behöver:
"Microsoft XML, v3.0" or later
"Microsoft ActiveX Data Objects 2.5 Library" or later
Här är ett exempel på hur den används:
Dim x As clsXMLCreator
Set x = New clsXMLCreator
x.Encoding = "UTF-8"
x.NewDocument
x.NewElement "Test"
x.AddAttribute "Version", 1
x.AddElement
x.NewElement "Persons"
x.AddElement
x.NewElement "Person"
x.AddAttribute "FName", "John"
x.AddAttribute "EName", "Doe
x.AddAttribute "DOB", "1999-01-01"
x.AddElement
x.SetElementValue "This is the first unknown person"
x.EndElement
x.NewElement "Person"
x.AddAttribute "FName", "Jean"
x.AddAttribute "EName", "Doe"
x.AddAttribute "DOB", "1999-02-02"
x.AddElement
x.EndElement
x.EndElement
x.EndElement
x.EndDocument
MsgBox x.GetDocument
Gränssnittet:
- Encoding as string
Returnerar eller sätter vilken typ av kodning som skall användas i det resulterande XML-dokumentet. Standard är UTF-16.
- Standalone as boolean
Returnerar eller sätter standalone attributet i XML-deklarationen. Standard är True.
- OutputEscaping as boolean
Returnerar eller sätter hurvuda specialtecken skall kodas eller inte. Standard är True.
- Indent as boolean
Returnerar eller sätter hurvida det resulterande XML-dokumentet skall vara indenterat eller inte. Standard är True.
- XMLDeclaration as boolean
Returnerar eller sätter hurvida XML-deklarationen skall tas med i det resulterande XML-dokumentet eller inte. Standard är True .
- NewDocument()
Startar ett nytt XML-dokument.
- EndDocument()
Avslutar ett XML-dokument.
- NewElement(ElementName as String)
Skapar ett nytt XML-element vid namn ElementName.
- SetElementValue(Value as string)
Sätter värdet på det nuvarande XML-elementet.
- AddElement()
Lägger till ett skapat element till XML-dokumentet.
- EndElement()
Avslutar ett element som lagts till XML-dokumentet.
- AddAttribute(AttributeName as string, AttributeValue as string)
Lägger till ett attribut till ett skapat element.
- GetDocument() as string
Returnerar XML-dokumentet som en sträng.
- SaveDocument(FileName as string)
Sparar XML-dokumentet till en fil.
För mer gratis mjukvara titta in till www.winsoft.se