none
Pesquisar em txt de forma avançada RRS feed

  • Pergunta

  • ola amigos sou novo em programaçao e gostaria de saber como fazer uma pesquisa em um txt da seguinte maneira.

    eu tenho um texto com o seguinte conteudo

    Estou hoje vencido como se soubesse a verdade
    Estou hoje lúcido como se estivesse para morrer 
    E não tivesse mais irmandade com as coisas

    o que eu quero e pesquisar nesse texto se tem a palavra verdade caso tenha eu queria armazenar numa string

    apartir da palavra verdade ate a palavra tivesse ou seja a string seria

    verdade Estou hoje lúcido como se estivesse para morrer E não tivesse

    e omitir o resto do texto

    se alguem poder da um exemplo eu agradeço

    ja tentei pesquisar a  posicao da palavra verdade mais nao deu certo.


    • Editado ShayneTuran sábado, 27 de junho de 2015 16:06
    sábado, 27 de junho de 2015 16:04

Respostas

  • supondo que você tem um campo TextBox como campo para pesquisa com o nome "texto"

    e o campo da string dessas frases como "Frases"

    e outro campo para por a nova frase com o nome "NovaFrase"

    '====================================== 
    
            Dim tamanhoTotal = Frases.Text.Length
            Dim pos = texto.Text.IndexOf(texto.Text)  ' pega a posição da palavra
            Dim tamanho = tamanhoTotal - pos ' pega o tamanho total da string a partir da posição da palavra
            NovaFrase.Text = texto.Text.Substring(pos, tamanho) 'pega a frase a partir da palavra pesquisada



    domingo, 28 de junho de 2015 21:45