MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

    [Resolvido]Pesquisar uma lista de variáveis

    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    [Resolvido]Pesquisar uma lista de variáveis Empty [Resolvido]Pesquisar uma lista de variáveis

    Mensagem  annissima 11/3/2021, 14:03

    Oi!

    Tenho um campo que extrai informações da web, e eu procuro nele expressões regulares.
    Ele segue uma sequência de campos, porém nem todas as vezes eu terei todos os campos.

    Eu gostaria de saber se há como:
    1. pesquisar todos os campos possíveis
    2. retornar a consulta, com os campos encontrados, na sequência correta

    por exemplo:

    Minha textBox:

    Código:
    aqui é um texto de exemplo em que eu coloco palavras aleatórias com alguns números e valores, porque assim posso colocar até o preço de R$ 30,00 nas coisas e depois separar tudo em um lugar bem legal da forma que eu quiser


    Supondo que eu queira procurar as palavras: exemplo, números, preço, aleatórias, jacaré, lugar

    A palavra JACARÉ não tem no texto, e a palavra ALEATÓRIAS está antes de preço, na textbox.

    Eu gostaria que uma function pesquisasse as palavras indicadas, e retornasse assim:

    exemplo
    aleatórias
    números
    preço
    lugar

    Com esse resultado, eu posso pesquisar a posição (instr) de cada uma, usando a próxima como referência

    é possível?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1455
    Registrado : 13/12/2016

    [Resolvido]Pesquisar uma lista de variáveis Empty Re: [Resolvido]Pesquisar uma lista de variáveis

    Mensagem  Alexandre Fim 11/3/2021, 16:01

    Olá Annissima,

    Elaborei uma função para capturar a palavra desejada.

    Código:


    Function ProcuraPalavra(sDados As String)
    On Error GoTo trata_erro
    Dim strDados        As String
    Dim ilen            As Integer
    Dim ilens          As Integer
    Dim result          As String

        strDados = "aqui é um texto de exemplo em que" & _
                    "eu coloco palavras aleatórias com" & _
                    "alguns números e valores, porque" & _
                    "assim posso colocar até o preço de" & _
                    "R$ 30,00 nas coisas e depois separar" & _
                    "tudo em um lugar bem legal da forma que eu quiser"

        ilens = Len(sDados)
        ilen = CInt(InStr(1, strDados, sDados))
        result = Mid(strDados, ilen, ilens)
        If sDados = result Then
            MsgBox "" & result & ""
        End If
       
        Exit Function

    trata_erro:
        If Err.Number = 5 Then
            MsgBox "Texto não localizado", vbExclamation, "Mensagem"
        End If

    End Function




    Faça o teste no Immediate do VBA, conforme abaixo:

    [Resolvido]Pesquisar uma lista de variáveis Procur10


    Espero ter ajudado.

    Boa sorte






    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    [Resolvido]Pesquisar uma lista de variáveis Empty Re: [Resolvido]Pesquisar uma lista de variáveis

    Mensagem  annissima 13/3/2021, 13:19

    Obrigada!

      Data/hora atual: 16/6/2021, 14:59