Макрос для извлечения значений из txt файла

Имеется файл текстовый с примерным содержанием

Начало файла
Список злостных дядек за 2010
по Российской Федерации
.
________________________________________ _______
| цу| пп | гд | ВВ | зз | уу | ув | ыва| уке |
________________________________________ _______
| 12 | 13 | 1 | 8 |фпук |2.2.3| 21| 85 | |
| 12 | 23 | 1 | 8 |упукп|1.5.8| 25 | 23 | |
| 12 | 41 | 1 | 8 |прьпр|5.2.6| 63| 65 | |
| 12 | 46 | 1 | 8 |рьпрь|4.5.3| 89| 24| |
| 12 | 11| 1 | 8 |перь |1.6.9| 43 | 42 | еку |
| 12 | 673| 1 | 8 | прь |8.7.3| 52 | 63 | |
| 12 | 65 | 1 | 8 |еке |3.2.6| 57 | 53 | |
| 12 | 20| 1 | 8 |уке |2.5.9| 42 | 33 | |
| 12 | 34 | 1 | 8 |апр |1.2.5| 65| 85 | |
________________________________________ _______

В отчёте много строк, а конкретно столько
Конец файла

В этом файле нужно сложить цифирьки в пятом столбце "ыва" и вывести сумму в первой ячейке, а во второй сколько чисел было сложено, или наоборот

0

А пример файла?

0

вот такое примерное содержание файла

Вложения

tmp.txt (4.1 Кб, 322 просмотров)

0

Подойдет так?

Вложения

Мкр.xls (26.0 Кб, 547 просмотров)

0

Сообщение от Vlanib Подойдет так?

Спасибо! для небольшого файла всё читается нормально, а вот в файле который "боевой" выдаёт ошибку, так как в нём больше 200тысячь таких строк. i остановилось на значении 32767

0

В 2003 Excele всего 65536 строк. Даже если объявить i как long, то 65 тыщ должен отсчитать. Надо тогда другой подход искать, сильно велик у тебя файлик. Я пока не готов выдать решение. Может у кого другого идеи появятся?

0

Ну как выход можно попробовать запустить макрос в 2007. Может и получится - у меня просто негде проверить. Ну а так надо вручную парсить текст, считать данные из массива, и только потом с Excel работать. Как то так.

0

если это надо сделать один раз, то можно примерно таксколько по времени будет считать 200000 строк, низнаю

1

Сообщение от ironegg если это надо сделать один раз, то можно примерно так Visual Basic 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Sub b() Dim s As Currency Open "D:tmp.txt" For Input As #1 Debug.Print Time Do While Not EOF(1) Input #1, strValue If n > 6 Then     a = Split(strValue, "|")     If a(0) = "" Then         s = s + CCur(Replace(Trim(a(8)), ".", ","))         m = m + 1     End If Else     n = n + 1 End If Loop Close #1 Debug.Print Time MsgBox "îáùèé îñòàòîê " & s & Chr(13) & "êàäðîâ " & m End Sub сколько по времени будет считать 200000 строк, низнаю

Ошибка
Run-time error '9':
Subscript out of range

жёлтым выделяется вот эта строчка
у меня стоит Excel 2007

0

Так если у тебя 2007 офис, то какие проблемы? В первом варианте при объявлении переменных замени i as Long и запускай. Должно всё отработать.

1

Сообщение от Vlanib Так если у тебя 2007 офис, то какие проблемы? В первом варианте при объявлении переменных замени i as Long и запускай. Должно всё отработать.

Да, заработало, суммируется, спасибо!

Добавлено через 51 секунду
а макрос что выложил ironegg как справиться с ошибкой

0

У меня вариант ironegg работает, ну естественно с заменой
Всё считает, по крайней мере с усеченным вариантом строк.

0

с усечённым вариантом у меня тоже считается

0

проверь отладчиком, где останавливается код (в переменной m содержится количество обработанных строк). если в начале, выложи начало боевого файла, если в конце - конец. ну вдруг если в середине... попробуй нужное место найти и выложить его.
так же сообщи какое конкретно выражение из этой строки возвращает ошибку (например поместив в окно Watch выражение )
скорее всего дело в неожиданной комбинации символов в боевом файле

0

Сообщение от ironegg проверь отладчиком, где останавливается код (в переменной m содержится количество обработанных строк). если в начале, выложи начало боевого файла, если в конце - конец. ну вдруг если в середине... попробуй нужное место найти и выложить его. так же сообщи какое конкретно выражение из этой строки возвращает ошибку (например поместив в окно Watch выражение Visual Basic 1 2 3 a(8) 'или CCur(Replace(Trim(a(8)), ".", ",")) ) скорее всего дело в неожиданной комбинации символов в боевом файле

когда поместил в окно Watch a(8) там появился следующий текст subscript out of range

0

в массиве нет элемента под номером 8? без нужного кусочка файла не разобраться. скорее всего в конце файл затерялся лишний знак "|". или его не хватает в кокой то строчке в таблице

1

нашёл я строчку в которой ошибка, но почему-то на мой взгляд в ней всё нормально

Добавлено через 2 минуты
а нет есть отличие в пятом поле имеется запятая

Добавлено через 8 минут
убрал зяпятую и всё заработало, спасибо! VBA это удивительно, это я сейчас радуюсь как младенец погремушке, а что будет со мной когда такие макросы я смогу писать самостоятельно

0

Сообщение от Repa_M ... VBA это удивительно, это я сейчас радуюсь как младенец погремушке, а что будет со мной когда такие макросы я смогу писать самостоятельно

Чё то улыбнуло. Дежавю.

0

задался задачей посложнее, в похожем файле txt
в столбце "вид" присутствуют цифры 43 и 45 они определяют нужность строки с данными, из которой нужно взять значение "филиал" и "остаток"
вот как бы сделать так чтоб напротив каждого филиала выводилась сумма и количество этих сумм. причём сумма указывалась в диапазонах от 1тысячи до 30, от 30 до 300, от 300 и выше

0

файлик

Вложения

tmp.7z (9.0 Кб, 61 просмотров)

0