Domino中通过ls代理操作物力路径下的xml文件

最新推荐文章于 2021-04-20 15:57:39 发布
原创 最新推荐文章于 2021-04-20 15:57:39 发布 · 780 阅读 · 0 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
这个博客展示了如何在Lotus Domino中通过`ls`代理操作物理路径下的XML文件，包括创建、插入、修改和删除XML节点。示例代码详细说明了如何利用`msxml2.domdocument`对象进行XML文档的操作，如设置属性、插入和删除节点，并用XPath进行节点选择。

----------------------------------创建xml----------------------------------------------------

Sub Initialize
 On Error Goto a 
 Dim session As New NotesSession
 
 Path = "D:\Test.xml"    '创建路径
 
 Dim ObjDom As Variant
 Set ObjDom = createObject("msxml2.domdocument")
 ObjDom.async = False
 ObjDom.resolveExternals = False
 Call ObjDom.Setproperty("SelectionLanguage","XPath")  '解析Xpath语言，区分大小写
 
 Set RootNode = ObjDom.CreateProcessingInstruction("xml","version='1.0' encoding='GBK'") '创建xml标签
 Call ObjDOM.Appendchild(RootNode)
 
 '创建根节点
 
 Set PNode = ObjDOM.Createelement("father")   
 Call PNode.Setattribute("ID","007")         '给PNode节点添加属性
 Call PNode.Setattribute("Name","sz")          '给PNode节点添加属性
 Call ObjDOM.Appendchild(PNode)
 
 '创建子节点
 Set CNode1 = ObjDom.Createelement("a1")
 Call CNode1.Setattribute("value","sz")
 
 Set CNode2 = ObjDom.Createelement("a2")
 Call CNode2.Setattribute("value","wy")
 
 Set CNode3 = ObjDom.Createelement("a1")
 Call CNode3.Setattribute("value","wsp")
 
 Call PNode.Appendchild(CNode1)
 Call PNode.Appendchild(CNode2)
 Call PNode.Appendchild(CNode3)
 
 '创建子节点
 
 Set NameNode1 = ObjDom.Createelement("Name")
 NameNode1.text = "特种兵"     '节点值
 Set NameNode2 = ObjDom.Createelement("Name")
 NameNode2.text = "小冶"
 Set NameNode3 = ObjDom.Createelement("Name")
 NameNode3.text = "鹏少"
 
 Set IdNode1 = ObjDom.Createelement("ID")
 IdNode1.text = "001"
 Set IdNode2 = ObjDom.Createelement("ID")
 IdNode2.text = "002"
 Set IdNode3 = ObjDom.Createelement("ID")
 IdNode3.text = "003"
 
 '--------在指定的子节点之前插入节点--------
 Set SetNode = ObjDom.Createelement("SetName")
 CallSetNode.Setattribute("color","red") '插入节点属性
 SetNode.text = "特种兵007"    '插入节点值
 
 Call CNode1.Parentnode.Insertbefore(SetNode,Null) '在父节点的位置
 Call CNode1.Insertbefore(SetNode,Null)
 '-------------------------------------------
 
 Call CNode1.Appendchild(NameNode1)
 Call CNode1.Appendchild(IdNode1)
 
 Call CNode2.Appendchild(NameNode2)
 Call CNode2.Appendchild(IdNode2)
 
 Call CNode3.Appendchild(NameNode3)
 Call CNode3.Appendchild(IdNode3)
 
 
 Call ObjDom.save(Path)
 
 Exit Sub
a:
 Msgbox "错误在代理agent_CreateXml的第" & Erl & "行：" & Error
 
End Sub

----------------------------------在已有xml中插入节点----------------------------------------------------

