Question

我正在尝试将文档中的富文本内容提取到HTML文件。

在此论坛中搜索代码。找到下面的代码。

代码将内容提取到HTML文件中，使用＆＃34; Anonymous＆＃34;在数据库级别访问。

但是在删除＆＃34; Anonymous＆＃34;来自ACL，并尝试传递用户名和密码以及请求。但它正在提取身份验证页面（而不是文档中的富文本内容）。（服务器已禁用SSO）。

任何想法如何进行身份验证＆＃34; get＆＃34;请求？

先谢谢..

Function GetHtmlFromField(docunid As string, fieldname As String) As String
    Dim obj

    Set obj = CreateObject("msxml2.ServerXMLHTTP.6.0")

    obj.open "GET", "Url" + docunid + "/" + fieldname + "?openfield&charset=utf-8", False,"username", "password"
    //obj.SetRequestHeader "encoding", "utf-8"
    //obj.setTimeouts 5000, 5000, 10000, 10000
    obj.SetRequestHeader "Authorization", "Basic MY_AUTH_STRING"
    obj.send("")

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

    GetHtmlFromField = html
    End Function

Answer 1

您可以为网址尝试以下格式：

username:password@http://server/mydb.nsf/docunid [...]

你应该检查

obj.open "GET", "Url" + docunid

我认为网址应该是一个变量。

将富文本内容提取到HTML文件

1 个答案: