LIRE UN FICHIER TEXTE LIGNE PAR LIGNE EN VB.NET

Commentaire de jrbleboss le 14/03/2005 21:38:43

Pas mal pour les débutants. C'est bien !!!
Mais je suis étonné que cela n'existe pas deja, enfin je te crois.

Bonne prog!!!!!!!

JRB

Commentaire de nicolas22 le 15/03/2005 14:06:14

Jrb : Le code existe, mais je le trouve souvent bien long, bien mal documenté, et surtout, rarement inclut dans un try catch.
Je trouve que le try catch est obligatoire lorsqu'un logiciel a besoin d'une ressource extérieur.
Sinon, le code existe j'en ai trouvé plein (mais peu marchait réellement).

Commentaire de nicolas22 le 15/03/2005 15:31:00

tresorsdevie :
Effectivement c'est une autre façon de vérifier la condition de fin du fichier. on en apprend tous les jours.

J'avais effectivement vu ton source, et c'est un code très bien organisé et très performant. Peut être trop par rapport à ce que je viens de poster.

Ce code a pour but de permettre à des débutants de connaitre un code de lecture simple, je ne propose pas de macher le travail du programmeur apprentis (dont je fais partie), mais simplement de lui donner une clé. :)

C'est pourquoi cette fonction ne prend que 6 ou 7 lignes et pas plus. :)

Ton post m'a permis de mieux regarder ton code, et donc d'en apprendre encore sur les fichiers en vb ! Merci ! :) Vais m'en reservir c'est sûre.

Commentaire de tresorsdevie le 15/03/2005 15:35:03

nicolas22 : "Ton post m'a permis de mieux regarder ton code, et donc d'en apprendre encore sur les fichiers en vb ! Merci ! :) Vais m'en reservir c'est sûre."

c'est l'essentiel ;)
bonne continuation!

Commentaire de Amazing le 15/03/2005 18:40:39

Désolé ,nicolas22,mais :
Personellement,je ne pense pas que tout ton code soit un exemple à suivre  car:
tu assigne à la variable "ligne" une valeur pour ensuite verifié la condition " ligne <> "" ",
l'assignation de la variable -> c'est une ligne de trop
je rejoint le code de sebmafate:

Sub lectureFichier(ByVal fichier As String)

        Try
            Dim monStreamReader As New StreamReader(fichier) 'Stream pour la lecture
            Dim ligne As String ' Variable contenant le texte de la ligne

           do
                ligne = monStreamReader.ReadLine
                MsgBox(ligne)
                ' TRAITEMENT A EFFECTUER SUR LA LIGNE ICI
           Loop Until ligne Is Nothing            monStreamReader.Close()

        Catch ex As Exception
            MsgBox("Une erreur est survenue au cours de l'accès en lecture du fichier de configuration du logiciel." & vbCrLf & vbCrLf & "Veuillez vérifier l'emplacement : " & fichier, MsgBoxStyle.Critical, "Errueur lors e l'ouverture du fichier conf...")
        End Try

    End Sub
qui me semble plus un exemple à suivre

sinon,tout à fait d'accord sur l'utilisation du "try catch" ,c'a fait plus VB.NET :-)

pour le code de tresorsdevie:

Dim Maligne As StreamReader = New StreamReader(Monflux, System.Text.Encoding.ASCII)
il a utilisé un decodage en ASCII,(qui ne prend pas les caractère accentué d'un fichier texte ,sauf dans certain cas)

System.Text.Encoding.Default,serai peut-etre plus approprié

informatiquement votre

Amazing

Commentaire de sebmafate le 15/03/2005 19:25:19 administrateur CS

d'ailleur dans mon exemple C#... la syntaxe est fouireuse (honte à moi :()

while ((line = sr.ReadLine()) != null) {
...
}

Séb

Commentaire de jadot le 22/03/2005 08:45:14

La methode avec EOF existe toujours non ?
Je l'utilise toujours :-)
Le code suivant fonctionne en VB.net chez moi.
Quelqu'un peut-il me dire ce qu'il a de mauvais ?
Merci.

    Sub lectureFichier(ByVal fichier As String)
        Dim ligne As String ' Variable contenant le texte de la ligne

        FileOpen(1, fichier, OpenMode.Input)
        While Not EOF(1)
                 ligne = LineInput(1)
                 ' TRAITEMENT A EFFECTUER SUR LA LIGNE ICI
        End While
        FileClose(1)

    End Sub

Commentaire de sebmafate le 29/03/2005 09:32:24 administrateur CS

.Net fournit des classes spécifiques et optimisé pour l'accès aux fichiers.
De plus, elles sont plus fidèles au modèle objet.

Maintenant, ton code est correct en VB6.

Commentaire de w_a_mag le 21/04/2005 22:08:11

je suis un débutant avec le vb
je creer une application et j ai besoin d' aide C-V-P
je ve le code d'une bouton ajout pour ajouter un element  dans un fichier
merci

Commentaire de bam_soft le 15/02/2006 10:49:19

je cherche un code qui fait "lecture fichier texte"
BEN AMMAR Mohamed I4 2006

Commentaire de ankou22 le 15/05/2007 11:07:11

Merci Amazing pour ta remarque sur les caractères accentuées qui ne sont pas pris en compte avec :

Dim Maligne As StreamReader = New StreamReader(Monflux)

ou

Dim Maligne As StreamReader = New StreamReader(Monflux, System.Text.Encoding.ASCII)

Mais qui le sont avec :

Dim Maligne As StreamReader = New StreamReader(Monflux, System.Text.Encoding.Default)

Commentaire de gh2005 le 08/03/2008 21:19:03

Vous êtes tous très fort, mais côté VB.NET, je me contente de m'instruire.
Alors, les mêmes excellents conseils, mais pour les
  FICHIERS DIRECTS (sans problème en VB6)
raviraient le vieil homme que je suis... devenu.
Merci à tous !
Nestorius

Commentaire de ZLASSI le 09/10/2008 09:50:50

Bonjour à tous,

Quelqu'un peut m'aider à faire concaténer deux fichiers txt dans un nouveau fichier txt?
le contenu de a.txt et b.txt seront deplacées dans c.txt

Merci d'avance