GERAR CNAB BANCO DO BRASIL

MAXCIM 01/04/2011 13:20:12
#370069
Olá amigos...
o problema é um pouco inisitado...
estou gerando o aqruivo CNAB do Banco do Brasil. ao enviar para o banco me dá o erro [Ô]arquivo de formato desconhecido![Ô]
fiz todos os testes possiveis...

pra piorar a situação.... copiei o conteudo do arquivo e colei em um arquivo texto em branco e renomei conforme padrão... e pra minha surpresa.. ele é enviado normalmente...

testei varios modos de criação do arquivo.. entre elas
[txt-color=#0000f0] Dim objStream As New System.IO.FileStream(Sdestino, IO.FileMode.OpenOrCreate)
Dim Arq As New System.IO.StreamWriter(objStream)
Arq.WriteLine(RemessaH0)
Arq.WriteLine(RemessaH1)
For I = 1 To UBound(Linha_DEt)
Arq.WriteLine(Linha_DEt(I))
Next
Arq.WriteLine(Remessa_Rodape1)
Arq.WriteLine(Remessa_Rodape2)
Arq.Close()[/txt-color]

Dim escritor As StreamWriter = File.CreateText(Sdestino)
escritor.WriteLine(RemessaH0)
escritor.WriteLine(RemessaH1)
[ô] escritor.WriteLine(RemessaD1)
For I = 1 To UBound(Linha_DEt)
escritor.WriteLine(Linha_DEt(I))
Next
escritor.WriteLine(Remessa_Rodape1)
escritor.WriteLine(Remessa_Rodape2)
[ô] Fecha o stream
escritor.Close()
RODRIGOFERRO 01/04/2011 13:54:16
#370078 Resposta escolhida
Acredito entao que se trata de um caso classico de Codificação... no notepad voce pode escolher em que codificação ira salvar.
ANSI, UNICODE ou UTF8... faça seus testes ai amigão !

Abraços
MAXCIM 01/04/2011 13:55:58
#370079
é uma possibilidade! Zerocal...

alguem sabe como alterar o formato que o arquivo ta sendo gravado?
RODRIGOFERRO 01/04/2011 13:58:56
#370080
Tenta achar primeiro qual e a codificação certa !

mas veja isso: Open and Save a txt file with ANSI encoding. Help

Acredito que ajuda !
MAXCIM 01/04/2011 14:00:34
#370082
qual colei o conteudo no bloco de notas salvei em formato UTF8... sem sombra de suvidas.. é o certo.
no vB6 Salvava normal...
RODRIGOFERRO 01/04/2011 14:01:57
#370083
Citação:

:
Tenta achar primeiro qual e a codificação certa !

mas veja isso: Open and Save a txt file with ANSI encoding. Help

Acredito que ajuda !



zoia...


Imports System.IO
Imports System.Text
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strResult As String
        [ô]Encoding.Default will return ANSI as ANSI is default encoding type for windows[ô]
        Using SR As StreamReader = New StreamReader([Ô]C:\Test.txt[Ô], Encoding.Default)
            strResult = SR.ReadToEnd
        End Using
    End Sub
End Class
MAXCIM 01/04/2011 14:48:48
#370089
valeu! funcioniu perfeitamente...
brigadão
Tópico encerrado , respostas não são mais permitidas
Voltar