Открыть текстовый файл. Разделитель-символ псевдографики

[Timov]

Есть текстовый файл. В качестве разделителя используется символ 166 - вертикальная черта из псевдографики.
Включаю запись макроса, открываю файл. Все ОК.
Смотрю макрос. Вроде всё на месте.

Код: Выделить всё

Sub Макрос5()
    Workbooks.OpenText Filename:="H:\spl.txt", Origin:=xlMSDOS, StartRow:= _
        1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:="¦", FieldInfo:=Array(Array(1, 1 _
        ), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)) _
        , TrailingMinusNumbers:=True
End Sub

Пускю макрос. Фигушки. Файл открывается, но на колонки не делится. То есть одна строка файла в первой колонке.
Помогите, кто чем может.

[pronto]

Попробуй OtherChar:="¦" заменить на OtherChar:=Chr(124). 124 — код символа вертикальной черты.

[Timov]

Попробуй OtherChar:="¦" заменить на OtherChar:=Chr(124). 124 — код символа вертикальной черты.

Да не. Со 124 м символом полный ОК.
Я ошибся, говоря о 166 м символе. На самом деле речь идет о 179м символе - вертикальная черта из набора символов псевдографики.
Но, даже если написать

Код: Выделить всё

OtherChar:=Chr(179)

, результат не меняется.
Колонки появляются при таком раскладе

Код: Выделить всё

Origin:=1251
OtherChar:=Chr(179)

Гламурные, такие, колоночки, с кракозябрами. Но моим юзершам-капризулям не нравится.

[pronto]

Попробуй другие кодовые страницы: 866, 855, 852, 850...

[Timov]

Попробуй другие кодовые страницы: 866, 855, 852, 850...

MS-DOS(PC-8),866,850 пробовал. Это те, где русские буквы есть.

[pronto]

Кусок подопытного файла может упростить процесс поиска...

[Timov]

Вот он

[pronto]

Разделитель строк не 0D0A, а просто 0A. Такой разделитель строки текстовых файлов используется в Unix-системах. Очень может быть, что именно это является причиной некорректного поведения парсера в Excel'е... Как вариант, попробовать Origin:=xlMacintosh
Сумма:
- Разделитель колонок имеет код 179
- Кодировка 866
- Разделитель строк Unix-style 0A

P.S. Потыкался-потыкался и пришёл к выводу, что разделение на колонки не происходит из-за некорректной передачи/восприятия разделительного символа. Поменял в файле разделитель на знак равно "=" (можно попробовать запятую или точку с запятой) и макрос отработал нормально...

Код: Выделить всё

Workbooks.OpenText Filename:="E:\di PRONTO\spl179\spl179.txt", Origin:=866, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, _
Space:=False, Other:=True, OtherChar:="=", FieldInfo:=Array(Array(1, xlTextFormat), Array(2, xlTextFormat), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)), _
TrailingMinusNumbers:=True

[Timov]

Да, файл линуксовый. С ними заморочки бывают. Например, не работает построчное считывание из файла

Код: Выделить всё

Line Input #1, tmpstr

. Приходится затевать гемморой с посимвольным считыванием

Код: Выделить всё

nextchar = Input(1, #1)

.
Но в данном случае замена 0A на 0D+0A ничего не меняет.
Использование в качестве разделителя табуляции, ";" , '|' - chr(124) проблем не вызывает.
Я замечал и в других контекстах, что винда не адекватно относится к символам из второй половины таблицы DOSовской кодировки.
Такое ощущение, что смотрит она не номер символа, а на его графическое отображение.

[pronto]

Если обрабатываемый файл большой, то проще всего поменять символ-разделитель, а остальной разбор оставить Excel'ю:
1. Отрыть файл как двоичный;
2. Прочитать содержимое файла в байтовый массив;
3. Пройтись по массиву со сравнением If fBuffer(i) = 179 Then fBuffer(i) = 124;
4. Сохранить этот массив в новом файле.

[alex77755]

Как вариант макрос:

Код: Выделить всё

Sub QWERT()
    Dim A, NAME, R, S, RZ(), C
    NAME = ActiveWorkbook.Path & "\spl.txt"
  A = Split(Read_Text(NAME), Chr(10))
    S = UBound(Split(A(0), ChrW(9474)))
    ReDim RZ(UBound(A) - 1, S - 1)
    For R = 0 To UBound(A) - 1
    S = Split(A(R), ChrW(9474))
        For C = 0 To UBound(S) - 1
        RZ(R, C) = "'" & Trim(S(C))
    Next: Next
    Лист1.Range("A1").Resize(UBound(RZ) + 1, UBound(RZ, 2) + 1) = RZ
End Sub

Function Read_Text(Путь_К_Файлу) As String
    Dim oStream
    Dim S As String
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Type = 2
    oStream.Charset = "CP866"
    oStream.Open
    oStream.LoadFromFile Путь_К_Файлу
    Read_Text = oStream.ReadText
    oStream.Close
End Function

[alex77755]

вот файлы

[alex77755]

Или так. Правда не нравятся пробелы лишние в ячейках, но это не большая проблема убрать их в этом же макросе
поправил

Код: Выделить всё

Sub QWERT2()
    Dim A, NAME, R, S, RZ(), C
    NAME = ActiveWorkbook.Path & "\spl.txt"
    C = Read_Text(NAME)
    Do While InStr(1, C, "  ") > 0
        C = Replace(C, "  ", " ")
    Loop
    A = Split(Replace(C, ChrW(9474), ";"), Chr(10))
    Лист1.Cells.ClearContents
    Лист1.Range("A1").Resize(UBound(A) + 1) = Application.Transpose(A)
    Лист1.Range("A1").Resize(UBound(A) + 1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, Semicolon:=True, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 4), Array(4, 1), Array(5, 2), Array(6, 2), _
        Array(7, 2), Array(8, 1)), TrailingMinusNumbers:=True
End Sub

[Timov]

Ключевое слово здесь - ChrW(9474). С таким чудесным символом управился и с помощью банального

Код: Выделить всё

OpenText ... OtherChar:=ChrW(9474)...

Но у Вас красивше, конечно. Правда, не люблю я тексты с диска в массивы загонять. Но это от тяжёлого детства. Это по нынешним временам сто мегалитров..., пардон, мешков - на один зуб.
Но, по любому, спасибо. Хоть посмотреть как мастера ваяют.