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 に答える