Comment lire les 10 premières ligne en visual basic expres 2010
jennyfer92
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
Heliotte Messages postés 1491 Date d'inscription Statut Membre Dernière intervention -
Heliotte Messages postés 1491 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
voila j'aimerais lire les dix premieres lignes d'un fichier texte
et pas l intégralité
je ne vois pas tropp comment m'y prendre
quelqu'un aurait il une idée ?
voila j'aimerais lire les dix premieres lignes d'un fichier texte
et pas l intégralité
je ne vois pas tropp comment m'y prendre
quelqu'un aurait il une idée ?
A voir également:
- Comment lire les 10 premières ligne en visual basic expres 2010
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Visual basic - Télécharger - Langages
- Partager photos en ligne - Guide
- Lire epub - Guide
- Clé d'activation windows 10 - Guide
2 réponses
Bonjour jennyfer92,
Voilà, le code pour lire les dix premières lignes d'un fichier texte.
- ne pas oublier d'inclure l'imports au début du document,
- l'appel peut s'effectuer comme ceci : LireFichierLigneParLigne(Chemin, Fichier),
- ici, j'ai ajouté une TextBox que tu peux nommé "TextBox3",
- C'est la boucle "For i" qui gère le nombre de ligne que tu veux lire:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Voilà, le code pour lire les dix premières lignes d'un fichier texte.
- ne pas oublier d'inclure l'imports au début du document,
- l'appel peut s'effectuer comme ceci : LireFichierLigneParLigne(Chemin, Fichier),
- ici, j'ai ajouté une TextBox que tu peux nommé "TextBox3",
- C'est la boucle "For i" qui gère le nombre de ligne que tu veux lire:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Imports System.IO
Private Sub LireFichierLigneParLigne(ByVal CheminFichier As String, ByVal NomFichier As String)
TextBox3.Text = ""
Dim i As Integer = 1
Try
Using sr As New StreamReader(CheminFichier & NomFichier)
Dim LigneLue As String = ""
For i = 1 To 10
LigneLue = sr.ReadLine
TextBox3.Text = TextBox3.Text & LigneLue & vbNewLine
Next i
End Using
Catch e As Exception
TextBox3.Text = TextBox3.Text & "Le fichier ne peut être lu :" & vbNewLine & e.Message
End Try
End Sub~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
merci beaucoup, cela fonctionne effectivement
Bonjour jennyfer92,
Cela fonctionne mais si vous utilisez VB.Net comme dans votre autre message sur "comment renommer un fichier" .. il n'est peut-être pas adapté !
A voir surtout si vous l'utilisez régulièrement.
N'oubliez pas de préciser qu'il s'agit de la version DotNet !!
@ très bientôt,
Heliotte.
Cela fonctionne mais si vous utilisez VB.Net comme dans votre autre message sur "comment renommer un fichier" .. il n'est peut-être pas adapté !
A voir surtout si vous l'utilisez régulièrement.
N'oubliez pas de préciser qu'il s'agit de la version DotNet !!
@ très bientôt,
Heliotte.