Bastien88
Messages postés25Date d'inscriptionlundi 3 novembre 2008StatutMembreDernière intervention24 janvier 2009
-
7 nov. 2008 à 14:44
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 2016
-
9 nov. 2008 à 12:19
Bonjour, je voudrais avoir un petit programme qui me permet de selectionné un fichier texte, puis que en appuyant sur OK cela affiche dans un Msgbox SEULEMENT la premiere ligne puis en cliquant sur le OK de la Msgbox cela affiche la deuxieme ligne et ainsi de suite. Quelqu'un peut m'aider svp?
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 7 nov. 2008 à 15:09
Salut ,
Je pense qu'avec un minimum de recherche tu aurais pu trouver ton bonheur assez rapidement. Et oui après tout ce que tu souhaites faire est assez simple.
Bref en espérant que tu travailles bien avec .NET ce qui suit est cadeau.(c'est vendredi après tout). A toi ensuite de l'adapter à tes besoins.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call ShowLineByLine
End Sub<hr />
Public Sub ShowLineByLine()
'déclaration
Dim FReader As System.IO.StreamReader
Dim ShosenFile As String = FileOpen("Choix Fichier", "All files (*.*)|*.*")
If System.IO.File.Exists(ShosenFile) Then
FReader = New System.IO.StreamReader(ShosenFile, System.Text.Encoding.GetEncoding("iso-8859-1"))
While Not FReader.EndOfStream
MessageBox.Show (FReader.ReadLine)
End While
End If
End Sub<hr />
Public Function FileOpen(ByVal sTitle As String, ByVal sFiltre As String) As String
Dim F As New System.Windows.Forms.OpenFileDialog
With F
.Title = sTitle
.Filter = sFiltre
.ShowDialog()
Return .FileName
End With
End Function<hr />, ----
[../code.aspx?ID=41455 By Renfield]