none
Multiplos itens em Text.Contains RRS feed

  • Pergunta

  • Pessoal, estou criando um programa e numa parte dele preciso que uma textbox seja verificada por várias palavras que vem de um banco de dados, mas não sei como faço pra passar as palavras do banco de dados para uma string ou algo pra que possa verificar na textbox

    Dim keywords = {"keyword1", "keyword2", "keyword3"}
    
    For Each keyword As String In keywords
       If TextBox1.Text.Contains(keyword) Then
       Timer1.Enabled = False
       MsgBox("Item encontrado!")
     End If
    Next

    Assim funciona, o problema é que as palavras para verificar na textbox tem que vir de uma database porque são modificas e não fixas!

    Ficaria muito grato se pudessem me ajudar amigos!

    sábado, 28 de setembro de 2013 03:20

Respostas

  • Dim palavras As New ArrayList()
    palavras.Add("Palavra1")
    palavras.Add("Palavra2")
    palavras.Add("Palavra3")
    
    For Each P As Object In palavras
    	If Textbox1.Text.Contains(DirectCast(P, String)) Then
    		MessageBox.Show("Encontrou")
    	End If
    Next

    Se vai ter que carregar uma lista tipo um ArrayList no metodo Add antes!

    Ai você faz a comparação !!!


    Fúlvio Cezar Canducci Dias

    domingo, 29 de setembro de 2013 14:00