[Resolvido]Buscar todas as ocorrências de um tipo de texto

Olá, gostaria de uma ajuda para uma situação:

Por exemplo, se eu quiser pesquisar os processos da Claro em Taubaté, meu sistema vai usar o seguinte link:
"Não permitido links externos"

O link acima é apenas para os colegas visualizarem, não precisa estar no código.

Ele é acessado por um WebBrowser1 dentro de um form, e esse form copia todos os dados da página em uma TextBox com formato de texto longo, rich text

Até aí OK.

A resposta virá para meu form da seguinte maneira:



Observem que vem esses pontinhos tipo lista, que não sei porque, mas ok.

Eu gostaria que essa textbox organizasse o texto, da seguinte forma:

Foro Central - Fazenda Pública/Acidentes

1037965-35.2020.8.26.0053
Recebido em: 04/06/2020 - 12ª Vara de Fazenda Pública



Então ele precisa encontrar:
1. texto LIKE "Foro " & *
2. processo  LIKE "#######-##.####.#.##.####"
3. data LIKE "Recebido em:" & dd/mm/aaaa

Aí ele continua pesquisando, para listar todos os processos e as datas.

Se não for possível, apenas retornar todos os números de processo LIKE "#######-##.####.#.##.####"
E me dar a TextBox com um processo por linha, assim:

#######-##.####.#.##.####
#######-##.####.#.##.####
#######-##.####.#.##.####
#######-##.####.#.##.####
#######-##.####.#.##.####


Preciso ter a lista de processos, para comparar com outra lista, e ver se houve mudança.

Boa tarde.

Manda um arquivo texto como exemplo para que eu possa começar uma função que monta textos...

Olá Anna,

Pelo que eu percebi, você faz pesquisa em algum Forum de Processos?
Neste caso, não teria uma API pra vc requisitar os dados necessários?

Existem algumas API no mercado que são pagas, mas dependendo do volume de acessos, vale a pena.

Olá,

Fiz uma busca, por nome de parte, por exemplo, da empresa CLARO, na cidade de TAUBATE.

Se alguém quiser testar, basta acessar o site https://esaj.tjsp.jus.br/cpopg/search.do?conversationId=&cbPesquisa=NMPARTE&dadosConsulta.valorConsulta=claro&dadosConsulta.localPesquisa.cdLocal=625


O RESULTADO na página da web é esse:

Consultar por
Nome da parte
claro
Pesquisar por nome completo
Foro
Foro
Foro de Taubaté
Somente meus processos
384 Processos encontrados
Mostrando de 1 até 25
1

2

3

4

5

