Domino 9 und frühere Versionen > ND6: Entwicklung

HTTP-Request - XML- Verarbeiten

<< < (7/9) > >>

Marinero Atlántico:
thank u

aei:
Also wirklich. Da haben wir heute wirklich viel gelernt und ich sag mal ein ganz dickes DANKESCHÖN in die Runde!

Wenn ich die Routinen implementiert habe gebe ich mal einen Status- oder auch Erfahrungsbericht dazu ab.

Settler:

--- Zitat von: Thomas Völk am 10.03.05 - 13:34:55 ---wir haben damit übrigens den amazon Webservice abgefragt um die Eingabe von Bücherdaten in die BibliotheksDB zu erleichtern.
Sehr schöne Funktionalität :D

--- Ende Zitat ---


Jo is echt gut gelungenl :)
Die Officemädels waren ganz happy


EDIT:
krass mein erster Post, war sonst immer stiller Genießer des Forums...

aei:
So...implementiert und funktioniert.

An alle "ich-machs-mit-1000-zeilen-java-jongleure".

HTTP-Get inkl. Paramterübergabe mit Notes-Bordmittel:

Set myXML = CreateObject("Microsoft.XMLDom")
myXML.load("Filename or URL")
Set xmlnodes = myXML.getElementsbyTagName("MYTAG")
Forall node In xmlnodes
Set newdoc=New NotesDocument(db)
'und hier jetzt die einzelnen tags auslesen
 elementxy = source.getElementsByTagName(Tag)
end forall

Und hier die passende Funktion dazu:

Function ElementsByTagName(source,Tag As String)As Variant
Dim XMLList() As String
Set x=source.getElementsByTagName(Tag)

On Error Goto Erreur
Redim XMLList(1 To x.length)
For i = 1 To x.length
XMLList(i)=(x.item(i-1).text)
Next
ElementsByTagName=XMLList
Exit Function
Erreur:
XMLList(1)=False
ElementsByTagName=XMLList
End Function

....und FERTIG!

Thomas Schulte:
auch nicht schecht. Das hätte ich in Kopenhagen gebrauchen können.  ;D

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete