Lecture fichier texte avec objet fso (file system object)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 824 fois - Téléchargée 37 fois
Contenu du snippet
Il y a une méthode simple pour ouvrir des fichiers textes, faire une boucle de lecture ligne par ligne pour mettre la totalité du fichier dans un STRING. L'inconvénient c'est la lecture de fichier très long, + de 100Ko, la routine occupe le système tant que la boucle n'est pas terminée.
Le code suivant utilise le File System Object, facilitant l'accès au système de fichier (Disque, répertoire, fichier...) accessible avec la référence Microsoft Scripting Runtime (SCRRUN.DLL).
Ce code est tiré d'un petit programme permettant la suppression d'une partie de fichier DXF.
Si la méthode de suppression vous intéresse, demandé le moi!
Le code suivant utilise le File System Object, facilitant l'accès au système de fichier (Disque, répertoire, fichier...) accessible avec la référence Microsoft Scripting Runtime (SCRRUN.DLL).
Source / Exemple :
Dim FileBuffer1 As String
Function ReadTxT(Chemin As String, Fichier As String)
Dim VarBuffer As String
' Création de l'objet FSO
Dim ObjetText As New FileSystemObject
' Variable type fichier
Dim Fil As File
' Variable TextStream du FSO
Dim TStreamText As TextStream
Set ObjetText = CreateObject("Scripting.FileSystemObject")
ObjetText.OpenTextFile (Chemin + Fichier)
Set Fil = ObjetText.GetFile(Chemin + Fichier)
Set TStreamText = Fil.OpenAsTextStream(ForReading)
' Copie la totalité du fichier dans un string (retour chariot et saut de ligne compris)
VarBuffer = TStreamText.ReadAll
' Ferme le fichier
TStreamText.Close
' Efface la valeur précédente de la fonction ReadTxT
ReadTxT = vbNullString
' Renvoie le texte complet du fichier
ReadTxT = VarBuffer
End Function
Private Sub Lecture
' Utilisation de la fonction lecture
FileBuffer1 = ReadTxT("C:\", "BootLog.txt")
End Sub
Conclusion :
Ce code est tiré d'un petit programme permettant la suppression d'une partie de fichier DXF.
Si la méthode de suppression vous intéresse, demandé le moi!
A voir également
- Filesystemobject vb.net
- Fso object codes - Meilleures réponses
- Vba lecture fichier texte - Conseils pratiques - Visual Basic / VB.NET
- Lecture fichier texte avec délimiteurs - Codes sources - Delphi / Pascal (Texte)
- Lecture fichier texte, prob avec les accents ✓ - Forum - VB.NET
- Lecture fichier texte ✓ - Forum - VB.NET
- LECTURE FICHIER TEXTE SANS DÉLIMITEURS ✓ - Forum - Delphi / Pascal
Commentaires
- Messages postés
-
235
- Date d'inscription
- lundi 16 décembre 2002
- Statut
- Membre
- Dernière intervention
- 16 mai 2011
2serait-il possible d'avoir également le code de suppression.
Tout cela serait bien si tu pouvais mettre un exemple zippé sur le site.
Merci
Pour lire des fichiers sans boucles c'est encore plus facile comme ca :
Function ReadTxT(Chemin As String, Fichier As String) As String
Open Chemin & Fichier For Input As #1
ReadTxT = Input(LOF(1), #1)
Close #1
End Function
Private Sub Lecture()
Dim FileBuffer1 As String
FileBuffer1 = ReadTxT("C:", "BootLog.txt")
End Sub
Function ReadTxT(Chemin As String, Fichier As String) As String
Open Chemin & Fichier For Input As #1
ReadTxT = Input(LOF(1), #1)
Close #1
End Function
Private Sub Lecture()
Dim FileBuffer1 As String
FileBuffer1 = ReadTxT("C:", "BootLog.txt")
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.