Foro de Taubaté
1505439-85.2020.8.26.0625
Exectdo:
Joao Paulo Aparecido Claro
Execução Fiscal
IPTU/ Imposto Predial e Territorial Urbano
Recebido em:
19/08/2020 - Vara da Fazenda Pública
1505438-03.2020.8.26.0625
Exectdo:
Joao Paulo Aparecido Claro
Execução Fiscal
IPTU/ Imposto Predial e Territorial Urbano
Recebido em:
19/08/2020 - Vara da Fazenda Pública
1010087-68.2020.8.26.0625
Reqdo:
CLARO S/A
Procedimento do Juizado Especial Cível
Inclusão Indevida em Cadastro de Inadimplentes
Recebido em:
06/08/2020 - Vara do Juizado Especial Cível e Criminal
1009562-86.2020.8.26.0625
Reqdo:
CLARO S/A
Procedimento Comum Cível
Irregularidade no atendimento
Recebido em:
28/07/2020 - 1ª Vara Cível
1009515-15.2020.8.26.0625
Reqdo:
Fellipe Sebastião Claro Mendrot
Procedimento Comum Cível
Contratos Bancários
Recebido em:
28/07/2020 - 1ª Vara Cível
1009044-96.2020.8.26.0625
Reqte:
CLARO S/A
Renovatória de Locação
Locação de Imóvel
Recebido em:
17/07/2020 - 5ª Vara Cível
1504282-77.2020.8.26.0625
Exectdo:
V.d. Claro Distribuidora - Me
Execução Fiscal
Taxas
Recebido em:
07/07/2020 - Vara da Fazenda Pública
1504259-34.2020.8.26.0625
Exectdo:
Adriana Claro
Execução Fiscal
Impostos
Recebido em:
07/07/2020 - Vara da Fazenda Pública
1502957-67.2020.8.26.0625
Exectdo:
Gerson Luiz de Morais Claro
Execução Fiscal
IPTU/ Imposto Predial e Territorial Urbano
Recebido em:
03/07/2020 - Vara da Fazenda Pública
0004790-97.2020.8.26.0625
Réu:
Leonardo Vinícius Ribeiro Claro
Carta Precatória Criminal
Intimação
Recebido em:
30/06/2020 - 3ª Vara Criminal
1007954-53.2020.8.26.0625
Exectdo:
Yoham de Oliveira Santos Claro
Execução de Título Extrajudicial
Obrigações
Recebido em:
30/06/2020 - Vara da Fazenda Pública
1007956-23.2020.8.26.0625
Exectdo:
Yoham de Oliveira Santos Claro
Execução de Título Extrajudicial
Obrigações
Recebido em:
30/06/2020 - Vara da Fazenda Pública
1007959-75.2020.8.26.0625
Exectdo:
Yoham de Oliveira Santos Claro
Execução de Título Extrajudicial
Obrigações
Recebido em:
30/06/2020 - Vara da Fazenda Pública
1007958-90.2020.8.26.0625
Exectdo:
Yoham de Oliveira Santos Claro
Execução de Título Extrajudicial
Obrigações
Recebido em:
30/06/2020 - Vara da Fazenda Pública
1007745-84.2020.8.26.0625
Reqte:
José Carlos de Moraes Claro
Procedimento do Juizado Especial Cível
Servidores Inativos
Recebido em:
25/06/2020 - Vara da Fazenda Pública
1007654-91.2020.8.26.0625
Exectdo:
Fellipe Sebastião Claro Mendrot
Execução de Título Extrajudicial
Espécies de Títulos de Crédito
Recebido em:
23/06/2020 - 1ª Vara Cível
1007628-93.2020.8.26.0625
Reqdo:
CLARO S/A
Procedimento Comum Cível
Indenização por Dano Moral
Recebido em:
23/06/2020 - 5ª Vara Cível
0004587-38.2020.8.26.0625
Exectdo:
Leonardo Vinícius Ribeiro Claro
Execução da Pena
Pena Restritiva de Direitos
Recebido em:
22/06/2020 - 2ª Vara das Execuções Criminais
1006601-75.2020.8.26.0625
Reqdo:
CLARO S/A
Procedimento Comum Cível
Indenização por Dano Moral
Recebido em:
04/06/2020 - 1ª Vara Cível
1005708-84.2020.8.26.0625
Reqte:
CLARO S/A
Renovatória de Locação
Locação de Imóvel
Recebido em:
21/05/2020 - 5ª Vara Cível
1005643-89.2020.8.26.0625
Reqdo:
CLARO S/A
Procedimento Comum Cível
Indenização por Dano Moral
Recebido em:
19/05/2020 - 2ª Vara Cível
1501987-67.2020.8.26.0625
Exectdo:
Paulo Celso Morais Claro
Execução Fiscal
IPTU/ Imposto Predial e Territorial Urbano
Recebido em:
06/05/2020 - Vara da Fazenda Pública
1004858-30.2020.8.26.0625
Reqte:
Benedita Dias Claro
Carta Precatória Cível
Citação
Recebido em:
06/05/2020 - 2ª Vara Cível
1004428-78.2020.8.26.0625
Reqte:
João Batista Claro
Usucapião
Usucapião Extraordinária
Recebido em:
24/04/2020 - 2ª Vara Cível
1003623-28.2020.8.26.0625
Reqdo:
Rubens de Carvalho Claro
Execução da Pena
Regime inicial - Aberto
Recebido em:
06/04/2020 - 2ª Vara das Execuções Criminais
384 Processos encontrados
Mostrando de 1 até 25
1

2

3

4

5

Boa tarde Anissima.

Cole o texto no Excel para preservar acentuação.

Importe para o Access como tabela "Plan1".

E crie a consulta:

SELECT Plan1.Campo1
FROM Plan1
WHERE (((Plan1.Campo1) Like "*Foro*" Or (Plan1.Campo1) Like "*#######-##.####.#.##.####*" Or (Plan1.Campo1) Like "*Recebido em*" Or (Plan1.Campo1) Like "*2020*"));

Qualquer outra dúvida favor retornar...

Caique, o conteúdo é copiado do site, diretamente para um campo de TEXTO LONGO, com formato RICH TEXT no access.
Eu não gostaria de usar o Excel.

Tem como buscar isso diretamente no campo do Access?

Bom dia Anissima.

Se o que você já tem no Access está bom, então crie a consulta abaixo para conseguir a lista desejada:



SELECT Plan1.Campo1
FROM Plan1
WHERE (((Plan1.Campo1) Like "*Foro*" Or (Plan1.Campo1) Like "*#######-##.####.#.##.####*" Or (Plan1.Campo1) Like "*Recebido em*" Or (Plan1.Campo1) Like "*2020*"));



Qualquer outra dúvida favor retornar...

Vou tentar essa solução e te retorno, desculpa a demora!!

Não foi.

vou colar aqui como fica, de repente alguém tem alguma ideia:

A tabela vem pra mim como no anexo.
Eu preciso de uma função no formulário dela (nao coloquei o form porque era gigante, mas um form com os campos simples ja resolve) que organize o texto RESULTADO, para ficar assim:



Foro Y

1037965-35.2020.8.26.0053
Recebido em: 04/06/2020 - 12ª Vara de Fazenda Pública

Eu preciso que ele organize o texto dentro do próprio campo RESULTADO.

Aí se tiver mais ocorrências, ele segue na mesma caixa de texto, separado por parágrafo...


Foro Y

1037965-35.2020.8.26.0053
Recebido em: 04/06/2020 - 12ª Vara de Fazenda Pública

1000000-35.2020.8.26.0053
Recebido em: 04/06/2020 - 12ª Vara de Fazenda Pública

Anissima, o arquivo está com uma tabela anexada (c:/w/sys/bp/IAdata.accdb) que não veio...

Favor enviar o arquivo texto. Obrigado...

Desculpa!


Segue anexo.

Boa noite, Anissima.

A tabela possui apenas vários links de acesso a base. Não tem o texto propriamente dito para pesquisado.

Creio que voce deve acessar esses links e baixar os textos a serem filtrados, não?

Preciso desses textos a serem filtrados...

Segue o arquivo corrigido.

Boa noite Annissima.

Favor aguardar pois estou preparando uma rotina para separar as linhas da tabela importada e depois distribuí-la em uma nova tabela Processos.

Obrigado...

Boa noite, Annissima.

Terminei. Segue arquivo Processos.accde com as alterações. Qualquer dúvida podemos nos falar. Meu WhatsApp é 11 95555-1365.

Explicações:

Criei uma rotina btMontar que faz a separação da tabela importada em linhas para uma nova tabela Linhas.

Em seguida, eu criei uma nova consulta LinhasTextos na qual o campo Linha está em HTML e no campo LinhaTexto consegui eliminar o html.

A rotina lê essa consulta LinhasTextos e conforme o texto salva em várias colunas da tabela Processos.


Aguardo seus comentários e crítica.

Faltou o arquivo...

Gente, tô conversando com o caique (que ta me ajudando demais) pra chegar numa solução eficiente, e aí postaremos aqui, ok?

A solução que o muito atencioso caique deu funcionou!

O sistema encontra, com sucesso, as ocorrências do texto que eu precisava, e monta uma tabela que eu consigo usar!

Segue aqui o arquivo final.

Obrigada a todos!