XMLelement für VBScript

Da es immer wieder im Kontext von enaio Events ärgerlich ist XMLs zu schreiben habe ich hier Rolands (@rk) Python XmlElement Bibliothek als VBScript XmlElement nachgebaut.

Einfach die ca. 60 Zeilen und den GlobalServerScript und/oder GlobalClientScript packen und in euren Events verwenden. Natürlich funktioniert dieser Code auch unabhängig von enaio.

Beispiel

Dim Query: Set Query = XMLElement("DMSQuery")
With Query
	With .Child("Archive")
        With .Child("Object")
            .Attr "internal_name", "Document"
            
            With .Child("Fields")
                .Attr "field_schema", "ALL"
            End With
            
            With .Child("Conditions")
                With .Child("ConditionObject")
                    .Attr "internal_name", "Document"
                    
                    With .Child("FieldCondition")
                        .Attr "internal_name", "Name"
                        .Attr "operator", "="
                        .ChildWithContent "Value", "Content"
                    End With
                End With
            End With
        End With
    End With
End With

Ergebnis

<DMSQuery>
	<Archive>
		<Object internal_name="Document">
			<Fields field_schema="ALL"/>
			<Conditions>
				<ConditionObject internal_name="Document">
					<FieldCondition internal_name="Name" operator="=">
						<Value>Content</Value>
					</FieldCondition>
				</ConditionObject>
			</Conditions>
		</Object>
	</Archive>
</DMSQuery>
2 Likes

Das ist wirklich nett, dass man nun auch in VBScripts/Events XMLs so notieren kann, dass man die Struktur wiedererkennt. Ich finde das viel logischer als die „lineare“ Optik der normalen XML-Writer. Vielen Dank! :smiley:

@uw hat den Code unter MIT veröffentlicht, also kann dieser jederzeit und überall eingesetzt werden.