Dictionary. Перейти на главную страничку сайта (список статей, файлы для скачивания) ФОРУМ (здесь можно обсудить эту статью, а также любые проблемы программирования на различных макроязыках и в скриптовых средах) Описание объектов Windows Script Host, их свойств и методов Содержание: 1.
Создание объекта2. 1. Пример: Set Dict = CreateObject("Scripting.Dictionary") 2. 2.1. Синтаксис: Count Возвращаемое значение: число, количество элементов коллекции. Быстрая сортировка. Псевдокод. quickSort ( массив a, верхняя граница N ) { Выбрать опорный элемент p - середину массива Разделить массив по этому элементу Если подмассив слева от p содержит более одного элемента, вызвать quickSort для него.
Если подмассив справа от p содержит более одного элемента, вызвать quickSort для него. } Реализация на Си. template<class T> void quickSortR(T* a, long N) { // На входе - массив a[], a[N] - его последний элемент. long i = 0, j = N; // поставить указатели на исходные места T temp, p; p = a[ N>>1 ]; // центральный элемент // процедура разделения do { while ( a[i] < p ) i++; while ( a[j] > p ) j--; if (i <= j) { temp = a[i]; a[i] = a[j]; a[j] = temp; i++; j--; } } while ( i<=j ); // рекурсивные вызовы, если есть, что сортировать if ( j > 0 ) quickSortR(a, j); if ( N > i ) quickSortR(a+i, N-i); } Каждое разделение требует, очевидно, Theta(n) операций. Однако, возможен случай таких входных данных, на которых алгоритм будет работать за O(n2) операций.
AlgoList - алгоритмы, методы, исходники. VBS script. Вот пример как из 2го листа example.xls берется столбец С и копируется в столбец B 3го листа example2.xls начиная со 2й строки.
Set objExcel1 = CreateObject("Excel.Application")'открываем example.xlsSet objWorkbook1 = objExcel1.Workbooks.Open ("C:\new\example.xls") Set objExcel2 = CreateObject("Excel.Application")'открываем example2.xlsSet objWorkbook2 = objExcel2.Workbooks.Open ("C:\new\example2.xls") 'открываем лист2 в example.xlsobjWorkbook1.Worksheets(2).Activate 'открываем лист 3 в example2.xlsobjWorkbook2.Worksheets(3).Activate 'в ячейке B1 пишем "Новый заголовок"objExcel2.Cells(1, 2).Value = "Новый заголовок" 'копируем в цикле столбец C из example.xls в столбец B example2.xls начиная со второй строки intRow = 2intRow = 2'если находим в столбце C пустое значение то завершаем циклDo Until objExcel1.Cells(intRow,3).Value = "" objExcel2.Cells(intRow, 2).Value = objExcel1.Cells(intRow, 3).Value intRow = intRow + 1Loop 'сохраняем example2.xlsobjWorkbook2.Save.
Серый форум / VBScript: Поиск и автозамена данных в .xls. Dmitrii пишет: Lucky пишет: ... заюзать скрипт не смог...
Почему? Начну по-порядку, база моих знаний в VBA - 3 недели семестровых занятий, но тем не менее теперь по нужде разобрался с подключением к проекту библиотеки Microsoft Scripting Runtime. В итоге запускаю - в ответ в полне логичное сообщение "Готово", но на деле в листе Excel все те же самые номера... Оказалось, что моих знаний пока недостаточно и для запуска онного скрипта, не говоря уж об анализе и конвертировании того, чего еще и не знаю ... применять этот код к сценарию внутри Excel-книги... Не могу понять эту фразу. Если обратили внимание, мой скрипт с поста #11 как раз и парсит текстовый файл txt, заменяя там все id-совпадения с ключа id.txt, но вот этим его функциональность и ограничивается. ... не могу пропарсить бинарный файл vbs-скриптом...
Вы пытаетесь обрабатывать рабочую книгу Excel, не имея самого приложения? Есть у меня MS Office, только вот хотелось бы провести все действия без него, а им уж только любоваться результатом. Просмотр темы - Скрипт для записи информации в Excel. Серый форум / VBS: Экспорт данных из книги Excel в таблицу б/д Access. NecroTYN пишет: Пошагово:1.
Получаем файл сметы *.xls и сохраняем его в нужной нам директории2. В программе Склад и торговля открываем таблицу заказы и заходим в ее подчиненную "Смета заказа", где в поле "Файл Сметы"(EstimatesFail) указываем путь к файлу Смета.xls Я правильно понимаю, дальше нажимается настраиваемая кнопка(форум Склад и торговля=>Скрипты VBS для экспорта и чтения), и скрипт закидывает данные в базу? Или скрипт запускается извне? Если честно, то не очень понятна структура БД. Не удержался, скачал и попробовал и 1-ую, и 2-ую ветку указанной программы - таких таблиц в демо-базе не нашел. Что до технической стороны, то всё просто. В качестве параметра скрипту передаётся ID выделенной строки главной(первый вариант) или подчинённой таблицы.
Правда параметр в скрипт передаётся со слэшом(легко убрать прямо в скрипте). Дальше всё банально - подключиться через ADO к MDB и XLS, считать данные в экселе и закинуть в MDB. dsb пишет: Нет, к сожалению не умеет А это не оно?