2016-01-22 3 views
0

Im, создающий программу, в которой я хочу вставить свой список адресов электронной почты, затем выполнить поиск по списку и сравнить их со списком строк в другом текстовом поле, и если любой из них соответствует, то адрес электронной почты будет перенесен в третье текстовое поле.Как сравнить строки в Vb.Net из двух разных текстовых полей?

Например, если бы я хотел отфильтровать все gmails и hotmails, я бы ввел их в поле, вставив электронные письма в другое поле и нажав go.

Но, похоже, он работает некорректно, только с несколькими записями он работает нормально, но если я вставляю больше нескольких электронных писем, он только обнаруживает 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 
+0

Эй Aethlen спасибо для быстрого ответа, но он не работал :(, у comparear может быть только 10 строк, в то время как listAr может иметь 100, так что d оба цикла я думаю – Sgtslaughter

+0

Я думаю, что неправильно понял ваш вопрос, исправьте меня, если я ошибаюсь, вы хотите проверить, существуют ли элементы comparear() в элементах listAr()? –

+0

Правильно, я хотел бы проверить, существует ли в каждом элементе listAr() элемент сравнения. И если он существует, я бы хотел, чтобы этот элемент в ListAr() отправлялся по текстовому полю txtresults. В основном в сравнении я написал такие вещи, как «gmail, hotmail», и хотел бы, чтобы он прошел через ListAr() и скопировал любые соответствующие gmail или hotmails. Извините, что не очень хорошо объяснил:/Спасибо за ваш ответ! – Sgtslaughter

ответ

0

Замените эту строку:

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

С этим:

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

Если разделить критерии поиска в запятыми (,)

Смежные вопросы