txt

[syspel]

bom dia

estou gravando um arquivo texto chamado dctf.txt

estou usando variaveis de memoria quando use grv dentro do arquivo ele me grava a

primeira posicao um branco como exemplo abaixo,vou colacar um escopa para vcs verem

#DCTFM 201400000654915810001570310MTRES OTHER COLONNILC LTDA ME SP00000000000002014080000000000001082014310820140000000000 0000000000
R016549158100015720140800000000001083108000000000000020700000000000000000000
R0265491581000157201408000000000MTRES OTHER COLONNILC LTDA ME 0000RUA AUGUSTA

ja tentei de tudo nao tem jeito ja usei ltrim,alltrim na hora gravar ele grv assim com

esse branco estou gravando assim memowrite("dctf.txt",txt)

as variaveis sao de memorias t1,t2,t3,t4,t5 assim por diante,ja grvei em um arquivo da certo mas

as posicao fica diferente e ai nao passa a bomba da dctf

alguem tem exemplo como grv isso de outro jeito

desde ja obrigado

carlos

Fwh1402 xharbour 121 dbf bcc582

[kapiaba]

http://www.pctoledo.com.br/forum/viewtopic.php?f=1&t=10315

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=27192&p=151070&hilit=STUFF#p151070

[Luiz Fernando]

Ola Carlos, eu uso ttxtfile para gerar arquivo e tb ler, não sei se ira resolver este seu problema...

oFile1 = TTxtFile():New( cPath1+"PALM\REMESSA\produto.rem" )
for i=1 to len(aProduto)
wLin=aProduto[i,1]+"|" // 1-codigo reduzido
wLin+=aProduto[i,2]+"|" // 2-descricao da mercadoria
wLin+=strzero(aProduto[i,3]*1000,12)+"|" // 3-valor unitario
wLin+=aProduto[i,4]+"|" // 4-unidade
wLin+=str(aProduto[i,5])+"|" // 5-estoque
wLin+=str(aProduto[i,8])+"|" // 6-embalagens
wLin+=str(aProduto[i,6])+"|" // 7-valor2
wLin+=strzero(aProduto[i,7]*100,7)+"|" // 8-volume
wLin+=strzero(aProduto[i,8]*100,5)+"|" // 9-embalagens
wLin+=dtoc(date())+"|" // 10-data do envio
wLin+=strzero(aProduto[i,9]*1000,12)+"|" // 11-custo
wlin+=aProduto[i,10]+"|"+chr(13)+chr(10) // 12-grupo de mercadoria
oFile1:PutStr( wlin )
next
oFile1:end()

Luiz Fernando

[rochinha]

Amiguinho,

Usa a minha versão de MemoWrit()

Function rMemoWrit( _aquivo_, _conteudo_ )
   nHandle := fCreate( _aquivo_ )
   fWrite( nHandle, _conteudo_, LEN( _conteudo_ ) )
   fClose( nHandle )
   return .t.

[syspel]

oi pessoal

nao consigo tirar esse branco parece defeito do xharbour com tratamento de texto

o branco gera depois que grava.,mas que saco

preciso de uma ideia,ajuda

muito obrigado

otxt:=" "

oTXT=oTXT+alltrim(tta1)
oTXT=oTXT+alltrim(tta2)
oTXT=oTXT+alltrim(tta3)
oTXT=oTXT+alltrim(tta4)
oTXT=oTXT+alltrim(tta5)
oTXT=oTXT+alltrim(tta6)
oTXT=oTXT+tta7

MEMOWRIT("DCTFM.DEC",oTXT)

carlos

[kleyber]

Carlos, uma curiosidade: por que você não faz assim:

oTXT=oTXT+alltrim(tta1)

oTXT=oTXT+alltrim(tta2)

oTXT=oTXT+alltrim(tta3)

oTXT=oTXT+alltrim(tta4)

oTXT=oTXT+alltrim(tta5)

oTXT=oTXT+alltrim(tta6)

oTXT=oTXT+tta7

E veja se dá certo...

[rochinha]

Amiguinho,

Voce diz que tem um caracter branco te enxendo as paciencias, mas veja como voce inicia o trecho:

oTXT := " "

Em nenhum você limpou-o com um alltrim()

E ao salvar, continua salvando o tal branco.

memowrit( "DCTFM.DEC", oTXT )

Faça assim:

memowrit( "DCTFM.DEC", alltrim(oTXT) )

[syspel]

ok blz deu certo obrigado