Extrair dados de um campo MEMO

[coconaithy]

Srs, bom dia.

Estou precisando ler um conteudo de um campo memo de uma tabela dbf e extrair as informações.

Exemplo: no campo memo tenho que encontrar a Palavra "linha", assim que encontrar esta palavra tenho que pegar os 4 caracter que tiver depois dela e depois tenho que procurar a palavra "coluna" e pegar os 4 caracter que tiver depois dela.

deste agradeço a todos.

[alceu11]

Seleciona sua tabela
Select Suatabela
wmenvar=SuaTabela.CampoMemo1 && Nesta variavel vc tera o texto para buscar
*****Um exemplo com chrtran, pode ser com set alternate tb. eu acho
Select 0
Use cep_bras
Go Top
wcidade=cep_bras.cidade
Do While Not Eof()
cProcurarPor = "ÁÉÍÓÚáéíóúÀÈÌÒÙàèìòùÂÊÎÔÛâêîôûÄËÏÖÜäëïöüÃÕãõÇçÑñº"
cSubstituirPor = "AEIOUaeiouAEIOUaeiouAEIOUaeiouAEIOUaeiouAOaoCcNno"
wcidade = Chrtran(wcidade,cProcurarPor,cSubstituirPor)
Replace cidade With wcidade
Skip
wcidade=''
wcidade=cep_bras.cidade
If Eof()
Wait Window 'fim' Timeout 0.5
Exit
Endif
Enddo

***
E se fosse uma arquivo com tag tipo xml
function STREXTRACT verifique o codigo

Código:

 
CLOSE DATABASES ALL
SET SAFETY off
IF file ('c:\PEDRO\PEDRONFE.xml')
cfile=FILETOSTR('c:PEDROPEDRONFE.xml')
cTag=STREXTRACT(cFile,'<emit><CNPJ>','</CNPJ>',1)
MESSAGEBOX(CTAG)
**Pegar so o nome do emitente dentro da arquivo nfe
cTag1=STREXTRACT(cFile,'<xNome>','</xNome>',1)
    wait window CTAG1 time 1
***aqui vou pegar o endereco do emitente
cTag2=STREXTRACT(cFile,'<xLgr>','</xLgr>',1)
cTag3=STREXTRACT(cFile,'<UF>','</UF>',1)

***seria isto o ke vc ker item 1?

IF STREXTRACT(cfile,'<det nItem="','">',1)="1"
  vrprodutos1=STREXTRACT(cfile,'<det','</det>')
  WRE=  STREXTRACT(cfile,'<det nItem="','">',1)
  MESSAGEBOX(vrprodutos1+chr(13)+' do item 1')
  wait window "aqui ja da para saber o item 1" time 1
ELSE
  MESSAGEBOX("1 IF Não tinha itens")
ENDIF


***vou comecar pelo item 2 e vou ate o iten 50
n=2

FOR I =1 TO 50

IF STREXTRACT(cfile,'<det nItem="','">',n)=ALLTRIM(STR(n))
  wre=STREXTRACT(cfile,'<det nItem="','">',n)
  *WAIT WINDOW 'item nr '+WRE TIMEOUT 1
  vrprodutos2=STREXTRACT(cfile,'<det','</det>',n)
    MESSAGEBOX(vrprodutos2)
    wait window 'item nr '+ str(n) time 1
 n=n+1
      ELSE
    **se nao encontro n=50 para fechar o loop do for next
      n=50
      WAIT WINDOW 'Fim dos 50 itens nfe' TIMEOUT 1
      EXIT
   
      ENDIF

 ENDFOR
**assim vc pega todos os itens
 
******** aqui pegar so o item 3
 IF STREXTRACT(cfile,'<det nItem="','">',3)="3"
  wre=STREXTRACT(cfile,'<det nItem="','">',3)
  WAIT WINDOW 'item nr '+WRE TIMEOUT 1
  vrprodutos3=STREXTRACT(cfile,'<det nItem="3">','</det>' ,1)
    MESSAGEBOX(vrprodutos3)

      ELSE
      WAIT WINDOW 'if nao encontrei o item 3 nao deu' TIMEOUT 1
      endif
***************************
 
 
****aqui vou inserir as tag que busquei e gravei em uma tabela
  CREATE TABLE TAGO( N_CAMPO C(10),CAMPO C(60))
  SELECT TAGO
    INSERT INTO tago (N_CAMPO,CAMPO) VALUES ('CNPJ',ctag)
 
  INSERT INTO tago (N_CAMPO,CAMPO) VALUES ('nome',ctag1)
      INSERT INTO tago (N_CAMPO,CAMPO) VALUES ('lgr',ctag2)
        INSERT INTO tago (N_CAMPO,CAMPO) VALUES ('UF',ctag3)
       
  BROWSE last
  ELSE
  WAIT WINDOW 'nao econtrei o arquivo' TIMEOUT 2
  endif
 
*  Warqtmp = FILETOSTR('c:PEDROPEDRONFE.xml')
*  ? Warqtmp


*********fim do exemplo com tag arquivo xml

Aqui no forum tem um topico da Natalia, ke tambem faz busca em um texto.
Verifique............
Voce esta devendo aquele exemplo de importacao da NFE de fornecedor.
Que vc ia colocar com melhorias....

[coconaithy]

Srs, resolvi.

segue o Codigo

Código:

* antes faço um locate na tabela B   
   IF FOUND() && encontrei o registro procurado
      xobs = infcpl
       x=1 && variável do validador do conteúdo do campo
       w=[] && variável que vai receber o novo valor com tamanho especidicado
       f=[] && variável que vai receber o novo valor com dados que necesssito
       DO WHILE x<LENC(xobs) && tamanho do campo que vai ser pesquisado
       z=subSTR(xobs,x,5) && posiciona a variável X em cada caracter da variavel que tem o tamanho do campo
       IF z='LINHA' && procurar a palavra que encontra dentro do campo.
       w=subSTR(xobs,x,20) && considera o conteúdo depois da palavra da variavel Z
        x1 = 1 && variável do validador do conteúdo da variavel W
       DO WHILE x1<LENC(w) && tamanho da variavel W
       z1=subSTR(w,x1,1) && posiciona a variável X em cada caracter da variavel W
        IF z1= '0' OR z1 ='1' OR z1='2' OR z1='3' OR z1='4' OR z1='5' OR Z1='6' OR z1='7' OR z1='8' OR z1='9' && verifico se cada posição é numerico
        f=f+z1 && se cada posição for numerico junto as informações
         ENDIF
          x1=x1+1 && pula para o próximo caracter
       ENDDO
       SELECT tabelaA
       IF EMPTY(linha) && verifico se o campo é vazio
       REPLACE LINHA WITH f && atualiza o campo com valor da variavel
       endif
       SELECT B && seleciona a outra tabela para pesquisa
      ENDIF
       x=x+1 && pula para o próximo caracter
      ENDDO
       WAIT WINDOWS W NOWAIT
   ENDIF

[coconaithy]

Alceu,

Sim estou tentando agora fazer o espelho da NF.
ou seja caso o usuario deseja visualizar a NF e gerar em PDF.