Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 13 Visitantes :: 2 Motores 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

Exporta/Importar campo Memo para arquivo texto

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

Em curso Exporta/Importar campo Memo para arquivo texto

Mensagem por Julio em 10/5/2010, 16:49

Pessoal

Tenho uma tabela de medicamentos, e existem os seguintes campos
id_medica N(10)
descricao C(100)
indicacao M(4)
mododeusar M(4)
dosagem M(4)
formula M(4)
observacao M(4)
Caminho C(200)

Estou utilizando este comando apra exportar para txt
Código:
select medicamentos

Código:
COPY TO C:\SISTEMA\BANCO\MEDICAMENTO.TXT SDF

So que ao gerar o TXT so esta gerando com o id_medica, descricao, caminho.
Como fazer para exportar os campos (M)emo também. Acho que nao esta fazendo por achar que o arquivo texto deve ter algum limite.
Pelo memos tem como eu exportar um campo memo de cada vez?

julio


Última edição por Julio em 10/5/2010, 17:14, editado 1 vez(es)

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Exporta/Importar campo Memo para arquivo texto

Mensagem por Marcos Guedes em 10/5/2010, 17:11

Os campos MEMO's requerem um tratamento especial.
Veja se isto lhe ajuda:
Código:
CLOSE ALL
CLEAR ALL

lcFieldString = ''
lcMemo = ''

USE GETFILE('dbf', 'Select DBF') && Prompts for table to be used.

lnFieldCount = AFIELDS(laGetFields) && Builds array of fields from the
                                    && selected table.

*!* Prompt for Output file and use Low-Level functions
*!* to create it.
lcTextFile = FCREATE(GETFILE('txt', 'Select Text'))

*!* Starts scanning the table and converts the fields
*!* values according to their types **
SCAN
  WAIT WINDOW STR(RECNO()) + ' Of ' + STR(RECCOUNT()) NOWAIT
 
  FOR lnCount = 1 TO lnFieldCount
      lcType = laGetFields(lnCount, 2)

      IF lcType # 'G' && Don't try to turn a general field into a string
        lcString = EVALUATE(laGetFields(lnCount, 1))
      EndIf
     
      DO CASE
        CASE lcType = 'M' && Process the Memo Fields
            lnMemoLines = MEMLINES(EVALUATE(laGetFields(lnCount,1)))
            FOR lnLoop = 1 TO lnMemoLines
              IF lnLoop < lnMemoLines
                  lcMemo = lcMemo + ;
                    ALLTRIM(MLINE(EVALUATE(laGetFields(lnCount, 1)), ;
                                  lnLoop)) + ' '
              ELSE
                  lcMemo = lcMemo + ;
                    ALLTRIM(MLINE(EVALUATE(laGetFields(lnCount, 1)), ;
                                  lnLoop))
              ENDif
            ENDfor
         
            lcString = lcMemo
            lcMemo = ''
        CASE lcType = 'G' && Process the General Fields
            lcString = 'Gen'
        CASE lcType = 'D' && Process the Date Fields
            lcString = DTOC(lcString)
        CASE lcType = 'T' && Process the DateTime Fields
            lcString = TTOC(lcString)
        CASE lcType = 'N' && Process the Numeric Fields
            lcString = STR(lcString, LEN(STR(lcString)), 2)
        CASE lcType = 'I' && Process the Integer Fields
            lcString = STR(lcString)
        CASE lcType = 'L' && Process the Logical Fields
            IF lcString = .T.
              lcString = 'T'
            ELSE
              lcString = 'F'
            ENDif
      ENDcase
   
      IF lnCount < lnFieldCount && Determines if the last field was
                                && processed and sets the closing quote.
        lcFieldString = lcFieldString + '"' + lcString + '"' + ','
      ELSE
        lcFieldString = lcFieldString + '"' + lcString + '"'
      ENDif
  ENDfor

  FPUTS(lcTextFile, lcFieldString) && Writes string to the text file.
  lcFieldString = ''
ENDscan

FCLOSE(lcTextFile)

CLOSE All
CLEAR All
WAIT WINDOW 'Text File Creation Completed' NOWAIT

