Jump to content
maluco2able

Gravar ficheiro txt

Recommended Posts

maluco2able

eu tenho visto ums apontamentos que me foram fornecidos por fornecedores daqui mas estou com uma duvida

eu tou a realizar um notepad basico como se fosse o do windows mas quando vou guardar um ficheiro que foi alterado ele n assume as alterações

o que sera?

aqui vai o codigo:

Dim SFD As New SaveFileDialog

        SFD.AddExtension = True
        SFD.SupportMultiDottedExtensions = True
        SFD.OverwritePrompt = True
        SFD.ValidateNames = True
        SFD.Filter = "Documentos de Texto|*.txt"
        SFD.Title = "Guardar ficheiro de imagem... "
        SFD.ShowDialog()

        MsgBox(SFD.FileName)

Share this post


Link to post
Share on other sites
Caça

Onde é que está o teu StreamWriter ou TextWriter?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
maluco2able

Dim SR As New IO.StreamReader(OFD.FileName)

        RichTextBox1.Text = SR.ReadToEnd

        SR.Close()

tem que se alterar mais alguma coisa o ta bem assim

?

Share this post


Link to post
Share on other sites
Caça

StreamReader -> Reader -> Ler

StreamWriter -> Writer-> Escrever

:thumbsup:


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
maluco2able

mais uma coisa este bocado de codigo dame erro pk ?

RichTextBox1.Text = SR.WriteToEnd()

Share this post


Link to post
Share on other sites
Andrepereira9

Assim funciona melhor

Dim SR As New IO.StreamWriter(OFD.FileName)
        SR.WriteLine(RichTextBox1.Text)
        SR.Close()


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Caça

Porque?

Porque não lês os que estás a escrever :thumbsup:

SW.WriteLine(RichTextBox1.Text)


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Andrepereira9

Com o código acima, o texto

Olá

Adeus

fica assim: Olá[][]Adeus

Para evitar isso fazes assim:

Dim SR As New IO.StreamWriter(OFD.FileName)

For Each Linha As String In RichTextBox1.Lines
        SR.WriteLine(Linha.ToString)
Next

SR.Close()


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Caça

Quando tornar a ler, o texto volta ao normal.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Andrepereira9

Mas se abrir no bloco de notas, fica assim. pelos menos aqui aconteceu-me isso


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Caça

Pois fica, o quadrado simboliza a quebra de linha, o bloco de notas é que não o assume, já por isso é um bloco de notas.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.