MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto

    avatar
    harkanun
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 04/05/2011

    Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto Empty Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto

    Mensagem  harkanun 19/3/2018, 18:52

    Boa tarde, Pessoal!

    Preciso de uma ajuda, preciso copiar um trecho inteiro a partir de uma informação, no meu caso a partir do parágrafo que inicia "Procura a escola porque:".
    O código deve copiar todo o restante do texto a partir da informação citada em diante.
    o código está copiando apenas um trecho de todo o texto para baixo, como eu posso resolver isso.
    Na figura publicada, sinalizei em um quadro verde todo o texto que deveria copiar para o outro textbox mas vejam que ele só copiou a metade para o outro textbox que está selecionado em preto.

    Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto Formul10


    Alguém, por favor, poderia me ajudar nesse problema.

    Segue o código (obs: já tente mudar o sendkey para todo o tipo, mas o problema continua)
    Dim iFound As Integer
    iFound = InStr(1, Me.RichTextBox, "Procura a escola porque:")
    If iFound <> 0 Then
    Me.RichTextBox.SetFocus
    Me.RichTextBox.SelStart = iFound
    SendKeys "{HOME}+{END}+{PGDN}", True
    Me.RichTextBox26 = Me.RichTextBox.SelText
    Me.RichTextBox26.SetFocus
    End If

    Agradeço a atenção de todos, muito obrigado.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto Empty Re: Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto

    Mensagem  FabioPaes 20/3/2018, 13:55

    Veja esse exemplo aqui:

    Dim T As String
    T = Mid(Me.txt1, InStr(Me.txt1, Me.txtBase), Len(Me.txt1))
    Me.txt2 = T


    Me.txtBase: É onde eu tenho o Texto a Ser localizado
    Me.txt1: é Onde tem todo o Texto a ser analisado
    Me.txt2: É onde receberá o Texto Cortado a partir do Valor pesquisado.

    Simule o exemplo no clique de um Botão com o Código passado e veja se atende ao que precisa.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    harkanun
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 04/05/2011

    Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto Empty Re: Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto

    Mensagem  harkanun 20/3/2018, 14:53

    Bom dia, Fabio!

    Deu certo, apenas fiz incluir mais uma variável passando o valor diretor, mas utilizando o textBox "txtBase" daria certo.

    Dim T As String
    Dim Recebe As String
    Recebe = "Procurou a escola porque:"

    T = Mid(Me.RichTextBox, InStr(Me.RichTextBox, Recebe), Len(Me.RichTextBox))
    Me.RichTextBox26 = T


    Novamente agradeço a atenção.
    Very Happy Very Happy Very Happy Very Happy Very Happy Laughing
    avatar
    harkanun
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 04/05/2011

    Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto Empty Re: Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto

    Mensagem  harkanun 20/3/2018, 15:04

    Aproveitando o trabalho, só uma duvida.

    Como eu consigo copiar um trecho do texto De - Até, por exemplo:

    - Abaixo eu tenho o texto principal:

    Procurou a escola porque: Porque acreditamos que as diretrizes pedagógicas da escola caminham na mesma direção dos valores da nossa família.
    Apresentou algum tipo de dificuldade na escola anterior? Não
    Sociabilidade Não
    Aprendizagem Não
    Prática Escolar Inclusiva Não
    Acompanhamento Especializado Não
    Processo de Inscrição: visita
    Visita à Escola (Preferência): Terça: 13h30 às 14h30


    - Tipo o código copiaria a partir da descrição Procurou a escola porque: até Aprendizagem

    Agradeço pela atenção.

    Att,

    Ruy Guerra
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto Empty Re: Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto

    Mensagem  FabioPaes 20/3/2018, 16:10

    Experimente a InstrRev()

    Dim T As String
    T = Mid(Me.txt1, InStr(Me.txt1, Me.txtBase), InStrRev(Me.txt1, Me.txtFimTexto))

    me.txtFimTexto seria o Final do Texto.
    InStrRev() irá Buscar o valor mas voltando, do final do Texto para o Início.

    Obs: Não testei... Pode haver erros no Codigo.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 9/3/2021, 00:23