syspel Posted November 13, 2014 Report Share Posted November 13, 2014 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 0000000000R016549158100015720140800000000001083108000000000000020700000000000000000000 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 13, 2014 Report Share Posted November 13, 2014 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 Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted November 13, 2014 Report Share Posted November 13, 2014 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 Quote Link to comment Share on other sites More sharing options...
rochinha Posted November 14, 2014 Report Share Posted November 14, 2014 Amiguinho, Usa a minha versão de MemoWrit() Function rMemoWrit( _aquivo_, _conteudo_ ) nHandle := fCreate( _aquivo_ ) fWrite( nHandle, _conteudo_, LEN( _conteudo_ ) ) fClose( nHandle ) return .t. Quote Link to comment Share on other sites More sharing options...
syspel Posted November 14, 2014 Author Report Share Posted November 14, 2014 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 Quote Link to comment Share on other sites More sharing options...
kleyber Posted November 15, 2014 Report Share Posted November 15, 2014 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... Quote Link to comment Share on other sites More sharing options...
rochinha Posted November 15, 2014 Report Share Posted November 15, 2014 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) ) Quote Link to comment Share on other sites More sharing options...
syspel Posted November 18, 2014 Author Report Share Posted November 18, 2014 ok blz deu certo obrigado Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.