|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.09.2011, 12:49 | #1 |
Новичок
Джуниор
Регистрация: 27.09.2011
Сообщений: 4
|
импорт данных из большого txt файла
День добрый!
Требуется написать скрипт, который бы вытаскивал из txt файла соответствие 2 чисел. В одну ячейку число, которое стоит после TS11&TELEPHON-, а в другую - число после BSNBC=TELEPHON- В файле попадаются строки, в которых нет этого сочетания значений (есть только BSNBC=TELEPHON-). Они не нужны. Фрагмент txt: PHP код:
9998887766 5554710050 9998887765 5554710823 Прошу помощи, знаний в VB 0 =\ Последний раз редактировалось Неологист; 28.09.2011 в 12:58. |
28.09.2011, 13:40 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Сделать не сложно. Задача простая и неинтересная.
И - или писать много, или (если писать мало) - можно вывих мозга получить Поэтому все молчат... Поищите у EducatedFool на сайте функции по работе с текстовыми файлами - открыть файл, читать построчно, анализировать строку на наличие подстрок (по Instr() или Like), выбрать нужные подстроки (по Instr() или Split()).
webmoney: E265281470651 Z422237915069 R418926282008
|
28.09.2011, 13:53 | #3 |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Насколько большой?
От этого зависит способ считывания
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
28.09.2011, 13:54 | #4 |
Новичок
Джуниор
Регистрация: 27.09.2011
Сообщений: 4
|
около 350Мб
|
28.09.2011, 13:58 | #5 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Я сразу сказал - построчно.
Было недавно - в массив/память (ReadAll) не влезало...
webmoney: E265281470651 Z422237915069 R418926282008
|
28.09.2011, 14:05 | #6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Кстати, можно попробовать вручную -
1.текст в Эксель (может 2007 прожуёт?) 2.разбить по столбцам по запятым. 3.отсортировать по B Увидите все нужные строки рядом, нужные ячейки можно вручную выбрать на другой лист, снова разбить, ну или прямо на месте...
webmoney: E265281470651 Z422237915069 R418926282008
|
28.09.2011, 14:20 | #7 |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Так я считывал по 400 метров:
Код:
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
28.09.2011, 14:24 | #8 |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Debug-и лучше сразу закоментить - быстрей будет
Ну и если результат влезет на лист
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
28.09.2011, 15:12 | #9 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
alex77755? , быстрее будет, если избавиться от And и ReDim Preserve.
От And - сделать вложенный If Then, а вот от Preserve... может сперва один раз прочитать файл и посчитать строки, сделать массив, а потом читать ещё раз уже отбирая данные? И кстати Application.Transpose тоже на больших количествах сбоит - лучше сразу делать двумерный массив и выгружать Resize'ом.
webmoney: E265281470651 Z422237915069 R418926282008
|
28.09.2011, 15:41 | #10 | |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Цитата:
Но считать надо же строки, удовлетворяющие условию!? всё равно проверять надо!? По свободе проверю.
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Импорт в эксел очень большого файла txt | danika24 | Microsoft Office Excel | 10 | 20.07.2011 16:34 |
импорт данных из excel в txt и из txt в excel | ESV | Microsoft Office Excel | 3 | 19.11.2010 10:29 |
Импорт данных из текстового файла | chobo | Microsoft Office Excel | 7 | 28.10.2010 14:29 |
импорт из txt, работа с массивом данных, экспорт в txt | Danara | Microsoft Office Excel | 4 | 31.03.2010 00:26 |
Импорт в базу данных из файла. | Stalkr | БД в Delphi | 7 | 12.11.2008 15:26 |