probl.com visual basic

pto.master

Power Member
ola todos.. tenho um problema a compilar en visual basic quando tento compilar isto"streamreader"
Private Sub Form_Load()
Dim oArquivo As System.IO.File
Dim oLeitura As System.IOStreamReader
oLeitura = oArquivo.OpenText("c:\a.txt")
End Sub


e ao compilar dame este erro
compile error user defined type not defined
brgg................... atentment pto.master
 
Última edição:
Tenta assim:

ola todos.. tenho um problema a compilar en visual basic quando tento compilar isto"streamreader"

Private Sub Form_Load()
Dim oArquivo As System.IO.File
Dim oLeitura As System.IO.StreamReader
oLeitura = oArquivo.OpenText("c:\a.txt")

End Sub
 
Última edição:
Tipo usa namespaces. E para isso que eles existem, para alem de deixarem o codigo mais facil de ler:

Código:
imports System.IO [COLOR=Navy] '[/COLOR] [COLOR=Blue]<-- namespace[/COLOR]

Private Sub Form_Load()
[COLOR=blue]
' caminho para o ficheiro
[/COLOR]Dim path as String = "c:\blablabla.txt"

Dim oArquivo As FileStream

Dim oLeitura As StreamReader

oArquivo = File.Open(path, FileMode.Open, FileAccess.Read)
oLeitura = new StreamReader(oArquivo)

[COLOR=Navy]' neste caso estas 2 linhas de cima podiam ser substituidas por apenas[/COLOR] 
[B][COLOR=Navy]' [/COLOR]oLeitura = new StreamReader(path)[/B] , [COLOR=Navy]mas deixei assim pois podes vir 
' a precisar de saber disto noutros projectos.
[/COLOR] 
( ... )

[COLOR=Navy] '[/COLOR][COLOR=Blue]codigo para o que queres fazer com o ficheiro que esta a ser lido[/COLOR]
( ....)

filestream.close()
streamreader.close()

End Sub
 
Última edição:
Que erro e que te da?


PS: Reparei que me enganei numa cena:

Código:
filestream.close()
streamreader.close()
Esta errado!

A maneira correcta :
Código:
oArquivo.close()
oLeitura.close()
Teste o codigo e esta a funcionar. E claro que o que eu te dei n faz nada para alem de abrir e fechar o stream.


Um exemplo funcional:

Código:
imports system.io

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim path As String = "c:\telefones.txt"

        Dim oArquivo As FileStream

        Dim oLeitura As StreamReader


        Try
            oArquivo = File.Open(path, FileMode.Open, FileAccess.Read)
            oLeitura = New StreamReader(oArquivo)
            MsgBox("Ficheiro Aberto!")
            oArquivo.Close()
            oLeitura.Close()
        Catch ex As Exception
            MsgBox(Err.Description)
        End Try

    End Sub
 
Última edição:
Back
Topo