voila je souhaite pouvoir lire le contenu d'un fichier, récupérer le contenu
des deux premières lignes et les utilisés comme variable.
Savez vous comment procéder??
j'arrive à lire le contenu du fichier, mais je sais pas comment récupérer ce
contenu pour le réutiliser.
Merci
voici la fonction utilisée:(Self-access.com)
*********************************
Function FileRead2(ByVal strFile As String)
Dim fso As Scripting.FileSystemObject
Dim stm As Scripting.TextStream
Dim strTemp As String
'Créer une instance du FSO
Set fso = New Scripting.FileSystemObject
' Ouvrir le fichier en écriture
If Not fso.FileExists(strFile) Then
MsgBox "Le fichier [" & strFile & "] n'existe pas !", vbExclamation
Exit Function
End If
Set stm = fso.GetFile(strFile).OpenAsTextStream(ForReading)
While Not stm.AtEndOfStream
Debug.Print "Ligne " & stm.Line & " => ";
strTemp = stm.ReadLine
Debug.Print strTemp
Wend
' Libérer les objets
stm.Close
Set stm = Nothing
Set fso = Nothing
End Function
********************
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gafish
Bonjour,
Normalement dans le strTemp tu récupères ligne par ligne le contenu. Il suffit de mettre le contenu de ce strTemp dans une autre variable, ou tu mets directement le stm.ReadLine dans la variable que tu veux.
Arnaud
"mmb" a écrit dans le message news:
Bonjour à tous,
voila je souhaite pouvoir lire le contenu d'un fichier, récupérer le contenu
des deux premières lignes et les utilisés comme variable.
Savez vous comment procéder?? j'arrive à lire le contenu du fichier, mais je sais pas comment récupérer ce
contenu pour le réutiliser.
Merci
voici la fonction utilisée:(Self-access.com) ********************************* Function FileRead2(ByVal strFile As String) Dim fso As Scripting.FileSystemObject Dim stm As Scripting.TextStream Dim strTemp As String
'Créer une instance du FSO Set fso = New Scripting.FileSystemObject
' Ouvrir le fichier en écriture If Not fso.FileExists(strFile) Then MsgBox "Le fichier [" & strFile & "] n'existe pas !", vbExclamation Exit Function End If Set stm = fso.GetFile(strFile).OpenAsTextStream(ForReading)
While Not stm.AtEndOfStream Debug.Print "Ligne " & stm.Line & " => "; strTemp = stm.ReadLine Debug.Print strTemp Wend ' Libérer les objets stm.Close Set stm = Nothing Set fso = Nothing End Function ********************
Bonjour,
Normalement dans le strTemp tu récupères ligne par ligne le contenu. Il
suffit de mettre le contenu de ce strTemp dans une autre variable, ou tu
mets directement le stm.ReadLine dans la variable que tu veux.
Arnaud
"mmb" <mmb@discussions.microsoft.com> a écrit dans le message news:
B19A615B-8413-4582-A8FF-52E83DB15D72@microsoft.com...
Bonjour à tous,
voila je souhaite pouvoir lire le contenu d'un fichier, récupérer le
contenu
des deux premières lignes et les utilisés comme variable.
Savez vous comment procéder??
j'arrive à lire le contenu du fichier, mais je sais pas comment récupérer
ce
contenu pour le réutiliser.
Merci
voici la fonction utilisée:(Self-access.com)
*********************************
Function FileRead2(ByVal strFile As String)
Dim fso As Scripting.FileSystemObject
Dim stm As Scripting.TextStream
Dim strTemp As String
'Créer une instance du FSO
Set fso = New Scripting.FileSystemObject
' Ouvrir le fichier en écriture
If Not fso.FileExists(strFile) Then
MsgBox "Le fichier [" & strFile & "] n'existe pas !", vbExclamation
Exit Function
End If
Set stm = fso.GetFile(strFile).OpenAsTextStream(ForReading)
While Not stm.AtEndOfStream
Debug.Print "Ligne " & stm.Line & " => ";
strTemp = stm.ReadLine
Debug.Print strTemp
Wend
' Libérer les objets
stm.Close
Set stm = Nothing
Set fso = Nothing
End Function
********************
Normalement dans le strTemp tu récupères ligne par ligne le contenu. Il suffit de mettre le contenu de ce strTemp dans une autre variable, ou tu mets directement le stm.ReadLine dans la variable que tu veux.
Arnaud
"mmb" a écrit dans le message news:
Bonjour à tous,
voila je souhaite pouvoir lire le contenu d'un fichier, récupérer le contenu
des deux premières lignes et les utilisés comme variable.
Savez vous comment procéder?? j'arrive à lire le contenu du fichier, mais je sais pas comment récupérer ce
contenu pour le réutiliser.
Merci
voici la fonction utilisée:(Self-access.com) ********************************* Function FileRead2(ByVal strFile As String) Dim fso As Scripting.FileSystemObject Dim stm As Scripting.TextStream Dim strTemp As String
'Créer une instance du FSO Set fso = New Scripting.FileSystemObject
' Ouvrir le fichier en écriture If Not fso.FileExists(strFile) Then MsgBox "Le fichier [" & strFile & "] n'existe pas !", vbExclamation Exit Function End If Set stm = fso.GetFile(strFile).OpenAsTextStream(ForReading)
While Not stm.AtEndOfStream Debug.Print "Ligne " & stm.Line & " => "; strTemp = stm.ReadLine Debug.Print strTemp Wend ' Libérer les objets stm.Close Set stm = Nothing Set fso = Nothing End Function ********************
