Comment lire les 10 premières ligne en visual basic expres 2010
Fermé
jennyfer92
Messages postés
10
Date d'inscription
jeudi 17 janvier 2013
Statut
Membre
Dernière intervention
22 janvier 2013
-
18 janv. 2013 à 00:12
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 - 22 janv. 2013 à 12:14
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 - 22 janv. 2013 à 12:14
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 download - Télécharger - Langages
- Microsoft 365 basic - Guide
- Vente en ligne particulier - Guide
- Clé windows 10 gratuit - Guide
2 réponses
Heliotte
Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
92
18 janv. 2013 à 10:03
18 janv. 2013 à 10:03
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~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
jennyfer92
Messages postés
10
Date d'inscription
jeudi 17 janvier 2013
Statut
Membre
Dernière intervention
22 janvier 2013
22 janv. 2013 à 10:41
22 janv. 2013 à 10:41
merci beaucoup, cela fonctionne effectivement
Heliotte
Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
92
22 janv. 2013 à 12:14
22 janv. 2013 à 12:14
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.
