Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
19 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 19 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7037 usuários registrados
O último usuário registrado atende pelo nome de GETULIO

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

Extrair dados de um campo MEMO

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso Extrair dados de um campo MEMO

Mensagem por coconaithy em 27/10/2011, 07:17

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.


coconaithy
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Extrair dados de um campo MEMO

Mensagem por alceu11 em 27/10/2011, 08:12

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....

avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Extrair dados de um campo MEMO

Mensagem por coconaithy em 27/10/2011, 13:52


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
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Extrair dados de um campo MEMO

Mensagem por coconaithy em 27/10/2011, 13:56

Alceu,

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


coconaithy
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum