GERAR ARQUIVO TEXTO COM LINE FEED MUDANCA DE LINHA
Olá,
Alguém poderia informar como usar no VB6 um linha de comando para mudança de linha(Line Feed), quando gera informações de arquivos textos. O caractere que deve ser usado para [Ô]line feed[Ô] (mudança de linha) é o 0D0A (zero d zero a). Como eu consigo gerar este Caracter 0D0A? Normalmente eu gero a mudança de linha com o vbCrLf como mostrado abaixo, entretanto, preciso gerar este arquivo para enviar informações para Receita Federal e eles solicitam que gere os arquivos com este line feed(0D0A), alguém poderia ajudar como gerar isto?
texto.Write 0 & Format((QRS_II!BANCO), [Ô]000[Ô]) & M_PORTADOR & M_DATA & M_TRANS_REM & M_TRANS_DEST & M_TRANS_TIPO & Format(M_Seq_Retorno, [Ô]000000[Ô]) & Format(QRS_I!QTD_REG_REM, [Ô]0000[Ô]) & M_COMPLEM & Format(rs!agencia, [Ô]000000[Ô]) & Format(M_Versao, [Ô]000[Ô]) & rs!Cod_Mun_Pca_Pgto & Space(497) & Format(contador, [Ô]0000[Ô]) & vbCrLf
Atenciosamente,
Adelmo Melo
Alguém poderia informar como usar no VB6 um linha de comando para mudança de linha(Line Feed), quando gera informações de arquivos textos. O caractere que deve ser usado para [Ô]line feed[Ô] (mudança de linha) é o 0D0A (zero d zero a). Como eu consigo gerar este Caracter 0D0A? Normalmente eu gero a mudança de linha com o vbCrLf como mostrado abaixo, entretanto, preciso gerar este arquivo para enviar informações para Receita Federal e eles solicitam que gere os arquivos com este line feed(0D0A), alguém poderia ajudar como gerar isto?
texto.Write 0 & Format((QRS_II!BANCO), [Ô]000[Ô]) & M_PORTADOR & M_DATA & M_TRANS_REM & M_TRANS_DEST & M_TRANS_TIPO & Format(M_Seq_Retorno, [Ô]000000[Ô]) & Format(QRS_I!QTD_REG_REM, [Ô]0000[Ô]) & M_COMPLEM & Format(rs!agencia, [Ô]000000[Ô]) & Format(M_Versao, [Ô]000[Ô]) & rs!Cod_Mun_Pca_Pgto & Space(497) & Format(contador, [Ô]0000[Ô]) & vbCrLf
Atenciosamente,
Adelmo Melo
Uma opção é colocar o caracter através de CHR
Ou seja, no lugar de vbCrLf vc coloca: Chr(13) & Chr(10)
0D0A está em Hexa
0D = 13 (ascii)
0A = 10 (ascii)
Ou seja, no lugar de vbCrLf vc coloca: Chr(13) & Chr(10)
0D0A está em Hexa
0D = 13 (ascii)
0A = 10 (ascii)
Tópico encerrado , respostas não são mais permitidas