Lotus notes Lotusscript注释文档值_Lotus Notes_Lotusscript

Lotus notes Lotusscript注释文档值

lotus-notes

Lotus notes Lotusscript注释文档值,lotus-notes,lotusscript,Lotus Notes,Lotusscript,我正在分析lotuscript中的一个模块，它正在获取一个NotesDocument 现在，作为一个例子，NotoDox文档封装了以下数据： docvalue:<html><head> head </head><body>body</body></html> 我没有找到任何可以在“：”之后获取值作为分隔符的Lotus文档（在本例中为docvalue:如上面的数据所示）。请让我知道这是如何工作的或任何链接到文档提前感谢。使

我正在分析lotuscript中的一个模块，它正在获取一个NotesDocument

现在，作为一个例子，NotoDox文档封装了以下数据：

docvalue:<html><head> head </head><body>body</body></html>

我没有找到任何可以在“：”之后获取值作为分隔符的Lotus文档（在本例中为docvalue:如上面的数据所示）。请让我知道这是如何工作的或任何链接到文档

提前感谢。

使用。它为您提供搜索字符串中的右字符串：

data=strRight(document.docvalue(0), ":")

使用。它为您提供搜索字符串中的右字符串：

data=strRight(document.docvalue(0), ":")

Knut有正确的答案，如果您使用Notes 6.x或更高版本（我相信），您可以使用StrRight（）

此外，我想指出的是，代码应该稍加修改。首先将数据声明为变量，然后只读取字段的第一个字符串值

如果它是一个多值字段（并且您希望返回数组中的所有值），则将变量声明为variant，但将整个字段读回。如果您只需要第一个值（或者如果字段仅包含一个值），请将数据声明为String并像您一样获取第一个元素

另外，我强烈建议不要像您那样使用扩展符号，而是使用NotesDocument类的GetItemValue方法。它被认为是最佳实践，它是向前兼容的，而且速度更快。出于性能原因，我也总是将字段名完全大写，就像它们在文档中一样。在这里可能没有什么区别，但当您使用例如GetView（）时，大写字母确实很重要

因此，您的代码应该如下所示：

Dim doc As NotesDocument    
Dim data as String    
Dim html as String
' Assume code to fetch NotesDocument has been done.
' statement to fetch html data.    
data = doc.GetItemValue("DocValue")(0)
html = StrRight(data,":")
Print html

或者，如果您有多个值：

Dim doc As NotesDocument    
Dim dataArray as Variant    
Dim html as String
' Assume code to fetch NotesDocument has been done.
' statement to fetch html data.    
dataArray = doc.GetItemValue("DocValue")
ForAll item in dataArray
    html = StrRight(item,":")
    Print html
End Forall

Knut有正确的答案，如果您使用Notes 6.x或更高版本（我相信），您可以使用StrRight（）

此外，我想指出的是，代码应该稍加修改。首先将数据声明为变量，然后只读取字段的第一个字符串值

因此，您的代码应该如下所示：

Dim doc As NotesDocument    
Dim data as String    
Dim html as String
' Assume code to fetch NotesDocument has been done.
' statement to fetch html data.    
data = doc.GetItemValue("DocValue")(0)
html = StrRight(data,":")
Print html

或者，如果您有多个值：

Dim doc As NotesDocument    
Dim dataArray as Variant    
Dim html as String
' Assume code to fetch NotesDocument has been done.
' statement to fetch html data.    
dataArray = doc.GetItemValue("DocValue")
ForAll item in dataArray
    html = StrRight(item,":")
    Print html
End Forall