Busca de Texto após um caracter

[Nelson Arcas]

Pessoal
Preciso lê diversos arquivos de extensão "PRG" e gravar em um arquivo texto todas as palavras que possuem mais do que 10 caracteres após "."

Exemplo

Código:


Procedure ativo

Select cadfunc.matricula, cadfunc.probabilidade;
from cadfunc;
where cadfunc.ativo=.T.;
INTO CURSOR AUXFUNC
return


Nesse exemplo deveria levar para o arquivo texto a palavra "Probabilidade"

[wms]

Nelson,

Estou te mandando um exemplo onde eu busco dentro de uma string um caracter qualquer e divido-a em 2 partes assim eu posso pegar tanto a primeira parte da string, como quantos caracteres eu quiser da segunda parte.

Código:

   lcFind_Str   = "."

            lcRazaoDest= curPedidos.RazaoDest
   lc1Nome   = SUBSTR(lcRazaoDest,1,AT(".",lcRazaoDest)-1)
   IF !EMPTY(lc1Nome)
      lnPos   = AT(lcFind_Str,lcRazaoDest,1) + 1
      lnQtd   = 40 - lnPos
      lc2Nome   = SUBSTR(lcRazaoDest,lnPos,lnQtd)
      lcNome   = lc1Nome+" "+lc2Nome
   ELSE
      lcNome   = lcRazaoDest
   ENDIF
   lcrazaoSocialDestinatario   = lcNome


Neste meu exemplo eu pego a Razão Social do meu destinatário de dentro do cursor curPedidos; Em seguida eu verifico se dentro desta Razão Social existe o caracter "." (ponto).
Caso exista eu vou me posicionar exatamente no primeiro caracter após o "." (ponto) dentro da Razão Social

Código:

lnPos   = AT(lcFind_Str,lcRazaoDest,1) + 1

, sabendo inclusive a posição numérica desta posição.
Em seguida eu vou calcular exatamente quantos caracteres existem após o "." dentro da Razão Social

Código:

lnQtd   = 40 - lnPos

.
Feito isso você já pode pegar os 10 caracteres desejados:

Código:

lc2Nome   = SUBSTR(lcRazaoDest,lnPos,lnQtd)

. Aqui você troca a variável lnQtde pela sua quantidade 10.

É isso que você esta precisando?
Espero ter ajudado.

Abraços!

[Nelson Arcas]

Muito obrigado funcionou sim

[hugo]

boa wms

reputado