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 - Télécharger - Langages
- Lire epub - Guide
- Partager photos en ligne - Guide
- Site de vente en ligne particulier - 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.