Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

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

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Estatísticas
Temos 7082 usuários registrados
O último usuário registrado atende pelo nome de Maiara Bosco

Os nossos membros postaram um total de 49 mensagens em 26 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