Discussion :

[MagicFazer]

Bonjour,

J'aimerai ouvrir et afficher un fichier txt dans une Textbox.
En VB ce code fonctionnait bien :

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
Show
  'Open "c:\temp\test.txt" For Input As #1
  texte1.Text = Input$(LOF(1) - 1, #1)
  Close #1
End Sub

En VB.NET j'ai essayé ça sans résultat !

Code :

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

1
2
3
4
5
6
7
8
9
Imports System.IO
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If System.IO.File.Exists("c:\temp\test.txt") Then
            TextBox1.Text = IO.File.ReadAllText("c:\temp\test.txt")
        End If
    End Sub
End Class

Merci pour votre aide.

[ACIVE_CS]

Bonjour,
Tu peux essayer ce code (par exemple):

Code :

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

1
2
3
4
5
6
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Multiline = True
        TextBox1.Height = 100
        Dim Str As System.IO.StreamReader = New System.IO.StreamReader("c:\Test.txt")
        TextBox1.Text = Str.ReadToEnd
    End Sub

A +

[WisperDarkness]

Bonjour

essaie comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        'on déclare "lecteur" nouveau streamreader
        Dim lecteur As StreamReader = New StreamReader("c:\ton_fichier.txt")
        'on déclare "ligne" chaine de caractère
        Dim ligne As String
        Do
            ligne = lecteur.ReadLine()
            listbox1.items.Add(ligne)
        Loop Until ligne Is Nothing
 
        'On ferme la lecture du fichier
        lecteur.Close()

EDIT : grillé par ACIVE_CS

[ACIVE_CS]

Encore plus simple :

Code :

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

TextBox1.Text = System.IO.File.ReadAllText("c:\test.txt")

[MagicFazer]

J'ai essayé les divers solutions, ça fonctionne bien sauf celle de WisperDarkness

Merci à vous !

[wallace1]

Bonsoir bien que la méthode ReadAllText reste la plus simple il est possible de lire ligne par ligne comme ceci :

Code :

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

1
2
3
4
5
6
7
 
   Using sr As New StreamReader("C:\YourTxtFileHere.txt")
            Do While sr.Peek() >= 0
                TextBox1.Text &=  sr.ReadLine() & vbNewLine
            Loop
            sr.Close()
        End Using

L'avantage tient dans la possibilité de modifier au préalable le contenu de la ligne avant qu'elle ne soit ajoutée à la TextBox come ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
    Dim iCount% = 0
        Using sr As New StreamReader("C:\YourTxtFileHere.txt")
            Do While sr.Peek() >= 0
                iCount += 1
                TextBox1.Text &= (If(iCount <= 9, "0" & iCount.ToString, iCount.ToString)) & " | " & sr.ReadLine() & vbNewLine
            Loop
            sr.Close()
        End Using

A+

[ACIVE_CS]

Bonsoir Wallace et Fazer,

Oui... Si l'on a le besoin d'analyser ligne par ligne c'est très bien, sinon on a encore une autre manière de le lire de cette façon :

Code :

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

1
2
3
4
5
   For Each line As String In System.IO.File.ReadLines("c:\test.txt")
            If Not line.Contains("episode") Then
                TextBox1.Text &= line & Environment.NewLine
            End If
        Next line

Te voilà avec un peu plus de possibilités.

A+