begin process at 2012 02 09 23:07:48
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VB.NET

 > 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


 Information sur la source



 Description

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

  • 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
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-deve loppez-vos-jeux-utilitaires-avec-vb-14162.aspx


 Sources de la même categorie

Source .NET (Dotnet) MODIFICATION DATE DE WINDOWS EN VB.NET ET VBA par us_30
Source avec Zip Source avec une capture Source .NET (Dotnet) ENVOI DE MAIL AVEC PIÈCE JOINTE par EhJoe
Source .NET (Dotnet) AMUSONS NOUS AVEC UN LABEL ^^ par Adn56
Source avec Zip Source avec une capture Source .NET (Dotnet) UN NAVIGATEUR INTERNET EN VB.NET par azrti
Source avec Zip Source .NET (Dotnet) CONVERSION DE DEVISE MONAITAIRE VIA UN SERVICE WEB par bigmonkey7

 Sources en rapport avec celle ci

Source .NET (Dotnet) DATATABLE EN MATRICE 2D par CGSI3
Source avec Zip Source avec une capture RECHERCHE DES FICHIERS PAR LEURS NOMS par hackoo
Source avec Zip Source avec une capture Source .NET (Dotnet) GESTION SIMPLE D'UNE BASE ACCESS par CGSI3
Source avec Zip SELECTIONS DANS UNE FEUILLE EXCEL PUIS CRÉATION DE NOUVELLES... par galaadspirit
Source .NET (Dotnet) COMPRESSION par amine_hassini

Commentaires et avis

Commentaire de irsoy le 28/08/2007 07:25:29

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

Commentaire de topdoc le 09/08/2011 19:22:00

svp où est ce que je dois mettre mon fichier Coord.txt

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Comment insérer un tableau ..... [ par Cassiopé ] Bonjour,Je suis présentement un cours en VB et j'ai fait un jeu de mémoire, il est fonctionnel à deux joueur mais je voudrais que le deuxième joueur s créer un tableau [ par maryem ] salut! je suis débutante en Vb et1- je voudrais savoir comment créer un tableau pour y stocker des valeurs constantes2- je voudrais savoir comment fa Comment trier un fichier ASCII ?? [ par Cesar ] Salut,Je voudrai trier un fichier ecrit par WRITE #1,xx,xx,xx,xx,xx,etc...Il contiens a peux pres 500 ligne sur 10 colonnes.Sinon, le moyen de trier u tableau de string [ par tobby ] qq sait comment declarer un tableau de string?du type array(20) of string,pour un tableau de 20 chaines de caracteres? graphique dynamique [ par tery ] salut a tous.j essaie de faire un genre de graphique dynamique mais je ne sais pas comment m y prendre.En gros, je pioche des valeurs contenu dans un Passage à une dll d'un tableau de chaines de caracteres [ par khelif ] J ai une function en C qui recupere un tableau de pointeurs sur chaine de caracteres (nom d'un fichier)En Vb je desire appeller cette fonction avectab Passage d'un tableau de byte à une fonction encapsulé dans un ACtiveX Dll [ par novik ] J'aimerai pouvoir passer un tableau de Byte a ma fonction (Activex Dll)lors de l'appel j'ai une erreur Type Mismatch.Or lorsque j'appelle cette foncti Comment faire un tableau [ par nox ] SalutJe souhaiterai faire un tableau qui se remplirai en fonction de selection faite dans un textbox par l'utilisateur et ensuite pouvoir l'afficher.V ReDim Preserve plante sur un tableau à dimension (VB4) [ par NoJhan ] J'essaie de changer la derniére dimension d'un tableau avec l'instruction : Redim Preserve Tableau(n,n,t)


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,170 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales