Moderador: Moderadores
Nota de Moderação:
Código: Selecionar todos
cls
vARQ:={}
aadd( vARQ, {"data","D",8,0} )
DBcreate("TESTE.DBF", vARQ)
use teste alias teste shared new
hand=FOPEN("c:\teste.txt")
xdata=FREADSTR(hand,8)
FCLOSE(hand)
xDATA1=left(xdata,2)
xDATA2=left(xdata,4)
xDATA3=RIGHT(xdata2,2)
xDATA4=RIGHT(xdata,4)
xDATA4=xDATA1+"/"+xDATA3+"/"+xDATA4
@ 10,10 SAY XDATA COLOR("B/W*")
@ 11,10 SAY XDATA4 COLOR("B/W*")
@ 12,10 SAY CTOD(XDATA4) COLOR("B/W*")
sele teste
append blank
repl data with xdata4
return
Código: Selecionar todos
set date british
set century on // não é essencial
cData := "31122006"
dData := CtoD(Transf(cData,"@R 99/99/9999"))Não me lembro exatamente dessa parte (nunca usei e não vi o NG) mas acredito que não, pois o APPEND provavelmente espera que a data esteja no formato ANSI (YYYYMMDD). Então, você terá que fazer (+/-) como o Leonardo sugeriu: abrir o arquivo texto e capturar a porção que registra essa data. Daí é converter e importar da forma que precisar.Grings escreveu:Preciso importar com Append uma data de um arquivo TXT que se encontra no formato 31122006 para um DBF campo cujo campo é data. Não estou conseguindo, é possível fazer isso com o Append ??
Tche, ele disse que esta em um TXT , eu não disse se sabe abrir ou localizar algo no TXT....ele não detalhou pq não esta conseguindo...De onde foi que você tirou que a data em questão reside nas primeiras 8 posições do arquivo texto?
Maligno....acho que vossa senhoria deveria medir as palavras antes de Postar...sou postei uma ajuda a um colega....E que jeito esdrúxulo é esse de converter o texto em DATE?
Seu exemplo não esta pegando de um TXT.....alias de onde vc tirou que essa DATA esta vindo de uma variavel fixa.......?Não seria mais fácil algo do tipo:
Código:
set date british
set century on // não é essencial
cData := "31122006"
dData := CtoD(Transf(cData,"@R 99/99/9999"))
Código: Selecionar todos
xDATA1=left(xdata,2)
xDATA2=left(xdata,4)
xDATA3=RIGHT(xdata2,2)
xDATA4=RIGHT(xdata,4)
xDATA4=xDATA1+"/"+xDATA3+"/"+xDATA4Código: Selecionar todos
CtoD(Transf(xdata,"@R 99/99/9999"))Meu código é um exemplo simples que trata apenas da conversão. Por isso "inventei" uma variável. Agora, de onde o cara vai pegar a data é problema dele. Além do que, a pergunta dele foi "é possível fazer isso com o Append ??". E dei minha resposta. Ele não pediu código exemplo pra ler um TXT.Seu exemplo não esta pegando de um TXT.....alias de onde vc tirou que essa DATA esta vindo de uma variavel fixa.......?
Não faltou, Eolo. Está na minha primeira mensagem. Veja lá.Eolo escreveu:Maligno,
Faltou um SET DATE BRIT...
Nota de Moderação: Toda vida ficaria melhor....não desmereci em momento algum o seu exemplo...apenas comentei.....coloquei um exemplo que veio na cabeça....na aquela hora...Se fosse um iniciante, até nem me preocuparia. Mas esse código, pra um sujeito com a sua experiência, não só é uma forma bem esdrúxula como um desperdício. Refatorando fica com uma só linha. Não fica melhor usar a única linha abaixo?
Realmente Maligno....vc tem razão...eu deveria esta bem distraido....talvez cansado....afinal jah era 21:30 da noite...eu tava desde cedo na luta....mas o que me deixa....as vezes com má impressão de vossa senhoria é que vc tenta tripudiar....em cima dos outros, acho que todos aqui no forum de uma certa maneira estão querendo colaborar.....seria muito mais simples.....vc postar seu codigo dando sua dica....e pronto..Meu código é um exemplo simples que trata apenas da conversão. Por isso "inventei" uma variável. Agora, de onde o cara vai pegar a data é problema dele. Além do que, a pergunta dele foi "é possível fazer isso com o Append ??". E dei minha resposta. Ele não pediu código exemplo pra ler um TXT.
Inclusive, o exemplo de conversão que dei foi mais direcionado à você, que me deixou surpreso. Imagino que você devia estar bem distraído para compor aquilo
Obrigado e Igualmente.....Mas, por favor, atente para o fato de que minha crítica não é ofensiva, mas construtiva.
Mas se você reparar bem, faltou sim um SET DATE BRITISH, mas no exemplo do Leonardo, em sua primeira mensagem. O código dele sempre gravará uma data vazia no DBF.
Mas aceita. Como eu disse, no formato ANSI. Se você ainda tivesse a data nesse formato e pudesse importar tudo, seria mais fácil. Mas se você tem a data no formato britânico e precisa importar apenas parte dos dados, só manualmente mesmo.Grings escreveu:De fato Maligno, Append From não aceita campos data em nenhum formato.
A essa hora,... Sei bem como é. Estou trabalhando todos os dias até 3 ou 4 da manhã. Quando chega nesse ponto é fácil perder a concentração. Mais cedo ou mais tarde será você a me corrigir numa outra thread qualquer. E aceitarei sua intervenção humildemente.sygecom escreveu:Realmente Maligno....vc tem razão...eu deveria esta bem distraido....talvez cansado....afinal jah era 21:30 da noite...eu tava desde cedo na luta....
Não tripudiei coisa alguma. Foi impressão sua. Apenas estranhei um código desse tipo partindo de "Vossa Senhoria". Considere essa última observação um elogio.mas o que me deixa....as vezes com má impressão de vossa senhoria é que vc tenta tripudiar....em cima dos outros
