我可以从 LotusScript 函数返回列表吗？

Question

我想从 LotusScript 中的函数返回一个列表。

例如。

Function myfunc() List As Variant
    Dim mylist List As Variant
    mylist("one") = 1
    mylist("two") = "2"
    myfunc = mylist
End Function

Dim mylist List As Variant
mylist = myfunc()

这可能吗？

如果是这样，正确的语法是什么？

Answer 1

看来您无法从函数返回列表。

您可以轻松地将其包装在一个类中并返回该类。

例如。

Class WrappedList
    Public list List As Variant
End Class

Function myfunc() As WrappedList
    Dim mylist As New WrappedList
    mylist.list("one") = 1
    mylist.list("two") = "2"
    Set myfunc = mylist
End Function

答案在这里找到： LotusScript 的列表错误再次袭来

Answer 2

这对我来说效果很好。 我已将一个值设置为字符串，另一个值设置为整数，以便您可以看到这些变体的行为。

Sub Initialize
    Dim mylist List As Variant
    Call myfunc(mylist)
    Msgbox "un  = " + mylist("one")
    Msgbox "deux = " + cstr(mylist("two"))
End Sub

Sub myfunc(mylist List As Variant)
    mylist("one") = "1"
    mylist("two") = 2
End Sub

Answer 3

简而言之，您必须有一个返回变体的函数。 我可以看到您喜欢以面向对象的方式完成它，但如果您只想在程序上“完成它”是最简单的。

尽管有多种方法可以做到这一点，但这是我的首选方法。 请注意，您可以创建任何原始数据类型的列表（即字符串、变体、整数、长整型等）。

Function myfunc as variant
    dim mylist list as variant
    mylist("somename") = "the value you want to store"
    mylist("someothername") = "another value"
    myfunc = mylist

End Function

要使用 myfunc ..

sub initialise
    dim anotherlist list as variant
    anotherlist = myfunc
end sub

如果需要，您可以通过简单地定义 myfunc 来向 myfunc 添加参数。您可以

function myfunc(val1 as variant, val2 as variant) as variant

使用与这样的参数相同的方式调用它。

anotherlist = myfunc("a value", "another value")

请注意，“variant”是您的通用数据类型。 重要的是 myfunc 作为变体是从函数返回列表和变体的唯一方法。

Answer 4

您可以获得一个返回列表的函数，只需去掉函数中的“List”位，这样

Function myfunc() List As Variant
   ...
End Function

而不是...do:

Function myfunc() As Variant

您就可以像以前一样调用您的函数，

Dim mylist List As Variant
mylist = myfunc()

。 列表很棒，我一直使用它们，但我发现列表有一个限制......

如果有一个类似的函数：

Public Function returnMyList() as Variant

   Dim myList List as Variant
   Dim s_test as String
   Dim i as Integer
   Dim doc as NotesDocuemnt
   Dim anotherList List as String

   '// ...set your variables however you like

   myList( "Some Text" ) = s_text
   myList( "Some Integer" ) = i
   myList( "Some Doc" ) = doc

   '// If you returned the list here, you're fine, but if you add
   '// another list...
   anotherList( "one" ) = ""
   anotherList( "two" ) = ""
   myList( "Another List" ) = anotherList

   '//  This will cause an error
   returnMyList = myList

   '// I bodge around this by writting directly to a List 
   '// that is set as global variable.

End Function