Question

如何从文本框中获取此信息？

oOldList = New List(Of String) From {"1,2", "3,5", "7,9", "12,15", "21,24", "31,36", "41,49", "51,54"}

代码：

Public Sub RandomizeList()
  Dim oControl As List(Of Integer)
  Dim oOldList As List(Of String)
  Dim oNewList As List(Of String)
  Dim iRandom As Integer
  Dim oRandom As Random

  oControl = New List(Of Integer)
  oOldList = New List(Of String) From {"1,2", "3,5", "7,9", "12,15", "21,24", "31,36", "41,49", "51,54"}
  oNewList = New List(Of String)
  oRandom = New Random

  oOldList.ForEach(Sub(Item)
                     Do
                       iRandom = oRandom.Next(oOldList.Count)

                       If Not oControl.Contains(iRandom) Then
                         oControl.Add(iRandom)
                         Exit Do
                       End If
                     Loop

                     oNewList.Add(oOldList(iRandom))
                   End Sub)

  Debug.WriteLine("")
  Debug.WriteLine("Old List")
  Debug.WriteLine("----------")
  oOldList.ForEach(Sub(Item) Debug.WriteLine(Item))

  Debug.WriteLine("")
  Debug.WriteLine("New List")
  Debug.WriteLine("----------")
  oNewList.ForEach(Sub(Item) Debug.WriteLine(Item))
End Sub

Answer 1

我仍然不清楚您到底要达到什么目标，但是我认为这是您的目标。

Dim oOldList As List(Of String) = TextBox1.Lines.ToList

使用Lines无需进行Split(vbCrLf)
默认情况下，Lines返回一个数组，因此调用ToList将其转换为列表
我不确定您为什么使用Select将Strings转换为Int（因此我完全没有这样做。

文本框行中的字符串列表

1 个答案: