以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于将TextBox中内容分到集合中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69900)
--  作者：sara
--  发布时间：2015/6/12 15:10:00
--  关于将TextBox中内容分到集合中
我已经实现了扫多个码到TextBox中，两个码直接用逗号隔开，但是现在有个问题是，有可能扫了两个同样的码进去，所以我想有个提示，如果扫了同样的码，提示信息。我想到的一个办法是用集合，根据逗号把各个字符串分到集合中然后总是判断最后一个字符串和前面字符串关系，如果相同就弹出信息，但是代码该如何写呢？
--  作者：sara
--  发布时间：2015/6/12 15:36:00
--  
有高手回应下吗，急
--  作者：sloyy
--  发布时间：2015/6/12 16:08:00
--  
我不知道你是怎么处理刚扫进来的条码的,我是这样处理的:2个textbox,1放刚扫进来的条码,2放已扫好的条码串,2个一比较,有重复就报警提示,没有就送入2,清除1
--  作者：大红袍
--  发布时间：2015/6/12 17:02:00
--  

 多扫了没有关系，最后处理的时候，把多余的去掉就行。

 

 如

 

Dim str As String = "123,456,789,123,789"
Dim ary() As String = str.Split(",")
Dim nstr As String = ""
For Each a As String In ary
    If ("," & nstr).Contains("," & a & ",") = False Then
        nstr &= a & ","
    End If
Next

msgbox(nstr.Trim(","))