了不起的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）都可以用该类。

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

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

更多技术文章请关注微信公号**“协作者”**