0

编辑：我有一个 ItemList ： Dim ItemList As New List(Of String) 我想将 itemlist 中的每个元素附加到一个新列表中，每次 10 次，然后重新开始。当列表中仍有元素（每个 10 次）时，如何为每个元素创建一个循环？

我试过这个，但它不工作。这对我来说太复杂了，因为我是新手

    Private crt As Integer = 0
    Private limit As Integer = 0

    Private Function getline() As String
    Dim line As String = ""
        SyncLock addlines
            Do While limit < 10
                line = ItemList(crt)
                limit += 1
            Loop
            limit = 0
            crt += 1
        End SyncLock

    addlines.AppendText(Environment.NewLine & line & " limit:" & limit & " crt:" & crt)
    'Return line
End Function

谢谢

我也试过这个：

 For Each I As Item In Items
   If I = x Then Continue For

   ' Do something
   Next

但我不知道在哪里添加 10 次限制以及当前项目编号（crt）

4

1 回答 1

1

尽我所能解决这个问题，您似乎想将 ItemList 中的每一行（无论该对象是什么）附加 10 次。

这应该可以解决问题。

Dim limit as integer=10

For each line as string in ItemList
   For lineNum as integer = 1 to limit
      addlines.AppendText(string.format("{0}{1} Limit: {2} CRT:{3}", Environment.NewLine, line, limit, lineNum ))
   Next lineNum 
Next line

更新：更新了关于 CRT 是什么的评论中解释的答案。

于 2012-04-23T23:50:28.293 回答