如何比較來自2個不同文本框的Vb.Net中的字符串？

我正在製作一個程序，我希望能夠粘貼到我的電子郵件列表中，然後搜索列表並將它們與另一個文本框中的字符串列表進行比較，如果它們中的任何一個匹配，那麼電子郵件地址將被移至第三個文本框。如何比較來自2個不同文本框的Vb.Net中的字符串？

例如，如果我想過濾所有gmail和hotmails，我會將它們輸入框中，將電子郵件粘貼到另一個框中，然後單擊「去」。

但它似乎並沒有正常工作，只有幾個條目似乎工作正常，但如果我粘貼超過幾個電子郵件它似乎只能檢測到gmails（或任何第一項我有比較文本框）。我希望這是有道理的，我不知道爲什麼它不會工作。這裏是我的代碼

Dim compare As String 
    Dim comparear() As String 
    Dim list As String 
    Dim listar() As String 

    compare = txtcompare.Text 
    comparear = compare.Split(vbNewLine) 
    list = txtlist.Text 
    listar = list.Split(vbNewLine) 
    For i = 0 To comparear.Length - 1 
     For p = 0 To listar.Length - 1 
      If listar(p).Contains(comparear(i)) Then 
       txtresult.Text = txtresult.Text & listar(p) 
      Else 
      End If 
     Next 
    Next

來源

2016-01-22 Sgtslaughter

嘿Aethlen感謝爲快速回答，但它沒有工作:(比較可能只有10行，而listAr可能有100，所以我需要d這兩個循環我想 – Sgtslaughter

我想我誤解了你的問題，糾正我，如果我錯了，你想檢查如果comparear（）項目在listAr（）項目中存在？ –

正確，我想檢查比較是否存在於每一個listAr（）項目中。如果它確實存在，我希望ListAr（）中的項目通過txtresults文本框發送。基本上比較我寫了像「Gmail，Hotmail」的東西，並希望它通過ListAr（）並複製任何匹配的Gmail或Hotmails，對不起，我不是很擅長解釋：/感謝您的迴應！ – Sgtslaughter

替換此行：

comparear = compare.Split(vbNewLine) 
    ... 
    listar = list.Split(vbNewLine)

有了這個：

comparear = compare.Split(",") 
    ... 
    listar = list.Split(",")

如果拆分搜索審覈規定爲逗號（，）

來源

2016-01-22 04:30:21

如何比較來自2個不同文本框的Vb.Net中的字符串？

回答

相關問題