Metodo AtEndOfStream

Restituisce true se il puntatore del file si trova alla fine di un file TextStream; in caso contrario, restituisce false. Sola lettura.

Sintassi

object.AtEndOfStream

Argomenti

Object: obbligatorio. Sempre il nome di un oggetto TextStream.

Note

La proprietà AtEndOfStream si applica solo ai file TextStream aperti per la lettura. Negli altri casi, si verifica un errore.

Nel codice seguente viene illustrato l'uso della proprietà AtEndOfStream.

Esempio 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")

Esempio 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")