0

我编写了以下代码（在 Outlook 中的 VBA 中）尝试将我的列表输出到字符串。这种方式可能并不完美；它可以编译，但我还没有测试过；无论如何，我想知道你们是否有任何关于如何在 VBA 或 VB.NET 中将数组或列表输出到字符串的替代想法。这种方式对我来说只是一种陪审团操纵，我无法找到任何一种“标准”或“官方”的方式来完成这项工作。

因为我认为这段代码可以工作，所以我有一个替代方案并不重要，但我对此很陌生，我想从这个项目中尽可能多地学习。因此，感谢您提供的任何帮助！

    Dim nplct As Integer
    Dim npl As Integer
    Dim strNotpresentList As String
    strNotpresentList = ""
    npl = 0
    nplct = notpresentList.Count
    For Each Computer In notpresentList
        If npl <> nplct Then

            If strNotpresentList = "" Then
                    strNotpresentList = notpresentList(npl)
                    npl = npl + 1
                Else
                    strNotpresentList = strNotpresentList & ", " & notpresentList(np1)
                    npl = npl + 1
                End If


            Else
                strNotpresentList = strNotpresentList & ", " & notpresentList(np1) & "."
            End If

    Next Computer
4

2 回答 2

2

在 VB.NET 中：

strNotpresentList = String.Join(", ", notpresentList)
于 2013-06-11T13:32:17.207 回答
2

这是VBA：

Dim strNotPresentList as String
strNotPresentList = Join(notpresentList, ",") & "."

或者，如果您希望它在同一行：

Dim strNotPresentList As String: strNotPresentList = Join(notpresentList, ",") & "."

对于 VB.Net

Dim strNotPresentList As String = String.Join(", ", notpresentList) + "."
于 2013-06-11T13:34:08.000 回答