Les Snippets

Connexion

Récupérer une partie d'un fichier (ligne n à x)

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 06/11/2008 17:16:46 et initié par PCPT [Liste]
Date de mise à jour : 19/03/2009 19:33:23
Vue : 9682
Catégorie(s) : Fichier / Disque, Chaîne de caractères
Langages dispo pour ce code :
- VB6, VBA
- VB 2005
- Delphi 5
- VB 2005, VB 2008, VB.NET 1.x
- C# 1.x, C# 2.x, C# 3.x
- PHP 4, PHP 5
- Voir tous les langages pour ce code snippet



Langage : VB.NET 1.x , VB 2005 , VB 2008
Date ajout : 12/11/2008
Posté par Willi [Liste]
Public Function GetPartOfTextFile(ByVal path As String, ByVal StartMarkerLine As UInteger, ByVal EndMarkerLine As UInteger) As String 
 
        Dim szbTemp As New System.Text.StringBuilder 
 
        If StartMarkerLine > EndMarkerLine Then 
            Throw New Exception("Erreur dans les marqueurs de lignes début et/ou fin.") 
        End If 
 
        If System.IO.File.Exists(path) Then 
 
            Using fs As System.IO.FileStream = System.IO.File.OpenRead(path) 
                Using sr As New System.IO.StreamReader(fs) 
 
                    Dim uiMarker As UInteger = 0 
                    Dim sReadLine As String = String.Empty 
 
                    Do While sr.EndOfStream = False 
 
                        sReadLine = sr.ReadLine() 
                        uiMarker += 1 
 
                        If (StartMarkerLine <= uiMarker) AndAlso (EndMarkerLine >= uiMarker) Then 
                            szbTemp.AppendLine(sReadLine) 
                        ElseIf EndMarkerLine < uiMarker Then 
                            Exit Do 
                        End If 
 
                    Loop 
 
                End Using 
            End Using 
 
        Else 
            Throw New System.IO.IOException(String.Format("Le fichier {0} n'existe pas", path)) 
        End If 
 
        Return szbTemp.ToString() 
 
    End Function

Remarque :
Exemple:
Dim sTextpart as string= GetPartOfTextFile("C:\MonFichier.txt",3,10)

Snippets en rapport avec : Fichier, Lignes, Récupérer, Partie, Écart



Codes sources en rapport avec : Fichier, Lignes, Récupérer, Partie, Écart

{PHP} RÉCUPÉRER LE TYPE D'UN FICHIER (3 FONCTIONS DIFFÉRENTES)
Bonjour à tous, La plupart des gens pense que récupérer l'extension d'un fichier envoyé par form...

{Python} FONCTION COMPTER LE NOMBRE DE LIGNE
Bonjour, ma première fonction que je poste ... Pour les gros débutant (dont je fais parti) je pense ...

{Visual Basic, VB6, VB.NET, VB 2005} GETNAMES : RÉCUPÈRE ET ÉCRIT TOUS LES NOMS DE FICHIERS D'UN DOSSIER
J'ai fait ce petit programme tout simple, qui aurait pu être créé par n'importe quel débutant, car j...

{C / C++ / C++.NET} NOMBRE DE LIGNES ET DE COLONNES D'UN FICHIER
Voici ma première source, qui permet de trouver le nombre de colonnes et de lignes d'un fichier avec...

{Visual Basic, VB6, VB.NET, VB 2005} NTFS RECOVER : RÉCUPÉRER LES FICHIERS EFFACÉS D'UNE PARTITION NTFS
Ce code permet de récupérer les fichiers effacés de vos partitions NTFS. Pour cela, vous devez avoir...

{Visual Basic, VB6, VB.NET, VB 2005} SCRIPT EN VBS QUI DÉCOUPE UN FICHIER EN PLUSIEURS FICHIERS DE X LIGNES.
Ce script permet de découper un fichier en plusieurs fichiers de x lignes. Je l'utilise assez souve...

{C / C++ / C++.NET} EDITER UN FICHIER BIT PAR BIT
Bonjout, J'ai récemment eu besoin d'éditer un fichier bit à bit mais ne trouvant pas de moyen de ...

{PHP} CHARGER DES DONNÉES DEPUIS UN FICHIER TXT DANS UNE BASE DE DONNÉE
le titre dit tout dejàs ce script utilise une base de données Mysql les requêtes pour la création ...

{Visual Basic, VB6, VB.NET, VB 2005} INSERER TOUT TYPE DE FICHIERS DANS ORACLE EN VB.NET
Ce petit code permet d'ajouter tout type de fichiers dans oracle et par la suite de les récupérer, l...

{C / C++ / C++.NET} FICHIER ALBUM MUSICAL
.............................................................................creer un fichier conten...