vb.net不同的值不工作

Question

我想從字符串中獲取不同的值。字符串看起來是這樣的：

這是richtextbox3的文字：

121010, 121010, 121011, 121010, 

這是我的代碼：

' Create a list of integers. 
     Dim date3 As String = RichTextBox3.Text 
     Dim dates As New List(Of Integer)(New Integer() _ 
             {date3}) 

     ' Select the unique numbers in the List. 
     Dim distinctDates As IEnumerable(Of Integer) = dates.Distinct() 

     Dim output As New System.Text.StringBuilder("Distinct ages:" & vbCrLf) 
     For Each age As Integer In distinctDates 
      output.AppendLine(age) 
     Next 

     ' Display the output. 
     RichTextBox7.Text = (output.ToString) 
    End If 

但是當我運行它，我得到一個錯誤

「從字符串「121010,121010,121011,121010」轉換爲「整數」類型無效。「

我在做什麼錯？

Answer 1

您嘗試將字符串"121010, 121010, 121011, 121010, "隱式轉換到這裏的整數：

New Integer() {date3} 

New Integer() {...}創建一個新的整數數組，但你嘗試將字符串date3添加到它。

---

你可能尋找類似：

Dim dates = date3.Split({" "c, ","c}, StringSplitOptions.RemoveEmptyEntries) _ 
       .Select(Function(i) Int32.Parse(i)) _ 
       .Distinct() _ 
       .ToList()