[VB.NET] Lire un fichier et l'affaire dans un TextBox -Deb-

Version imprimable

Bonjour,

Je suis débutant en VB.net. J'ai fais un OpenFileDialog et je souhaite qu'il ouvre un fichier ouvert avec ce dialogue et qu'il l'affiche dans un TextBox
Code:

1 2 3 4 5 Private Sub OpenFile_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFile.FileOk Dim sr As StreamReader sr = New StreamReader(OpenFile.OpenFile) TextBox1.Text = sr End Sub
Mais il me renvoie l'erreur

Citation:

Value of type 'System.IO.StreamReader' cannot be converted to 'String'.

Quelqu'un a une idée ? Merci

16/01/2006, 15h35
freddyboy

je suis désolé mais j'ai pas bien compris ce que tu veux faire ...:koi:

@+

Salut,
Tu utilises un StreamReader pour lire les informations contenues dans un fichier. Mais ce n'est pas du tout un objet de type String qui peut etre affiché directement dans une textbox ou ailleurs.

Voici un exemple de MSDN qui te montre comment afficher le contenu d'un fichier ouvert grace a un objet StreamReader :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Imports System
Imports System.IO
 
Class Test
    Public Shared Sub Main()
        Try
            ' Create an instance of StreamReader to read from a file.
            Dim sr As StreamReader = New StreamReader("TestFile.txt")
            Dim line As String
            ' Read and display the lines from the file until the end 
            ' of the file is reached.
            Do
                line = sr.ReadLine()
                Console.WriteLine(Line)
            Loop Until line Is Nothing
            sr.Close()
        Catch E As Exception
            ' Let the user know what went wrong.
            Console.WriteLine("The file could not be read:")
            Console.WriteLine(E.Message)
        End Try
    End Sub
End Class

En effet. Merci de ton aide.

Pour les intéressé voici mon code

Code:

1
2
3
4
5
6
7
Private Sub OpenFile_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFile.FileOk
        Dim sr As StreamReader
        Dim sLine As String
        sr = New StreamReader(OpenFile.OpenFile)
        sLine = sr.ReadLine()
        TextBox1.Text = sLine
    End Sub

16/01/2006, 16h29
graphicsxp

De rien. Pourrais tu cliquer sur le tag résolu et également mettre ton code dans des balises Code s'il te plait. Merci.
16/01/2006, 16h29
FeaR

J'ai un autre problème.

Pour commencer, je souhaite crée un mini notepad comme premier logiciel. Donc j'explique.. Avec le code que tu m'as fourni, il ne lis que la première ligne du fichier.

Après il n'affiche plus rien.

Quelqu'un a une idée?

Merci

J'ai trouvé la solution tout seul... Il suffit de remplace ReadLine par ReadToEnd.

Code:

1
2
3
4
5
6
7
8
Private Sub OpenFile_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFile.FileOk
        Dim sr As StreamReader
        Dim sw As StreamWriter
        Dim sLine As String
        sr = New StreamReader(OpenFile.OpenFile)
        sLine = sr.ReadToEnd
        TextBox1.Text = sLine
    End Sub

Voila, avis au intéressé :)

16/01/2006, 19h11
neguib

ok mais attention tu n'as pas ecrit la liberation du flux

et n'oublies pas le bouton :resolu: en bas à gauche :wink: