Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

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

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

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

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

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

Leitura Arquivo TXT

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

Resolvido Leitura Arquivo TXT

Mensagem por renatojunior2009 em 11/7/2012, 08:41

Bom dia Galera,

Tenho a seguinte duvida tenho um arquivo texto com a seguinte estrutura:

00001;AMACIANTE DE ROUPAS;2.35
00002;DETERGENTE MULTIUSO VEJA;2.80
00003;SABAO EM PO;6.20

e assim por diante ...

estou usando o seguinte código para jogar na tabela:
Código:

lcArq = ALLTRIM(ThisForm.txtPasta.Value)

CREATE CURSOR Tab_Temp (fLinha c(189) )

SELECT Tab_Temp
APPEND FROM &lcArq SDF
GO TOP

Ele insere todo conteúdo no cursor criado, gostaria de saber como fazer para ler as informações e ir gravando em outra tabela, uma vez que existe ; entre as informações.

Grato,

Renato

renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Leitura Arquivo TXT

Mensagem por Sub-Zero em 11/7/2012, 09:53

Código:
arq_tmp=SUBSTR(SYS(2015), 3, 10)
CREATE CURSOR &arq_tmp (modu_val c(6), modu_desc c(65))
APPEND FROM modulos SDF
replace ALL modu_val WITH modu_val
replace ALL modu_desc WITH modu_desc
?arq_tmp
brow

caso coma campos , deve ser pq o delimiter tem que ser tratado tente

Código:
APPEND FROM modulos SDF  DELIMITED WITH CHARACTER ;

ou tente usar SPACE

Código:
CREATE CURSOR &arq_tmp (modu_val c(6), SPACE(1) , modu_desc c(65))

ou mesmo crie mais 1 coluna e deixa em branco , pra ordem do cursor dar certo pro append

Código:
CREATE CURSOR &arq_tmp (modu_val c(6), vazio1 c (1) , modu_desc c(65))

aparitr que estiver no Brow tenta algo assim , para inserir os dados


Código:
SELECT MAX(cod) as maximo  FROM arq_tmp INTO CURSOR registros READWRITE 

lnSECONDS = SECONDS()
lnCONTADOR=0
NrEG = RECNO()

FOR I = val(registros .maximo) TO val(registros .maximo) + NrEG
    INSERT INTO tabela (cod , desc,  ,;
    values ( ZERA(STR(I,5),5),;
                "Produto "+registros.desc )
ENDFOR             

lnTOTALSEC = SECONDS() - lnSECONDS

TEXT TO lcMSG NOSHOW PRETEXT 7
   Processo conclúido com sucesso,
   
   ***************************
    Estatísticas da conversão
   ***************************
     Qtd. de imagens [[QTD]]
      Tempo Total [[TEMPO]](s)
    Média por imagem [[TEMPOIMG]]s
ENDTEXT
lcMSG = STRTRAN(lcMSG,'[[QTD]]',TRANSFORM(lnCONTADOR))
lcMSG = STRTRAN(lcMSG,'[[TEMPO]]',TRANSFORM(lnTOTALSEC))
lcMSG = STRTRAN(lcMSG,'[[TEMPOIMG]]',TRANSFORM(lnTOTALSEC/lnCONTADOR))
WAIT CLEAR

MESSAGEBOX(lcMSG) 



Sub-Zero
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Leitura Arquivo TXT

Mensagem por renatojunior2009 em 11/7/2012, 11:44

Deu certo.

Só que preciso validar o meu arquivo se ele tiver mais colunas que o cursor onde faço a leitura, tenho que da uma mensagem ao usuario , dizendo que o arquivo esta fora da estrutura

renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Leitura Arquivo TXT

Mensagem por Marcos Guedes em 11/7/2012, 12:31

Veja se a função GETWORDCOUNT lhe ajuda.
Leia a primeira linha do arquivo e veja quantas palavras existem separadas por ";".

Código:
? GetWordCount(cString, ";")

No seu caso, some mais um ao resultado.


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

Resolvido Re: Leitura Arquivo TXT

Mensagem por renatojunior2009 em 11/7/2012, 13:53

Mais uma vez obrigado a todos.

Resolvi da seguinte maneira.

Código:

lcConteudoArq = FILETOSTR(lcArq)
lcLinhas = ALINES(laLinha,lcConteudoArq)
FOR i = 1 TO 1
   *Verifica quantas palavras há entre ';' na primeira linha do Array
   lnQtd = GETWORDCOUNT(laLinha[i],';')
ENDFOR

IF lnQtd > 14
   =MESSAGEBOX("Arquivo TXT não está no Layout correto,48,"Aviso")
   RETURN .f.
ENDIF

renatojunior2009
Participante Regular
Participante Regular


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