Jump to content

Procurar por parte de string


netbrfakes
 Share

Recommended Posts

Boa tarde pessoal

Estou com problema em uma parte de meu progeto

preciso separar emails pelo hots ex:

Tenho 2 llistvier

1: carego a lista com todos os emails

2: pega apenas os emails que eu escolher o provedor

Litsta de entrada

Cliente1@hotmail.com

Cliente1@gmail.com

Cliente1@yahoo.com

quando eu digitar ex: yahoo

ele separa para a listvier 2 os emails do yahoo

e apaga da listvier 1

Cliente1@gmail.com

Cliente2@gmail.com

Cliente3@gmail.com

Cliente4@gmail.com

Cliente1@hotmail.com

Cliente2@hotmail.com

Cliente3@hotmail.com

Cliente4@hotmail.com

estou com problemas na hora de separa , alguem poderia me mostrar o caminho a seguir? , obrigado!

Edited by ribeiro55
Link to comment
Share on other sites

Os dados estão numa listbox certo? Queres separar os mails para outra deixando apenas de um tipo em cada, correcto?

Cada informação desse formato vêm num item da listbox correcto?

Se sim, podes explicar o que não consegues, que erros te dá... se te dá, String.Contains é a melhor solução que tens, não interessa o formato das coisas, desde que esteja tudo numa string.

  • Vote 1
Link to comment
Share on other sites

Sim dados estao em uma listbox no formato

7483;Cliente;union;netbr@hotmail.com; [Cliente desde] 1992 MG Brasil

7483;Cliente;union;netbr@gmail.com; [Cliente desde] 1991 SP Brasil

7483;Cliente;union;netbr@yahoo.com; [Cliente desde] 1993 RJ Brasil

7483;Cliente;union;netbr@bol.com; [Cliente desde] 2002 MA Brasil

7483;Cliente;union;netbr@uol.com; [Cliente desde] 2012 AM Brasil

preciso digita em um textbox uma palavra EX: Hotmail

entao todas as linhas que tiver a palavra "hotmail"

devem ir para a listbox2 e serem apagadas da listbox1

Porem ja fiz varios codigos , usando mil exemplos mas nunca da certo , ele passa todos pra listbox

ou nao passa nada da um erro , fiquei o fim de semana todo tentando terminar isso ate amanha! 😞

Mais um exempro do que fiz e nao deu certo

public linha as string

For Each item As String In ListBox1.Items
           If item.Contains("Textbox1.text") Then
               ListBox2.Items.Add(linha)

               ListBox1.Items.RemoveAt(0)


           Else
              ListBox1.Items.RemoveAt(0)

           End If
       Next

       Call repartir()
Edited by thoga31
Tags code + GeSHi
Link to comment
Share on other sites

Usa

If Not TextBox1.Text Is Nothing Then
        Dim toremovelist As New List(Of String)
        For Each item As String In ListBox1.Items
            If item.Contains(TextBox1.Text) Then
                toremovelist.Add(item)
                ListBox2.Items.Add(item)
            End If
        Next
        For Each removeitem In toremovelist
            ListBox1.Items.Remove(removeitem)
        Next
    End If

XqjWcY7.png

Edited by thoga31
GeSHi
  • Vote 1
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.