PC Toledo

Ou você tá doidão demais, como você mesmo falou, ou tá preguiçoso.
Em todo caso, baixa aí, tá em VB6, não requer DLL, e tem 21kb.

http://www.jpatecnologia.com.br/arquivos/tiracrlf.exe

Modo de usar:

tiracrlf arquivo.xml
tiracrlf d:\temp\arquivo.xml

se rodar sem nome do diretório, precisa estar rodando na mesma pasta do xml.

)
Não é preguiça NÃO, veja hj chegou o retorno do questionamento que fiz a SEFAZ, veja que o retorno chegou hj imagine a quanto tempo pedi ajuda:

Prezado Sr.,
O Manual de Integração do Contribuinte veda a inclusão de caracteres no arquivo XML ("line-feed", "carriage return", "tab", caracteres de "espaço" entre as TAGs) (item 3.2.1-c do Manual).
Exemplo de mensagem XML que não atende o padrão do projeto (considerar o trecho entre colchetes):
[

<==== acréscimo de linha/espaço no início da mensagem

<==== acréscimo de CR entre tags

2 <==== acréscimo de LF ou espaço de "identação"

35

STATUS
<==== acréscimo de linha/espaço desnecessário

<==== acréscimo de linha/espaço no fim da mensagem

]

Esta mensagem será rejeitada pelo Web Service da SEFAZ com motivo: "588 - Rejeição: Não é permitida a presença de caracteres de edição no início/fim da mensagem ou entre as tags da mensagem".

Para sanear o problema queira eliminar todos os caracteres de edição como segue:

[235STATUS]

Atenciosamente,

Secretaria da Fazenda do Estado de São Paulo

Recebi o retorno logo após sua resposta, mas... valeu mesmo assim, abaixo parte do meu código que não está funcionando e vou ver onde estou errando:

Tira contem o XML igual ao seu xtexto OK.

TIRA := StrTran( TIRA, Chr(13)+Chr(10), "" ) && [ENTER]
TIRA := StrTran( TIRA, Chr(10), "" ) && [LF]
TIRA := StrTran( TIRA, Chr(9), "" ) && [TAB]

:)Pos

Tinha reparado em seu primeiro XML duas tags vazias, o que contraria a norma. Verifique isso também.

) , tem razão essas: <cobr /> <infAdic /> , estão sobrando, beleza muito obrigado, e vamos continuando, mas... veja que interessante mesmo assim após a retirada dos enteres da vida o arquivo foi importado, cada uma né,
:{

José Quintas, um novo help. Seguinte utilizei o executavel por emergencia mas... estou enfrentando alguns problemas no Win7 por causa de permissões e tal, ai voltei a bater cabeça nesse pequeno código:

xtexto = MemoRead("arquivo.xml")
xTexto = StrTran(xTexto,Chr(13)+Chr(10),"")
MemoWrit("arquivo.xml",xTexto)

Que funciona muuuiiittooo bem a não ser (aaaa esse a não ser), ele grava uma flechinha -> no final do arquivo e o sistema da Sefaz reclama de caracter especial, deleto (apago) ele e o arquivo passa belezinha, tem algum jeito de eu tirar esse danado ?
:*
Honório

Amiguinhos,

Eu troquei meus MemoWrits por:

:-Y
Excelente, testado e aprovado.
:{ :xau