Sub Initialize
 On Error Goto a
 
 Dim session As New NotesSession 
 Path = "D:\Test.xml"  
 
 Dim ObjDom As Variant
 Set ObjDom = createObject("msxml2.domdocument")
 ObjDom.async = False
 ObjDom.resolveExternals = False
 Call ObjDom.Setproperty("SelectionLanguage","XPath")  '解析Xpath语言，区分大小写
 
 If  ObjDom.load(Path) Then '判断是否读取到指定路径下的xml文件
  
  Set SNode = ObjDOM.SelectSingleNode("//father")  
  '创建子节点
  Set PNode = ObjDOM.Createelement("b") 
  Call PNode.Setattribute("value","呵呵")
  Call SNode.Appendchild(PNode)
  Set CNode1 = ObjDom.Createelement("b1")
  
  CNode1.text = "111"
  Call PNode.Appendchild(CNode1)
  
  Set CNode2 = ObjDom.Createelement("b2")
  CNode2.text = "222"
  Call PNode.Appendchild(CNode2)
  
 '--------在指定的子节点之前插入节点--------
  Set SetNode = ObjDom.Createelement("SetName")
  Call SetNode.Setattribute("color","green") '插入节点属性
  SetNode.text = "侦察兵"
  Call CNode1.Parentnode.Insertbefore(SetNode,Null) '在父节点的位置
 '-------------------------------------------
  
  Call ObjDom.save(Path)
 End If
 
 Exit Sub
a:
 Msgbox "错误在代理agent_InsertXml的第" & Erl & "行：" & Error
 
End Sub

----------------------------------修改已有xml中的节点----------------------------------------------------

 Sub Initialize
 On Error Goto a 
 Dim session As New NotesSession
 Path = "D:\Test.xml" 
 
 Dim ObjDom As Variant
 Set ObjDom = createObject("msxml2.domdocument")
 ObjDom.async = False
 ObjDom.resolveExternals = False
 
 If ObjDom.load(Path) Then
  
   '修改节点值
  Set AimNode = ObjDOM.Selectsinglenode("/father/a1/Name")    
  AimNode.text = "谢文东"
  
  '修改节点属性
  Set EditNode = ObjDOM.Selectsinglenode("/father/a1")
  Call EditNode.setAttribute("val3ue","80980") '不能为空
  
  Call ObjDom.save(Path)
 End If
 
 
 Exit Sub
a:
 Msgbox "错误在代理agent_DeleteXml的第" & Erl & "行：" & Error
 
End Sub

----------------------------------删除已有xml中的节点----------------------------------------------------

Sub Initialize
 On Error Goto a 
 Dim session As New NotesSession
 Path = "D:\Test.xml" 
 
 Dim ObjDom As Variant
 Set ObjDom = createObject("msxml2.domdocument")
 ObjDom.async = False
 ObjDom.resolveExternals = False
 Call ObjDom.Setproperty("SelectionLanguage","XPath")  '解析Xpath语言，区分大小写
 
 If ObjDom.load(Path) Then   
  
  '删除节点及节点值
  
  'Set AimNode = ObjDOM.Selectsinglenode("/father/a1")         '选中结点
  'Call  AimNode.Parentnode.Removechild(AimNode)    '删除选中结点及其所有子结点
  
  'Set AimNode = ObjDOM.Selectsinglenode("/father/a1[@value='wsp']")    '选中结点(按照属性)
  'Call  AimNode.Parentnode.Removechild(AimNode)    '删除选中结点及其所有子结点
  
  'Set AimNode = ObjDOM.Selectsinglenode("/father/a1[1]")       '选中结点（按照数组顺序从0开始）
  'Call  AimNode.parentnode.Removechild(AimNode)    '删除选中结点及其所有子结点  
  
  '删除节点属性
  Set DelNode = ObjDOM.Selectsinglenode("/father/a2")
  Call DelNode.removeAttribute("value")
  
  Call ObjDom.save(Path)
 End If
 
 Exit Sub
a:
 Msgbox "错误在代理agent_DeleteXml的第" & Erl & "行：" & Error
 
End Sub

