1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Lecture d'un fichier texte - tableau 1 dimension - inscription du fichier dans un textbox

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

0/5 (2 avis)

Snippet vu 12 774 fois - Téléchargée 20 fois

Commenter

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 1 Date d'inscription dimanche 14 mars 2010 Statut Membre Dernière intervention 9 août 2011
9 août 2011 à 19:22
svp où est ce que je dois mettre mon fichier Coord.txt
irsoy Messages postés 18 Date d'inscription mercredi 7 février 2007 Statut Membre Dernière intervention 4 juillet 2008
28 août 2007 à 07:25
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
S'inscrire maintenant

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.