VB.NET列表中的10项-如果有';这是一个新项目
我尝试了很多方法,但都没有成功:/ 在我的网站上,有一个“10个最新成员”的名单。我正在尝试对我的应用程序执行新的“橙色”成员通知。有白色、灰色和橙色的新成员。现在,我发现了如何通过以下内容获取我网站上最新orange成员的源代码:(RichTextBox1是我网站源代码所在的位置) 这是给我的所有新成员在橙色,但现在我正试图这样做,每当有一个新的名字在名单上,它会通知我们。我试着把所有橙色的名字放在一个字符串中,每当字符串与以前不同时,它都会通知我们,但问题是如果有橙色的名字从列表中消失,它会通知我们,我想知道列表中何时有新成员 我希望你能理解:pVB.NET列表中的10项-如果有';这是一个新项目,vb.net,string,equals,difference,Vb.net,String,Equals,Difference,我尝试了很多方法,但都没有成功:/ 在我的网站上,有一个“10个最新成员”的名单。我正在尝试对我的应用程序执行新的“橙色”成员通知。有白色、灰色和橙色的新成员。现在,我发现了如何通过以下内容获取我网站上最新orange成员的源代码:(RichTextBox1是我网站源代码所在的位置) 这是给我的所有新成员在橙色,但现在我正试图这样做,每当有一个新的名字在名单上,它会通知我们。我试着把所有橙色的名字放在一个字符串中,每当字符串与以前不同时,它都会通知我们,但问题是如果有橙色的名字从列表中消失,它会
提前谢谢 最简单的方法是在此处使用
HashSet
。这可以记录您以前看到的所有namse,因此很容易确定何时添加新的namse
Class TheClass
Dim seen As New HashSet(Of String)()
Sub TheFunction()
Dim list As New List(Of String)
For Each line In RichTextBox1.Lines
If line.Contains("255, 153, 51") AndAlso Not seen.Contains(line) Then
list.Add(line)
seen.Add(line)
End If
Next
End SUb
End Class
现在,
列表
类型将只包含新看到的值非常感谢!!你刚刚学到了一件对我来说非常有用的新东西!谢谢,阿洛特:)
Class TheClass
Dim seen As New HashSet(Of String)()
Sub TheFunction()
Dim list As New List(Of String)
For Each line In RichTextBox1.Lines
If line.Contains("255, 153, 51") AndAlso Not seen.Contains(line) Then
list.Add(line)
seen.Add(line)
End If
Next
End SUb
End Class