Compartir a través de

Procedimiento para leer archivos de texto de ancho fijo en Visual Basic

El TextFieldParser objeto proporciona una manera de analizar archivos de texto estructurados de forma fácil y eficaz, como registros.

La TextFieldType propiedad define si el archivo analizado es un archivo delimitado o uno que tiene campos de ancho fijo de texto. En un archivo de texto de ancho fijo, el campo al final puede tener un ancho variable. Para especificar que el campo al final tiene un ancho variable, defina para que tenga un ancho menor o igual que cero.

Para analizar un archivo de texto de ancho fijo

  1. Crear un nuevo TextFieldParser. El código siguiente crea el TextFieldParser objeto denominado Reader y abre el archivo test.log.

    Using Reader As New Microsoft.VisualBasic.
    FileIO.TextFieldParser("C:\TestFolder\test.log")

  2. Defina la TextFieldType propiedad como FixedWidth, definiendo el ancho y el formato. El código siguiente define las columnas de texto; el primero tiene 5 caracteres de ancho, el segundo 10, el tercero 11 y el cuarto es de ancho variable.

    Reader.TextFieldType =
Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
Reader.SetFieldWidths(5, 10, 11, -1)

  3. Recorra en bucle los campos del archivo. Si hay líneas dañadas, notifique un error y continúe el análisis.

    Dim currentRow As String()
While Not Reader.EndOfData
    Try
        currentRow = Reader.ReadFields()
        Dim currentField As String
        For Each currentField In currentRow
            MsgBox(currentField)
        Next
    Catch ex As Microsoft.VisualBasic.
                FileIO.MalformedLineException
        MsgBox("Line " & ex.Message &
        "is not valid and will be skipped.")
    End Try

  4. Cierre los While bloques y Using con End While y End Using.

        End While
End Using

Ejemplo

En este ejemplo se lee el archivo test.log.

Using Reader As New Microsoft.VisualBasic.FileIO.
   TextFieldParser("C:\TestFolder\test.log")

    Reader.TextFieldType =
       Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
    Reader.SetFieldWidths(5, 10, 11, -1)
    Dim currentRow As String()
    While Not Reader.EndOfData
        Try
            currentRow = Reader.ReadFields()
            Dim currentField As String
            For Each currentField In currentRow
                MsgBox(currentField)
            Next
        Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
            MsgBox("Line " & ex.Message &
            "is not valid and will be skipped.")
        End Try
    End While
End Using

Programación sólida

Las condiciones siguientes pueden provocar una excepción:

  • No se puede analizar una fila con el formato especificado (MalformedLineException). El mensaje de excepción especifica la línea que provoca la excepción, mientras que la ErrorLine propiedad se asigna al texto contenido en la línea.

  • El archivo especificado no existe (FileNotFoundException).

  • Situación de confianza parcial en la que el usuario no tiene permisos suficientes para acceder al archivo. (SecurityException).

  • La ruta de acceso del archivo es demasiado larga (PathTooLongException).

  • El usuario no tiene permisos suficientes para acceder al archivo (UnauthorizedAccessException).

Consulte también