Lecture d'un fichier texte - tableau 1 dimension - inscription du fichier dans un textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 344 fois - Téléchargée 19 fois

Contenu du snippet

J'ai cherché un code simple pour lire un fichier texte, le mettre dans un tableau pour mon Pocket PC. Voici un petit bout de code faisant cela.
En plus, j'ai mis le code pour l'affichier dans un textbox

Source / Exemple :


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

Conclusion :


Une partie de ce code est tiré du Livre pour programmer pour un PocketPC
http://www.pdafr.com/livre-pocket-pc-developpez-vos-jeux-utilitaires-avec-vb-14162.aspx

A voir également

Ajouter un commentaire

Commentaires

topdoc
Messages postés
2
Date d'inscription
dimanche 14 mars 2010
Statut
Membre
Dernière intervention
9 août 2011
-
svp où est ce que je dois mettre mon fichier Coord.txt
irsoy
Messages postés
19
Date d'inscription
mercredi 7 février 2007
Statut
Membre
Dernière intervention
4 juillet 2008
-
Il est plus simple:
--------------------

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.