como tirar o chr(13) do final de um arquivo txt

[Trazom]

Ola,

estou tentando criar um arquivo .xml pra atender a nf-e, no caso estou usando:
set alte on
set alte to arquivo.xml
&'<xml etc,,,,,,,>' (obs coloquei esse & por nao encontrar o interrogacao no teclado, sorry)

e assim gero as tags necessarias, acontecese que o validador esta acusando um erro no ultimo caractere do arquivo no caso chr(13) ou o caractere que representa o enter

como posso criar o arquivo sem esse caractere no final, visto que nao fui eu que coloquei

[Ademir]

Boa tarde !

Em vez de usar o set alternate, tente gerar o arquivo usando set printer to arquivo.xml, como se fosse imprimir.

[sygecom]

Ou pode usar tmb. FCreate() , FWrite(), FClose()...

[sygecom]

Outra dica interresante no link abaixo:
viewtopic.php?f=1&t=2144&p=7648

[Maligno]

A montagem do arquivo via impressão é muito mais fácil e intuitiva.

[SandroBelarmino]

Eu gero um arquivo xml para o Suframa usando o fcreate(), fwrite() e fclose() e não tenho nenhum problema, tambem deve dar certo para a nf-e.

Abraço.

[Maligno]

XML é tudo a mesma coisa: texto comum. Não tem erro.

[ANDRIL]

Caso ainda não tenha conseguido resolver o problema, posto uma função que lê o arquivo de origem e gera um novo arquivo sem chr(13) no final, é ela totalmente adaptavel caso deseje incorporá-la ao seu sistema.

Código: Selecionar todos

/*
 Programador: Anderson Vieira
 Objetivo...: Tirar chr(13) fo final do arquivo

*/
     *--nome do seu arquivo de origem
     arqimggif="SEUARQUIVO.XML"
     totlinhas=filesize("&arqimggif",0)
     hand1=fopen("&arqimggif",0)

     *--vars da funcao
     buffer=space(10000)
     desloca=10000

     *--nome do arquivo intermediario
     tnovo="NOVOARQ.XML"
     hand2=fcreate("&tnovo",0)

     do while .t.
            fread(hand1,@buffer,10000)
            if len(buffer)<=10000
               if asc(right(rtrim(buffer),1))=13 //chr(13)
                  fwrite(hand2,left(buffer,len(rtrim(buffer))-1))
               else
                  fwrite(hand2,buffer)
               endif
            else
               fwrite(hand2,buffer)
            endif
            if desloca>totlinhas
            exit
            endif
     buffer=space(10000)
     desloca=desloca+10000
     enddo
     fclose(hand1)
     fclose(hand2)

Até+