如何使用 LotusScript 将富文本字段从 Notes 导出为 HTML？

Question

我正在执行一项数据迁移任务，必须将一个较大的 Lotus Notes 应用程序导出到博客平台中。我的第一个任务是将 Lotus Notes 中的文章导出到 CSV 文件中。

我在 LotusScript 中创建了一个代理来将数据导出到 CSV 文件中。我使用此 IBM DeveloperWorks 论坛帖子的修改版本。它基本上完成了这项工作。但富文本字段的内容已去除任何格式。这不是我想要的，我希望富文本字段呈现为 HTML。

GetItemValue 方法的文档明确指出文本是呈现为纯文本。所以我开始研究可以检索 HTML 的东西。我在 IBM 文章 How To Access 中找到了 NotesMIMEEntity 类和一些示例代码使用 LotusScript 的富文本字段中的 HTML。

但要使上述文章中描述的技术发挥作用，富文本字段需要具有“将内容存储为 HTML 和 MIME”属性。我的 Lotus Notes 数据库并非如此。我尝试在相关字段上设置属性，但没有成功。

是否可以使用 NotesMIMEEntity 并在添加内容后设置“将内容存储为 HTML 和 MIME”属性，以导出呈现为 HTML 的字段？

或者，将 Notes 数据库富文本字段导出为 HTML 的选项有哪些？

额外信息：我正在使用 IBM Lotus Domino Designer 版本 8.5

Answer 1

有一个相当未知的命令可以完全满足您的要求：使用命令 OpenField 检索 URL。

仅转换 Body 字段的示例：

http://SERVER/your%5Fdatabase%5Fpath.nsf/NEW%5FVIEW/docid/Body?OpenField

Answer 2

这是我使用 OpenField 命令的方法，请参阅上面 D.Bugger 的帖子

Function GetHtmlFromField(doc As NotesDocument, fieldname As String) As String
    Dim obj
    Set obj = CreateObject("Microsoft.XMLHTTP")
    obj.open "GET", "http://www.mydomain.dk/database.nsf/0/" + doc.Universalid + "/" + fieldname + "?openfield&charset=utf-8", False, "", ""
    obj.send("")

    Dim html As String
    html = Trim$(obj.responseText)

    GetHtmlFromField = html
End Function

Answer 3

我建议查看 Midas 的 Rich Text LSX (http://www.geniisoft.com/showcase .nsf/MidasLSX）

我个人没有使用过，但我记得几年前它们是处理富文本的最佳选择。我敢打赌它可以帮你省去很多麻烦。

至于 NotesMIMEEntity 类，我不认为有办法将 RichText 转换为 MIME，只能将 MIME 转换为 RichText（或在文档中保留 MIME 以用于电子邮件发送）。

Answer 4

如果升级到 Notes Domino 8.5.1，则可以使用 NotesDocument 类的新 ConvertToMIME 方法。请参阅文档。这应该做你想做的。

另外，让 Domino 服务器呈现 RichText 的最简单方法是通过 url 调用实际检索它。设置一个仅包含 RichText 字段的简单表单，然后使用您最喜欢的 HTTP api 拉入页面。然后应该可以非常直接地拉出主体。

Answer 5

保持简单。

将 BODY 字段更改为将内容存储为 HTML 和 MIME

在编辑模式下打开文档。
节省。
关闭。

您现在可以使用 NotesMIMEEntity 从脚本中获取所需内容。

Answer 6

您可以使用 NotesDXLExporter 类导出富文本并使用 XSLT 将输出转换为您需要的内容。

Answer 7

我知道您提到过使用 LotusScript，但是如果您不介意编写一个小型 Java 代理（在 Notes 客户端中），那么这可以相当容易地完成 - 并且不需要修改现有的表单设计。

基本思想是让您的 Java 代码通过本地主机 http 请求（这在 Java 中很简单）打开特定文档，并让您的代码捕获该 html 输出并将其保存回该文档。基本上，您可以让 Domino 渲染引擎来完成繁重的工作。

您需要执行以下操作：

1. 创建一个仅包含要转换的富文本字段的表单，内容类型为 HTML
2. 创建一个视图，其中包含要转换的所有文档的选择公式和表单公式 URL
3. 创建 Java 代理，它只遍历您的视图，并为每个文档获取其 docid，以 http://SERVER/your_database_path.nsf/NEW_VIEW/docid?openDocument，获取 http 响应并保存它。

我在类似的帖子中放置了一些示例代码：

如何使用lotusscript将文档中的文本和富文本字段转换为html？

Answer 8

适用于 Domino 10（尚未测试 9）

HTMLStrings$ = NotesRichTextItem .Converttohtml([options] ) As String

请参阅文档：

https： //help.hcltechsw.com/dom_designer/10.0.1/basic/H_CONVERTOHTML_METHOD_NOTESRICHTEXTITEM.html

UPDATE (2022)

自版本 11 起，HCL 不再支持此方法。该文档不包含任何有关该方法的信息。
我做了一些测试，它在 v12 中仍然有效，但 HCL 建议不要使用它。

Answer 9

Casper 的上述建议效果很好，但请确保 ACL 允许匿名访问，否则您的 HTML 将是登录表单中的 HTML

Answer 10

如果您不需要专门从项目中获取 Richtext，则可以使用 ?OpenDocument，（至少）记录在此处： https://www.ibm.com/developerworks/lotus/library/ls-Domino_URL_cheat_sheet/
https:// www.ibm.com/support/knowledgecenter/SSVRGU_9.0.1/com.ibm.designer.domino.main.doc/H_ABOUT_URL_COMMANDS_FOR_OPENING_DOCUMENTS_BY_KEY.html

OpenDocument 还允许您扩展部分（我不确定 OpenField 是否这样做）

语法是:
http://Host/Database/View/DocumentUniversalID?OpenDocument

但请务必包含字符集参数 - 如果不指定 utf-8 作为字符集，日语文档将无法读取。

下面是我使用的方法，它接受 NotesDocument 并以字符串形式返回文档的 HTML。

    private string ConvertDocumentToHml(Domino.NotesDocument doc, string sectionList = null)
    {
        var server = doc.ParentDatabase.Server.Split('/')[0];
        var dbPath = doc.ParentDatabase.FilePath;
        string viewName = "0";
        string documentId = doc.UniversalID.ToUpper();

        var ub = new UriBuilder();
        ub.Host = server;
        ub.Path = dbPath.Replace("\\", "/") + "/" + viewName + "/" + documentId;

        if (string.IsNullOrEmpty(sectionList))
        {
            ub.Query = "OpenDocument&charset=utf-8";
        }
        else
        {
            ub.Query = "OpenDocument&charset=utf-8&ExpandSection=" + sectionList;
        }

        var url = ub.ToString();

        var req = HttpWebRequest.CreateHttp(url);
        try
        {
            var resp = req.GetResponse();
            string respText = null;

            using (var sr = new StreamReader(resp.GetResponseStream()))
            {
                respText = sr.ReadToEnd();
            }
            return respText;
        }
        catch (WebException ex)
        {
            return "";
        }
    }