PEGAR TEXTO ENTRE PALAVRAS

ALTAIR148 10/12/2012 09:57:40
#415708
Bom dia,

Tenho o seguinte txt abaixo:

Autor: xxxx
Advogado: xxxx 
Réu:  xxx
Advogada: xxxxxx

  Exibindo 5 últimas.   >>Listar todas as movimentações. Movimentações 

Data Movimento [ô] [txt-color=#e80000]Começar aqui!![/txt-color]!
11/10/2012 Ato Ordinatório-Arquivamento 
Ficam arquivados estes autos. 
11/10/2012 Recebido pelo Cartório 
28/09/2012 Remetidos os autos da Contadoria 
19/09/2012 Recebidos os autos pela Contadoria 
14/09/2012 Remetido os autos à Contadoria 
11/10/2012 Ato Ordinatório-Arquivamento 
Ficam arquivados estes autos. 
11/10/2012 Recebido pelo Cartório 
28/09/2012 Remetidos os autos da Contadoria 
19/09/2012 Recebidos os autos pela Contadoria 
14/09/2012 Remetido os autos à Contadoria 
13/09/2012 Ato Ordinatório-Intimação do Contador 
Fica intimado o Contador para efetuar o cálculo e a cobrança das custas finais. 
13/09/2012 Transitado em julgado 
Certifico que a sentença transitou em julgado. 
13/09/2012 Transitado em julgado


Petições diversas  [ô][txt-color=#e80000]Terminar Aqui[/txt-color]

10/03/2010 Apresentação de documentos 
Marcxxxxxxi, xxxxx3ldas 
21/05/2010 Contestação 
Juliana Arnhold Lazzarotto e outro. xxx17lds. 
04/08/2010 Outros 
Marcelo C. B. de Paula, xxx1lda 
19/08/2010 Apresentação de documentos 
xxxxxi. 224797, 4lds. 
04/11/2010 Outros 
Dr. xxxxi de Paula xxxx,13lds. 
22/02/2011 Pedido de expedição de alvará 
Juliana xxxxxxx. 310480, 2lds. 
21/03/2011 Apresentação de documentos 
DR.xxxxxA, 3318201, 07LDS 
31/03/2011 Procuração/Substabelecimento 
xxxx. 323237, 2lds. 
17/06/2011 Outros 
xxxxxxx. 349898, 04 lds. 
28/07/2011 Outros 
xxxx, 01 lda. 
05/12/2011 Recurso de apelação



Teria como por exemplo, pegar só a parte que esta esta marcada? Por exemplo quero pegar o que esta entre Data Movimento e Petições diversas
JONATHANSTECKER 10/12/2012 10:14:05
#415709
Use a função IndexOf da classe String para pegar o index de palavras chave.
    Private Sub btnTeste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTeste.Click

        Dim InicioTexto As Integer = Me.Texto.ToString.IndexOf([Ô]Data Movimento[Ô])
        Dim TamanhoTexto As Integer = Me.Texto.ToString.IndexOf([Ô]Petições diversas[Ô]) - Me.Texto.ToString.IndexOf([Ô]Data Movimento[Ô]) + 18

        Dim TextoTratado As String = Microsoft.VisualBasic.Mid(Me.Texto.ToString, InicioTexto, TamanhoTexto)

        MessageBox.Show(TextoTratado)

    End Sub
ALTAIR148 10/12/2012 10:54:56
#415712
Estranho, está dando algum erro.
PEGUDO 10/12/2012 12:36:25
#415722 Resposta escolhida
Se o exemplo do amigo JONATHANSTECKER não funcionar tente este:



Neste exemplo eu coloquei o texto dentro de um TextBox. Você não disse qual controle estava usando, então eu improvisei.
é meio que uma gambiarra mas deu certinho (Quem sabe você aperfeiçoa).
Abraços.
ALTAIR148 10/12/2012 12:44:33
#415725
Então Pegudo, acredito que com a dica do outro tópico aqui de como Tratar o HTML, acho que vai resolver esses dois problemas, eu vou ver aqui ai assim que testar te dou um retorno.

Muitooo obrigado mesmo.
JONATHANSTECKER 10/12/2012 13:22:48
#415729

Altair, o exemplo que lhe passei acima funciona perfeitamente.
Veja o anexo.
ALTAIR148 10/12/2012 14:43:56
#415740
Ok, deve ser alguma loucura minha aqui então, agora estou sem o VS mas a noite eu testo e retorno, muito obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar