Propriedade TextFieldParser.EndOfData

Artigo
08/25/2010

Retorna True se não houver nenhuma linha a não ser em branco ou comentada entre a posição atual do cursor e o fim do arquivo.

' Usage
Dim value As Boolean = TextFieldParserObject.EndOfData
' Declaration
Public ReadOnly Property EndOfData As Boolean

Valor de retorno

Valor de propriedade

Boolean.

Comentários

Esta propriedade pode ser usada durante a leitura de arquivos para determinar o final dos dados que estão sendo lidos.

Tarefas

A tabela seguinte lista exemplos de tarefas envolvendo a propriedade EndOfData.

Para	Consulte
Ler de um arquivo delimitado	Como: Leitura de arquivos de texto delimitado por vírgulas no Visual Basic
Ler de um arquivo de largura fixa	Como: Leitura de Fixo-largura arquivos de texto no Visual Basic

Exemplo

Este exemplo usa a propriedade EndofData opata efetuar um loop por todos os campos no arquivo com o TextFieldReader, FileReader.

Dim StdFormat As Integer() = {5, 10, 11, -1}
Dim ErrorFormat As Integer() = {5, 5, -1}
Using FileReader As New _
Microsoft.VisualBasic.FileIO.TextFieldParser("C:\testfile.txt")
    FileReader.TextFieldType = FileIO.FieldType.FixedWidth
    FileReader.FieldWidths = StdFormat
    Dim CurrentRow As String()
    While Not FileReader.EndOfData
        Try
            Dim RowType As String = FileReader.PeekChars(3)
            If String.Compare(RowType, "Err") = 0 Then
                ' If this line describes an error, the format of the row will be different.
                FileReader.SetFieldWidths(ErrorFormat)
                CurrentRow = FileReader.ReadFields
                FileReader.SetFieldWidths(StdFormat)
            Else
                ' Otherwise parse the fields normally
                CurrentRow = FileReader.ReadFields
                For Each newString As String In CurrentRow
                    My.Computer.FileSystem.WriteAllText("newFile.txt", newString, True)
                Next
            End If
        Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
            MsgBox("Line " & ex.Message & " is invalid.  Skipping")
        End Try
    End While
End Using

Requisitos

Namespace:Microsoft.VisualBasic.FileIO

Classe:TextFieldParser

Assembly: Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)

Permissões

As seguintes permissões são necessárias:

Permissão	Descrição
FileIOPermission	Controla a habilidade de acesso a arquivos e pastas.Enumeração associada: Unrestricted.
SecurityPermission	Descreve uma série de permissões de seguranças aplicadas ao código.Enumeração associada: ControlEvidence.