0/5 (2 avis)
Snippet vu 12 774 fois - Téléchargée 20 fois
Imports System.IO Public Class Form1 Public AppPath As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim FichierTexte As String Dim i As Integer Dim Tableau(0) As String Try Dim ObjetFichier As StreamReader = New StreamReader(AppPath & "\Coord.txt") Do FichierTexte = ObjetFichier.ReadLine() If FichierTexte Is Nothing Then i = i - 1 Else If i = 0 Then ReDim Tableau(i) Else ReDim Preserve Tableau(i) End If Tableau(i) = FichierTexte End If If i = 0 Then TextBox1.Text = Tableau(i) Else TextBox1.Text = TextBox1.Text & vbCrLf & Tableau(i) 'vbCrLf = Changement de ligne End If i = i + 1 Loop Until FichierTexte Is Nothing ObjetFichier.Close() i = i - 1 Catch exc As Exception MsgBox("Fichier inexistant") End Try End Sub End Class
9 août 2011 à 19:22
28 août 2007 à 07:25
--------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FichSource As String = AppPath & "\Coord.txt"
Dim Tableau() As String = split(FichSource,VbCrlf)
end class
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.