----------------------------------查询已有xml中的节点----------------------------------------------------

Sub Initialize
 On Error Goto a 
 Dim session As New NotesSession
 Path = "D:\Test.xml"  
 
 Dim ObjDom As Variant
 Set ObjDom = createObject("msxml2.domdocument")
 ObjDom.async = False
 ObjDom.resolveExternals = False
 Call ObjDom.Setproperty("SelectionLanguage","XPath")  '解析Xpath语言，区分大小写
 
 'ObjDom.load(Path)      Load指定路径下的XML文件
 'ObjDom.loadxml(doc.F_RtfXml)     Load 文档中的域值
 
 If ObjDom.load(Path) Then
  
  'Set ANode = ObjDOM.SelectSingleNode("") 查询单个节点  
  'Set ANode = ObjDom.SelectNodes("")  查询多个节点  
  
  Set ANode = ObjDOM.Selectnodes("/A/a1[ID='001']/Name")
  Msgbox ANode(0).text  
%REM 
  '选取属于 A 子元素的最后一个 a1 元素。
  Set ANode = ObjDOM.Selectsinglenode("/A/a1[last()-1]") 
  Msgbox ANode.text
  
  '选取所有属性为value的
  Set DNode = ObjDOM.Selectnodes("//@value")
  For e = 0 To DNode.length-1
   Msgbox DNode(e).text    'value值
  Next 
  '选取所有节点中的Name节点
  Set CNode = ObjDOM.Selectnodes("//Name")
  For k = 0 To CNode.length-1
   Msgbox CNode(k).text 'Name节点值
  Next
  Set ANode = ObjDOM.Selectnodes("/A/a1")  
  For i = 0 To  ANode.length-1
   Msgbox ANode(i).text
  Next 
  
  '选取属于 A 子元素的倒数第二个 a1 元素。
  Set ANode = ObjDOM.Selectsinglenode("/A/a1[last()-1]") 
  Msgbox ANode.text
  Set ANode = ObjDOM.Selectnodes("/A/a1[ID='001']/Name")  
%END REM   
 End If 
 
 Exit Sub
a:
 Msgbox "错误在代理agent_selectXml的第" & Erl & "行：" & Error
 
End Sub

标签
#xml #path #session #语言 #null
#encoding
szheng1989
关注
domino通过lotusscript解析xml
03-03
domino通过lotusscript解析xml，支持xml文件、流及字符串，可以使用对象的方式访问创建xml，如：xmldocument.标签1.子标签3.getvalue
LotusScript读写XML
08-21
基于Lotus平台，使用lotusscript语言对XML进行读写操作
Domino 控制台命令大全
weixin_33755847的博客
05-12 450
Lotus Domino Administration in a Nutshell By Greg Neilson1st Edition August 2000 1-56592-717-6, Order Number: 7176 384 pages, $24.95 Chapter 13 Domino Server Tasks and Console CommandsIn th...
domino中实现将本地文件放入数据库中的LS代码
ama7449的博客
07-31 146
domino中实现将本地文件放入数据库中的LS代码 Sub InitializeDim session As New NotesSessionDim db As NotesDatabaseDim doc As NotesDocumentDim rtitem As NotesRichTextItemDim object As NotesEmbeddedObjectSet db = ses...
domino获取文件流并生成新的附件文档
dengweitao的博客
04-20 579
这个代码我用LS调用成功了，但是没有进行联调，所以可能还存在其他的问题。话不多说，先上代码。 import lotus.domino.*; import java.io.*; import java.util.Vector; import com.ibm.jvm.util.ByteArrayOutputStream; public class EleSealToOA{ //创建附件文档 public boolean CreateAttachDoc(String inFilePath,String
DOMINO中用代理读取文档并生成XML文档
南子的BLOG
08-12 1899
写这种代理一定要注意容错性。不然一个地方出错，可能会影响整个XML文档的构。BulidXML?openagent用的时候：var xml = new ActiveXObject("Microsoft.XMLDOM");xml.async = false;xml.load("bulidXML?openagent");－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝
domino 读取共享文件夹
bluecard2008的博客
03-23 306
利用cmd命令 net use来进行。 String remotepath="\\\\IP\\YPUpload"; String localpath="D:\\Lotus\\tmppic"; String userName="AXX"; String passWord="mXX"; ///建立目录 (new File(localpath)).m...
ajax执行domino代理并返回数据（Get方法）
PlutoLiu的专栏
12-15 3291
使用原始的ajax来调用domino的代理，就是一个最简单的ajax，当然用jQuery也是一样。 var XMLRole=new XMLHttpObject("GET","/文件名/数据库名.nsf/代理名称?openagent&key="+Math.random(),false,'') ;  //红色标注的地方很纠结，如果不写的话一个代理在一次session中就执行一次，具体原因不是很清楚
Domino表单导入导出XML方法
10-08
从Domino6.0以后，系统提供了内部函数导入导出Domino内部元素为 DXL (Domino XML)数据的功能。本文档主要是说明如何使用Domino内部函数实现表单的自定义。
Domino中使用Lotus Script处理XML
ama7449的博客
10-01 337
我们的Support Team维护着不同地区各个部门的十几个Domino应用，这些应用都采用外接数据库Access DB和Oracle DB。由于某种原因，User要求连接数据库的UserID和Password可以变更，由于UserID和Password在开发时已作为Const固化在Agent 和公式@DbColumn、 @DbLookup中，所以每次变更时，不得不使用Lotus Des...
domino代理运行过程中，在WEB页面上显示信息
willemzhai的专栏
09-01 1313
查看接口数据库的 代理 ApplyNewFAXUser 里的代码       Print ||   Print |{alert("申请已提交成功，预计在两个工作日内处理完成您的申请内容！");|   Print |close(0);}|   Print || 全
Domino+XML开发中特殊字符处理（另，LS调用java类）
adeyi的专栏
06-15 1468
1：域中的特殊字符-------存储不需要处理，展示需要转义字符； 2：XML特殊字符（前台到后台）--------需要将两个字符串转换掉，另外为了显示需要，如果加在HTML，则需要HTML的提交 3：XML特殊字符（后台到前台）--------此时如果有CDATA节点则不需要做任何处理 另外，XML提交到后台时，中文都是乱吗，所以需要在提交的时候将整个XML用encode
Domino系统中B/S下附件链接的处理方法
qindeshengdong的专栏
09-06 1508
Domino系统中B/S下附件链接的处理方法B/S下Domino系统自带的附件链接都放在页面的最下面，给整个页面的排版、布局带来影响。解决办法：在B/S下，一般附件的处理方法是，在表单上加域$V2AttachmentOptions，设置其值为0，从而隐藏系统默认的附件链接，然后象下面这样自己写链接一、只读情况下的链接CODE:thisDb:=@ReplaceSubstrin
5、使用DOM解析XML文档
kaoa000的专栏——非淡泊无以明志，非宁静无以致远
02-27 4746
DOM：Document Object Model （文档对象模型） 1、DOM与SAX W3C制定了一套书写XML分析器的标准接口规范--DOM。除此之外，XML_DEV邮件列表中的成员根据应用的需求也自发地定义了一套对XML文档进行操作的接口规范--SAX。这两种接口规范各有侧重，互有长短，应用都比较广泛。；XML应用程序不是直接对XML文档进行操作的，而是首先由XML分析器对XML文档进
Domino代理中输出完整的HTML
人生如编程
04-22 1824
Print "Content-Type:text/plain"              Print "Content-Type:text/html" Print  Print "" Print "" Print {} Print {} Print {} Print {} Print ""+subject+"" Print ""  Print "" Print "" Print "　　你所选择的
2014年domino学习小结
java_jane的专栏
03-19 4989
lotus domino notes
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值