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

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 47 mensagens em 24 assuntos

Gerar TXT

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

Em curso Gerar TXT

Mensagem por henriquexande106 em 14/4/2013, 09:35

Amigos bom dia.

Estou tentando Gerar um arquivo txt, criando-o quando ele não existe e tentando incluir informação nele quando ele já existe.


O que eu estou fazendo de errado?

Código:
lctxt   = SUBSTR(DTOC(DATE()),7,4)+"-"+SUBSTR(DTOC(DATE()),4,2)+"-"+SUBSTR(DTOC(DATE()),1,2)
         lctxt   = "C:\pasta"+"\Produto-"+lctxt+".txt"

         IF !FILE(lctxt)
            lctxt = fcreate(lctxt)
         ENDIF
         =FOPEN(lctxt,2)
         =FPUTS(lctxt,REPLICATE(TIME()+" - Produto Integrado - "+lcsku,500),355)
         =FCLOSE(lctxt)

Ele até gera o arquivo, mas sem a informação e o mesmo fica preso e só consigo exclui-lo após reiniciar o computador.

henriquexande106
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Gerar TXT

Mensagem por memarques em 14/4/2013, 14:49

Henrique, desde logo peço desculpas.

Não gosto quando pergunto uma coisa e outros respondem "outras", mas agora também vou fazer isso com voce ... kkkk

Quando "EU" preciso gravar um arquivo TXT como vc, eu "prefiro" usar a função STRTOFILE(). É muito mais "facil" usar essa função de alto nivel, ao inves de tratar com a operação de HANDLES das funções fopen() por exemplo, embora SEMPRE POSSÍVEL.

A funçáo filetostring(), vc pode usar mandando gravar com o parametro "1" (que significa appendar no arquivo), e MESMO que o arquino não exista ele será criado. Mas se quiser ZERAR e gravar de novo no arquivo coloque "0".

por exemplo:

strtofile("teste de gravação", Nome_Arquivo.txt, "1")

o texto será gravado no arquivo (appendando) e se o arquivo não existir será criado ...

strtofile(("teste de gravação", Nome_Arquivo.txt, "0")

O arquivo será re-criado e o texto grabado num arquivo VAZIO, re-inicializando o arquivo.

O filetostring, Abre/cria o arquivo e depois de gravado ele é automaticamente "fechado".

Ate
MAuro

memarques
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Gerar TXT

Mensagem por Marcos Guedes em 19/4/2013, 23:34

Henrique, a sugestão do Mauro resolve o seu problema?

_________________
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

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