Fonte:
[Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Exporta/Importar campo Memo para arquivo texto

Mensagem por Julio em 10/5/2010, 17:14

Marcos

Peguei o codigo e vou fazer os testes, depois aviso se deu certo.

vlw

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Exporta/Importar campo Memo para arquivo texto

Mensagem por Julio em 11/5/2010, 14:17

Marcos

Exportar - OK

Para importar pode ser realizado do mesma maneira ou tambem existe um tratamento especial?

Julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Exporta/Importar campo Memo para arquivo texto

Mensagem por Marcos Guedes em 11/5/2010, 23:11

Para a ordem inversa utilize um dos seguintes modelos:

Adicionar conteúdo, no fim do conteúdo existente:
Código:
SELECT tabela
LOCATE FOR...
IF FOUND() THEN
APPEND MEMO nomeCampoMemo FROM arquivo.ext
ENDIF

Adicionar conteúdo, substituindo o conteúdo antigo:
Código:
SELECT tabela
LOCATE FOR...
IF FOUND() THEN
APPEND MEMO nomeCampoMemo FROM arquivo.ext OVERWRITE
ENDIF

Adicionar conteúdo, no fim do conteúdo existente:
Código:
SELECT tabela
SET ORDER TO...
SEEK...
IF FOUND() THEN
APPEND MEMO nomeCampoMemo FROM arquivo.ext
ENDIF

Adicionar conteúdo, substituindo o conteúdo antigo:
Código:
SELECT tabela
SET ORDER TO...
SEEK...
IF FOUND() THEN
APPEND MEMO nomeCampoMemo FROM arquivo.ext OVERWRITE
ENDIF

Resolve?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Exporta/Importar campo Memo para arquivo texto

Mensagem por Julio em 13/5/2010, 11:31

Marcos

Estou querendo importar de um aequivo txt.

O exemplo que vo ce postou em 10/5/2010, 17:11, eu consegui exportar para o txt, mas so que vou ter que importar deste arquivo texto gerado para uma tabela DBF.

Julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Exporta/Importar campo Memo para arquivo texto

Mensagem por Marcos Guedes em 13/5/2010, 11:45

[Você precisa estar registrado e conectado para ver este link.] escreveu:Marcos

Estou querendo importar de um aequivo txt.

O exemplo que vo ce postou em 10/5/2010, 17:11, eu consegui exportar para o txt, mas so que vou ter que importar deste arquivo texto gerado para uma tabela DBF.

Julio
Você testou e/ou compreendeu o último exemplo que postei para fazer a operação inversa (de arquivo texto para campo Memo)?

[Você precisa estar registrado e conectado para ver este link.] escreveu:Para a ordem inversa utilize um dos seguintes modelos:

Adicionar conteúdo, no fim do conteúdo existente:
Código:
SELECT tabela
LOCATE FOR...
IF FOUND() THEN
APPEND MEMO nomeCampoMemo FROM arquivo.ext
ENDIF

Adicionar conteúdo, substituindo o conteúdo antigo:
Código:
SELECT tabela
LOCATE FOR...
IF FOUND() THEN
APPEND MEMO nomeCampoMemo FROM arquivo.ext OVERWRITE
ENDIF

Adicionar conteúdo, no fim do conteúdo existente:
Código:
SELECT tabela
SET ORDER TO...
SEEK...
IF FOUND() THEN
APPEND MEMO nomeCampoMemo FROM arquivo.ext
ENDIF

Adicionar conteúdo, substituindo o conteúdo antigo:
Código:
SELECT tabela
SET ORDER TO...
SEEK...
IF FOUND() THEN
APPEND MEMO nomeCampoMemo FROM arquivo.ext OVERWRITE
ENDIF

Resolve?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Exporta/Importar campo Memo para arquivo texto

Mensagem por Julio em 13/5/2010, 11:56

Marcos

So nao entendi o comando SEEK!

Mas no caso atual preciso importar tudo a tabela vai estar vazia.
Julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Exporta/Importar campo Memo para arquivo texto

Mensagem por Marcos Guedes em 13/5/2010, 12:11

Julio, eu postei vários exemplos pois não sei a forma como você trabalha.

O que você precisará fazer para importar dados de um arquivo texto para um campo memo, é:

  1. selecionar a tabela
  2. localizar o registro desejado
  3. utilizar o append conforme mostrando nos exemplos.


isto resolve?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Exporta/Importar campo Memo para arquivo texto

Mensagem por Julio em 13/5/2010, 16:09

Ok Marcos

Vou fazer uns testes com os comando para ver se resolve

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


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