了不起的DXL

大家好，才是真的好。

虽然现在应用之间的主要交换数据方式是RESTFUL，采用的数据格式主要是JSON，但在更早的20年前，其实主要的数据交换格式是XML。

于是当年Domino R6中的DXL横空出世，让人振奋。

等等！啥是DXL？

简单的来说，DXL就是Domino XML Language，是Notes和Domino应用程序中的文档数据和设计元素的XML表示。

有了这个玩意，你完全可以把所有的Notes数据或你应用程序中的设计元素导出为XML文件，然后再另一个应用中导入进去。

有人说，这很简单啊，我直接从Notes数据库拷贝文档数据或表单、视图或某些设计元素到NSF库中，再拷贝给其他人不就得了？

对的，这是一个基础办法，但很繁琐，你看你要先创建一个空白的NSF应用，而后一个一个拷贝，再发送过去，对方也收到后，也需要一个一个拷贝等等。

有了DXL后，你直接运行一个代理，导出文件就生成了，对方导入一下就可以了。

也就是一个你全手动运行，一个是全自动交换。

还有一些你拷贝不了，或很难拷贝的对象，例如数据库的ACL，你也可以轻松采用DXL导出和导入等等。

这只是DXL的基本用法。

如果你要实现高效的Notes数据修改或交换，使用DXL更为强大和便捷。

例如，现在你要修改一个Notes应用程序中的所有文档的富文本字段，在里面加上一个URL链接热点，你使用LotusScript中的RTF对象很难做到，但DXL很轻松。

甚至你可以使用DXL修复损坏的Notes文档！

这一切只需要NotesDXLExporter（导出类）和NotesDXLImporter（导入类）即可。

好了，说了这么多，不如来看几个例子：

比如你要将Notes数据库中的所有元素（包括数据、设计元素等）都导出，那么可以在该数据库中创建和执行下列代理:

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase

  Dim filename As String

  Set db = session.CurrentDatabase
  
  REM 打开C盘DXL目录下的dxl文件
  Dim stream As NotesStream
  Set stream = session.CreateStream
  filename$ = "c:\dxl\" & Left(db.FileName, Len(db.FileName) - 3) & "dxl"
  If Not stream.Open(filename$) Then
    Messagebox "无法打开：" & filename$,, "错误提示"
    Exit Sub
  End If
  Call stream.Truncate
  
  REM 将当前整个数据库导出为DXL
  Dim exporter As NotesDXLExporter
  Set exporter = session.CreateDXLExporter
  Call exporter.SetInput(db)
  Call exporter.SetOutput(stream)
  Call exporter.Process
End Sub

效果如下图所示：

当我们执行一下，就可以看到dxl文件已经打开，而后可以使用记事本（最好采用notepad 等编辑器）打开，如下图：

你甚至可以看到文档中包含的附件都以字节字符的方式输出到了该DXL文件中。

有人说，我只想导出Notes数据，而不想把所有元素都导出，这也可以。

例如以下代码导出用户所选的个别文档：

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase

  Dim dc As NotesDocumentCollection

  Dim doc As NotesDocument



  Dim filename As String

  Set db = session.CurrentDatabase
  Set dc=db.Unprocesseddocuments



    If dc.count=0 Then

		MessageBox "至少要选择一个文档！",, "错误提示"

		Exit sub

	End If 

    Set doc=dc.Getfirstdocument()

    REM 打开C盘DXL目录下的dxl文件

Dim stream As NotesStream
  Set stream = session.CreateStream
filename$ = "c:\" doc.Universalid & ".dxl"

  If Not stream.Open(filename$) Then

    Messagebox "无法打开：" & filename$,, "错误提示"
    Exit Sub
  End If
  Call stream.Truncate
  
  REM 将当前整个数据库导出为DXL
  Dim exporter As NotesDXLExporter
  Set exporter = session.CreateDXLExporter
  Call exporter.SetInput(db)
  Call exporter.SetOutput(stream)
  Call exporter.Process
End Sub 

我们可以在Notes客户机中执行以下代理：

而后看看C盘下出现的DXL文件，双击打开：

同样包含文档中的富文本字段以及附件对象内容等。

你要是感兴趣，将这里的XML文件内容修改一下，而后再导入回Notes数据库试试看看。

哦，对了导入使用NotesDXLImporter类。

LotusScript和Java，还有SSJS（XPages中的Server Side JavaScript）都可以用该类。

今天篇幅太长，如感兴趣，我们下回再详解。

今天就讲到这里吧，请继续保持关注。

这篇好文章是转载于：学新通技术网