Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » IYA-1985
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
VBA импорт из TXT с перескоком через строку
 
#
31.03.2018 16:00:10
Апострофф, Супер! Благодарю, всё работает!
Пытаюсь разобраться как работает предложенный вами код. Так понимаю для первой строки считываем данные обрабатываем и потом три строки читаем в холостую?

И ещё не могу понять почему для "ХХХХ" UBound(Split(strTXTs(11), "X"))  будет равно 4? Как я понимаю после сплита не должно остаться массива, т.к. кроме Х-ксов там ничего нет.
 
Перейти    
VBA импорт из TXT с перескоком через строку
 
#
31.03.2018 13:26:19
если в колонке Флаг попадает четыре символа "Х" в первой строке, то читать не следующую а строку(т.е. вторую), а пятую.
если попадает два символа "Х" , то читать не следующую а строку(т.е. вторую), а третью
если попадает один символ "Х" , то читать следующую строку/
 
Перейти    
VBA импорт из TXT с перескоком через строку
 
#
31.03.2018 12:31:35
Доброе время суток!

Совсем новичок в VBA, по сути дела первый макрос без макрорекордера. Написал код для импорта из txt:
Но проблема в том что читает все строки из txt подряд, но в данных есть колонка Флаг и взависимости от данных в ней надо перепрыгнуть либо не на следующую строку, а дальше.

Не подскажите как это можно реализовать? Файлы во вложении

Код
Do While Not EOF(intFh)                                
     Line Input #intFh, strTXT                                                           
     strTXT = Replace((strTXT), "|MLD", ".MLD")
     strTXTs = Split(strTXT, "|")
           For j = 0 To 14
           Cells(i, j + 1) = RTrim(strTXTs(j))
           Next j
     i = i + 1
Loop  
 
Перейти    
Страницы: 1
Наверх