Méthode AtEndOfStream

Renvoie True si le pointeur de fichier se trouve à la fin d'un fichier TextStream et False si ce n'est pas le cas. Lecture seule.

Syntaxe

object.AtEndOfStream

Arguments

object : requis. Toujours le nom d'un objet TextStream.

Remarques

La propriété AtEndOfStream s'applique uniquement aux fichiers TextStream ouverts pour lecture. Sinon, une erreur survient.

Les exemples de code suivants illustrent l'utilisation de la propriété AtEndOfStream :

Exemple 1 :

Function ReadEntireFile(filespec)
    Const ForReading = 1
    Dim fso, theFile, retstring
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set theFile = fso.OpenTextFile(filespec, ForReading, False)
    Do While theFile.AtEndOfStream <> True
        retstring = retstring & theFile.ReadLine
    Loop
    theFile.Close
    ReadEntireFile = retstring
End Function

' Usage
Dim fileContent
fileContent = ReadEntireFile("C:\Path\To\Your\File.txt")

Exemple 2 :

Function ReadUntilString(filespec, searchString)
    Const ForReading = 1
    Dim fso, theFile, line, foundString
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set theFile = fso.OpenTextFile(filespec, ForReading, False)
    foundString = False
    Do While theFile.AtEndOfStream <> True And foundString = False
        line = theFile.ReadLine
        If InStr(line, searchString) > 0 Then
            foundString = True
        End If
    Loop
    theFile.Close
    If foundString Then
        ReadUntilString = "String found: " & line
    Else
        ReadUntilString = "String not found."
    End If
End Function

' Usage
Dim result
result = ReadUntilString("C:\Path\To\Your\File.txt", "searchString")