Jump to content
maluco2able

Notepad

Recommended Posts

maluco2able

boa tarde

eu estou a fazer um notepad, tipo bloco de notas mas tou com uma duvida e que n consigo arranjar maneira de abrir um ficheiro que ja tenha cido guardado anteriormente em txt

alguem me pode ajudar ?

Share this post


Link to post
Share on other sites
maluco2able

eu tipo quero que quando carrego em abrir apareca como aparece no bloco de notas abrir como uma janela a parte

Share this post


Link to post
Share on other sites
maluco2able

tenho agora uma duvida pk quando eu faço para abrir o documento na aparece o que esta dentro do documento?

Share this post


Link to post
Share on other sites
ribeiro55

Porque estás a fazer alguma coisa mal.

Mostra o que fizeste.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
maluco2able

Dim OFD As New OpenFileDialog
        OFD.Multiselect = True
        OFD.Title = "Abrir ficheiro..."
        OFD.Filter = "Ficheiros de imagem|*.jpg;*.bmp;*png;*.gif"
        OFD.Filter = "Documentos de Texto|*.txt"
        OFD.ShowDialog()

        For Each F As String In OFD.FileNames
            MsgBox("Caminho completo: " & F)
        Next
        For Each F As String In OFD.SafeFileNames
            MsgBox("Ficheiro: " & F)
        Next

foi este o codigo que pus

Share this post


Link to post
Share on other sites
ribeiro55

Leste os artigos ao menos ?

Não estás a fazer absolutamente nada ao ficheiro...


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
ribeiro55

Tudo.

Só estás a carregar um caminho no filedialog... lê de novo. Estou a achar muito pouco tempo para teres lido com olhos de ler.

Até deixaste lá os filtros do exemplo... aliás, deixaste praticamente tudo.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
ribeiro55

Onde é que está a parte do teu código que atribuí valor ao .Text da RichTextBox ?

Se não estás a referenciar a RichText em lado nenhum... o VB não adivinha, ainda.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
maluco2able

agora da-me erro nesta parte de codigo.

While Not SR.EndOfStreamReader

E esta a mensagem que aparece

Não é possível ler a partir de um TextReader fechado.

Share this post


Link to post
Share on other sites
Caça

Isso acontece porque executante a função Close dentro do ciclo


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
maluco2able

ve me se este codigo esta bem ?

Dim OFD As New OpenFileDialog
        OFD.Multiselect = True
        OFD.Title = "Abrir ficheiro..."
        OFD.Filter = "Ficheiros de imagem|*.jpg;*.bmp;*png;*.gif"
        OFD.Filter = "Documentos de Texto|*.txt"
        OFD.ShowDialog()

        For Each F As String In OFD.FileNames
            MsgBox("Caminho completo: " & F)
        Next
        For Each F As String In OFD.SafeFileNames
            MsgBox("Ficheiro: " & F)
        Next
        Dim SR As New IO.StreamReader("c:\texte.txt")
        MsgBox(SR.ReadToEnd)
        SR.Close()
        Dim buffer(30) As Char
        While Not SR.EndOfStream
            SR.ReadBlock(buffer, 0, 30)
        End While


        For Each C As Char In buffer
            MsgBox(C)
            SR.Close()
        Next

Share this post


Link to post
Share on other sites
Caça

Lê o que escreves...

O SR.CLose() fecha o documento que foi aberto aqui

Dim SR As New IO.StreamReader("c:\texte.txt")

logo o SR.Close deveria ficar aqui

While Not SR.EndOfStream
   SR.ReadBlock(buffer, 0, 30)
End While
SR.Close()


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.