Lotus Notes - Crear archivo .xml desde lotus script

 
Vista:

Crear archivo .xml desde lotus script

Publicado por Angels Digon adigon@quimidroga.com (1 intervención) el 11/05/2018 09:17:23
Hola a todos!
Necesito crear un script en Lotus Notes que genere un archivo .xml recogiendo varios campos del formulario de Notes.
Tenéis algún ejemplo para ver como puedo hacerlo?
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Crear archivo .xml desde lotus script

Publicado por El Lobo (30 intervenciones) el 04/07/2019 18:58:22
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#===========================================================
Metodo no purista. Puede dar errores con los acentos (Probar UTF-8 en encoding) ademas de no validar si esta mal formado
#===========================================================
Set oSession = New NotesSession
Set oFile = oSession.CreateStream
 
sFilePath  = "c:\Fichero.xml"
 
If Not oFile.Open(sFilePath , sCharSet ) Then Error 9999 , "Open failed: " & sFilePath
 
oFile.writeText("<?xml version="1.0" encoding="iso-8859-1"?>")
 
oFile.writeText("<Usuarios>")
 
Set oView= oSession.CurrentDatabase.getView("Users")
 
 
For nDoc=1 To oView.Count
 
     set oDoc = oView.getNthDocument(nDoc)
 
     oFile.writeText("<Usuario nombre='" & oDoc.Nombre(0) & "'  email='" & oDoc.email(0) & "'/>")   'OJO a las comillas simples

next


oFile.writeText("</Usuarios>")

Call oFile.Close()

Algo asi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#===========================================================
Metodo PURISTA https://www.microsoft.com/es-es/download/details.aspx?id=3988
https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms764643(v=vs.85)
#===========================================================
Set xmlDoc = CreateObject( "Msxml2.DOMDocument" ) 'Ultima version "Msxml2.DOMDocument.6.0"

Dim MyNode
Dim namedNodeMap

xmlDoc.async = false
xmlDoc.loadXML("<root><child/></root>")

Set MyNode = xmlDoc.createNode(2, "Sci-Fi", "")  
Set namedNodeMap = xmlDoc.documentElement.childNodes.item(0).attributes

Call namedNodeMap.setNamedItem(MyNode)
 
..........
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar