Discussion :

[FeaR]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Quelqu'un a une idée ? Merci

[freddyboy]

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

@+

[graphicsxp]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[FeaR]

En effet. Merci de ton aide.

Pour les intéressé voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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

[FeaR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[neguib]

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

et n'oublies pas le bouton en bas à gauche