NOTESSIDAN

Allt om Lotus Notes & Domino




Läs XML med Lotusscript
XML kan tyckas krångligt för somliga. men det är faktiskt väldigt lätt att extrahera ut den informationen man vill ha. Häng med nu så slipper du få panikångest nästa gång du ska läsa en xml fil programmatiskt.

Bilden nedan visar en XML fil av Lottoresultatet på Svenska Spel.

xml

Anta nu att du vill ta ut värden från XML filen och lagra i en Lotus Notes databas. Lotusscriptet nedan visa ett lätt sätt att få ut dom värden man behöver. (en tagg kan också kallas för node)

Sub Initialize ' Initiera MSXML och hämta XML filen från svenska spel på internet Set xmlDoc = createObject("Msxml.DOMDocument") xmlDoc.async = False xmlDoc.setProperty "ServerHTTPRequest", True xmlDoc.load("http://www.svenskaspel.se/includes/xmlelements/XMLresultat.asp?produktid=8&omgang=1470") If (xmlDoc.parseError.errorCode <> 0) Then Print "Parse Error" & xmlDoc.parseError.reason Else ' Hitta alla taggar med namn produktnamn Set produktnamn = xmlDoc.selectNodes("//produktnamn") ' Returnera värdet av den första taggen "produktnamn" pname = produktnamn(0).text ' Lotto 1 - Lördag ' Hitta alla taggar med namn spelomgang Set spelomgång = xmlDoc.selectNodes("//spelomgang") ' Returnera några värden under första taggen "spelomgang" omgang = spelomgång(0).childnodes(0).text ' 1470 datum = spelomgång(0).childnodes(1).text ' Vecka 45 2008-11-08 status = spelomgång(0).childnodes(2).text ' Avslutad ' Hitta alla taggar med namn resultat Set resultat = xmlDoc.selectNodes("//resultat") ' Returnera nummer 1 under taggen första taggen resultat resultat = resultat(0).childNodes(0).text ' 16 End If End Sub



Relevanta Poster på Notessidan:



Publicerad 2008-11-12 | Kommentarer: 2 | Läsningar: 1835
Kommentarer

Roger ( 2008-11-17 11:51:40 )
En sak att tänka på om man använder activex komponenten "msxml" för att tolka xml är att om detta sker i en web agent så kräver den att signeraren tillåts att "Run unrestricted methods and operations:" i server dokumentet.

Det är då bättre att använda ibms egna klasser:

Dim domParser As NotesDOMParser
Dim objDoc As NotesDOMDocumentNode
Dim oNotesDOMNodeList As NotesDOMNodeList
Set domParser = m_session.CreateDOMParser (getRequest_Content ( m_note, iRCSize ) )

Tyvärr är dom klasserna inte lika lätta att använda som microsofts... men det går.

Daniel Lehtihet ( 2008-12-04 21:46:13 ) Websida
En annan väldigt stor fördel med att använda IBM klasserna är portabiliteten. Alla kör inte Windowsservrar :)



Sök på Notessidan
Thomas Adrian
ThomasCertifierad utvecklare och administratör inom Notes & Domino

Kontakta mig







Senaste Sökningarna på Notessidan
Sön - sharepoint (R:1)
Sön - räkna and antal and besökare (R:0)
Sön - browser (R:17)
Sön - stoppar and mail (R:1)
Sön - korrupt (R:3)
Sön - böcker (R:0)
Sön - kalendern (R:12)
Sön - feature (R:15)
Sön - print and mime (R:2)
Sön - länka (R:0)
Sön - databasen (R:94)
Sön - access (R:47)
Sön - outlook (R:15)
Sön - webanvändare (R:0)
Sön - google and maps (R:6)
Sön - juffe (R:2)
Sön - uidoc.print (R:1)
Sön - java and lotusscript (R:26)
Sön - besök (R:0)




Databasstatistik Blogg
Uppdateras var 15:e Minut

Antal Poster:562
Antal Kommentarer: 1405
Alla sidvisningar idag:
Unika Besökare idag:
Databasstorlek: 153,25Mb
Fixup: 2019-09-22 21:33:25
FT:2019-09-23 07:19:27
DB Procent använd: 99,5
Antal Agenter: 42
Antal Formulär: 65
Antal Vyer: 60
Antal Dokument: 7983
Antal Image Resources: 108
Antal Subformulär: 18
Antal Scriptbibliotek: 11
Totalt Antal Designelement: 576
Antal Attachments: 159
Antal Konflikter: 0
Server version 1: 405
Server version 2: Release 9.0.1FP9|August 14, 2017
Server Plattform: Windows/64
Ändrad: 2019-09-23 09:09:43
Server Tidszon: Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=131$ZN=W. Europe
Region:
Kommentarsspam Idag: 7
Kommentarsspam Totalt: 18902


BlogRankers.com

Top Sites at iWEBTOOL.com

Fight Spam! Click Here!

Bloggtoppen.se

Listed on BlogShares

Increase website traffic

Top Internet Blogs

Site Checker