Определить фиксированные ширины вручную в файле данных

Question

У меня есть файл данных фиксированной ширины от стороннего производителя, который содержит 1000 записей. Он поставляется с отдельным документом, который отображает все доступные столбцы, конец символа и длину символа для каждого столбца. В нем тысячи столбцов.

В моем файле данных нет данных в каждой строке, поэтому определение фиксированной ширины в Excel невозможно, поскольку я могу ошибочно пропустить столбец, потому что не вижу, что в нем есть данные.

Существует ли текстовый редактор, который позволяет вручную вводить / определять или импортировать ширину?

Answer 1

Как выглядит этот «отдельный документ»?Допустим, у меня есть текстовый файл со столбцом значений ширины для чтения, который выглядит примерно так:

20

25

30

10

5

23

25

10

23

Затем я могу прочитать значения из этого текстафайл в Excel, и отрегулируйте ширину столбцов моей электронной таблицы, используя следующий код VBA:

Sub colWidth()
    Dim widthArray() As String
    Dim myFile, textline As String
    Dim x, y As Integer


    'example text file containing column widths
    myFile = "C:\qqq\qqq\qqq\widths.txt"

    'loop through the file and store each column width in an array
    Open myFile For Input As #1
    x = 1
    Do Until EOF(1)
        Line Input #1, textline
        ReDim Preserve widthArray(1 To x)
        widthArray(x) = textline
        x = x + 1
    Loop
    Close #1

    'using the array of column widths to adjust columns
    For y = 1 To UBound(widthArray)
        Columns(y).ColumnWidth = Int(widthArray(y))
    Next y
End Sub