Discussion :

[miya]

Bonjour aux forums

Tres simplement je lis dans un fichier et les informations récupérées, je voudrais pouvoir les insérer dans un textbox, j'ai donc créer cette fonction :

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
 
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        LectureFichierTexte("C:\fichier_log\log.txt")
 
    End Sub 
 
 Private Sub LectureFichierTexte(ByVal path As String)
        Try
 
            Dim sr As StreamReader = File.OpenText(path)
 
            Do While sr.Peek() >= 0
                TextBox1.Text = sr.ReadLine()
 
            Loop
            sr.Close()
 
        Catch e As Exception
            Console.WriteLine("The process failed: {0}", e.ToString())
        End Try
    End Sub

Et le probleme c'est qu'il n'insere rien du tout dans le textbox.

Comment faire ?
Il n'y a pas d'autre objet pour insérer des données et que l'on puisse modifier la saisie a l'écran ?

Cordialement.

[EMC51]

avec ton code, tu n'ajoutes que la dernière ligne de ton fichier !...

Si elle est vide c'est vide !

Code :

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

1
2
            Do While sr.Peek() >= 0
                TextBox1.Text = TextBox1.Text & sr.ReadLine() & vbCrLf

ce serait pas mieux ?...

Mets le en wrap et textmode en multiline

[miya]

ah sisi c'est mieux!

Merci, j'avais pas fait gaff

Cordialement

[miya]

Et si je voulais supprimer toute les données présente dans le fichier ?

[miya]

up du jour