Jump to content
netbrfakes

Procurar por parte de string

Recommended Posts

netbrfakes

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

Share this post


Link to post
Share on other sites
thoga31

If string.contains("yahoo") then
....

Não pode ser só isso. Exemplo:

teste_yahoo@live.com.pt

Terá de ser @yahoo.


Knowledge is free!

Share this post


Link to post
Share on other sites
He B TeMy

Não quis incluir o caso de mails "sem-sentido", mas sim, tens razão.. foi mais um exemplo do que um statement.

É sempre melhor prevenir e "lidar" com os erros.

Share this post


Link to post
Share on other sites
netbrfakes

Nao entendi , o mais perto que cheguei foi assim

If InStr(listbox.txt, "yahoo") or InStr(listbox.txt, "gmail")  Then
   listbox2.itens.add
end if 

alguem me ajuda rs

Edited by Rui Carlos
GeSHi

Share this post


Link to post
Share on other sites
He B TeMy

Aconselhava-te a ler isto ... não têm nada a ver com o que te expus em cima....

For Each item As String In ListBox1.Items
	 If item.Contains("@yahoo") Then
		 'Faz alguma coisa
	 Else
		 'Faz mais alguma coisa...
	 End If
Next

Edited by Rui Carlos
GeSHi

Share this post


Link to post
Share on other sites
netbrfakes

Nao consigo de jeito algum :(

o que eu tenho que seprar vem nesse formato

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

Share this post


Link to post
Share on other sites
He B TeMy

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

Share this post


Link to post
Share on other sites
netbrfakes

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

Share this post


Link to post
Share on other sites
He B TeMy

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

Share this post


Link to post
Share on other sites
netbrfakes

Perfeito amigo, muito obrigado nem sei como agradecer , juntei com o resto do meu codigo fico perfeito Obrigado!

Share this post


Link to post
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

×
×
  • 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.