Autoit поиск в excel
Обновлено: 08.07.2024
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.
| Конфигурация компьютера | |
| Процессор: Intel(R) Core(TM) i5-2500 CPU @ 3.30GHz, 3701 МГц, ядер: 4, логических процессоров: 4 | |
| Материнская плата: Gigabyte Technology Co., Ltd. BIOS American Megatrends Inc. F11, 21.08.2012 | |
| Память: G.Skill 4096 Мб (DDR3), Corsair 8192 Мб (DDR3) | |
| HDD: WDC WD10EALX-009BA0 ATA Device | |
| Видеокарта: NVIDIA GeForce GT 220 | |
| Звук: VIA Technologies, Inc. | |
| Монитор: Fujicom 200804220001 (23) | |
| ОС: Windows 10 Professional x64 |
| Нужно найти определенное значение в html коде загруженной страницы и сделать это найденное значение переменной » |
-------
“Сделай так просто, как возможно, но не проще этого.”. “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”
P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
Русское сообщество AutoIt | CreatoR's Lab | Opera AC Community
Creat0R, а можно ли разъяснить что сие значит? Ну с _INetGetSource все ясно. А вот "StringRegExpReplace" мне не понятно. И с "ConsoleWrite" тоже не до конца ясно, т.е. сама команда ясна, выдает данные в поток, но все же не ясно что это дает.
Суть функции "StringRegExpReplace" ясна примере с сайта AutoIt. Но не понятно для чего она в данной ситуации. Она заменяет указанные символы на необходимые.
Было бы хорошо если бы мне разжевали данную функцию и почему именно такие параметры. А то я в англ. не очень хорош чтобы читать офф. док.
Нужно обезличить десятки файлов офис (Excel, Word, PowerPoint) - заменить конкретные названия и фамилии на коды или кодовые названия. Таких пар замен может быть много - десятки и сотни (они будут готовы для использования в виде csv файлов или таблиц замен).
Скрипт должен уметь открывать файлы, брать оттуда пары строк для поиска и замены, открывать из окна эксплорера файлов windows 10 (либо по параметру целевой папки и всех подпапок) по очереди файлы ms-office, передавать открываемым приложениям команды поиска и замены (например Ctrl-H в excel), ждать окончания замены, переходить к новой паре и повторять пока не закончатся пары для поиска и замены, в конце - закрыть сохранив файл и переход к следующему.
Хочу в отдельном файле txt указывать списком в каких файлах нужно брать пары.
Помощь в написании контрольных, курсовых и дипломных работ здесь
Скрипт массовой замены в файлах .txt
Привет. Ребята помогите скриптом на питоне у меня на сервере есть директория и в ней еще с десяток.
Скрипт для замены текста в файлах
Ищу решение - как лучше реализовать замену определенного текста в текстовом файле? Файлы примерно.
Подскажите команды для поиска папок, файлов, текста в файлах и его замены
Доброго времени суток, интересует реализация скрипта,для 1.поиска файлов и папок с последущим их.
написание программы для поиска и замены части строк в двух текстовых файлах с разным синтаксисом
Здравствуйте! Последний раз программировал около 5 лет назад, на первых курсах колледжа. Забыл все.
Скрипт поиска и замены цвета текста
Ещё раз здравствуйте. Помогите со скриптом поиска и замены цвета текста белого на черный. Заранее.
Скрипт поиска и замены цвета ячеек
Добрый день. Помогите со скриптом поиска и замены цвета ячеек. Нужно найти все зеленые, желтые и.
Скрипт поиска и замены текста в файле
Всем привет! Помогите пожалуйста написать простой скрипт по поиску и замены текста в файле. Есть.
Выкидываю программку которая позволяет сделать выборку условию "Заполнено" или "Незаполнено" ячейка 5го столбика и поместить данные всей строчки в отдельный xls файл.
+ Добавка к реестрам создает пункт в контекстном меню мышки.
Opt("TrayIconDebug", 1)
Opt("WinTitleMatchMode", 2)
$sFile = @ScriptDir & "\KALDE ОПТ 2012-03-05.xls"
;получаем путь файла из командной строки
If $CmdLine[0] = 0 Then Exit
$sFile = $CmdLine[1]
;открываем в скрытом режиме
$fVisible = 0
;только для чтения
$fReadOnly = true
;открыть книгу
Local $oExcel = _ExcelBookOpen($sFile, $fVisible, $fReadOnly)
;столбец
$column = 5
;строка
$row = 1
;ПОИСКОВАЯ ЯЧЕЙКА
$search_cell = $oExcel.Activesheet.Cells($row, $column).Value
;
$search_cell = _ExcelReadcell($row, $column)
;запись положительного результата поиска
Local $write_row_num[$max_row +1]
;последняя запись положительного результата
$last_row_num = 1
if $search_cell <> "" and $search_cell <> " ----" then
;запись положительного результата поиска
$write_row_num[$last_row_num] = $row
;переход к следущей ячейке для записи результата
$last_row_num = $last_row_num + 1
EndIf
;переход к следующей ячейке для поиска в столбце
$row = $row + 1
$search_cell = $oExcel.Activesheet.Cells($row, $column).Value
until $row = $max_row +1
;
;путь к файлу2
$sFile2 = @ScriptDir & "\Print.xls"
;открываем в скрытом режиме файл2
$fVisible = 1
;только для чтения файл2
$fReadOnly = True
;открыть книгу 2
Local $oExcel2 = _ExcelBookOpen($sFile2, $fVisible, $fReadOnly)
;номер цикла
$num_loop = 1
do
;выделяем копируем строку книги1
$oExcel.ActiveSheet.Range("A"&$write_row_num[$num_loop],"F"&$write_row_num[$num_loop]).Select
$oExcel.Selection.Copy
;выделяем вставляем строку в книгу2
$oExcel2.ActiveSheet.Range("A"&$num_loop+2,"F"&$num_loop+2). Select
$oExcel2.ActiveSheet.Paste
;переходим к следущей строке цикла
$num_loop = $num_loop +1
;делаем до того как строка цикла будет равна последней записи заполненых ячеек
until $num_loop = _ArrayMaxIndex($write_row_num, 1)
;ширина колонки заказа
$zakaz_dl = " ."
_ExcelWriteCell($oExcel2, $zakaz_dl, 1, 5)
;выставляем формат и ширину заказа
$oExcel2.Columns('A:F' ).EntireColumn.AutoFit
$oExcel2.Columns('A:F' ).EntireColumn.Select
$oExcel2.Selection.Interior.ColorIndex = 0
;удаляем ненужные колонки
_ExcelColumnDelete($oExcel2, 1, 1)
_ExcelColumnDelete($oExcel2, 2, 1)
_ExcelColumnDelete($oExcel2, 4, 1)
;вписываем заказ от
$zakaz_ot = _ExcelReadCell($oExcel, 14, 1)
_ExcelWriteCell($oExcel2, $zakaz_ot, 3, 1)
;вписываем поле заметок
$zametki = _ExcelReadCell($oExcel, 1, 7)
_ExcelWriteCell($oExcel2, $zametki, 2, 1)
;вписываем название файла
dim $name_file = StringSplit(StringReplace($sFile, "\", @LF), @LF)
$name_file_short = "файл: "&$name_file[$name_file[_ArrayMaxIndex($name_file, 1)]]
_ExcelWriteCell($oExcel2, $name_file_short, 1, 1)
;убираем жирный шрифт
_ExcelFontSetProperties($oExcel2, 1, 1, $num_loop+1, 3, False, False, False)
MsgBox(4096, "Test", $name_file[$name_file[_ArrayMaxIndex($name_file, 1)]] )
;
Необходима помощь относительно создания калькулятора для вычисление даты окончания договора.
Задача состоит в следующем:
— Необходимо чтобы существовало поле в которое вводится дата заключения договора.
— На основании него будет выводится дата которая будет показывать дату окончания действия договора.
— Для каждого договора предусмотрен фиксированный срок действия "40 рабочих дней" после даты заключения договора (суббота, воскресенье, праздничные дни не учитываются).
- Так же предусмотреть календарь в котором можно задавать даты с субботами, воскресеньями и праздничными дни которые не будут браться в расчет
NIKZZZZ, если все заключается в подготовке календаря, то у меня есть в формате Excel готовый производственный календарь с 2018 по 2020 года. Все даты в нем, которые выделены цветом и полужирным тоном, относятся либо в выходным либо праздничным дням с переносом праздничных дней в будние дни.
NIKZZZZ можно еще раз по подробнее для "одаренных" по поводу формирования *.txt файла: в него вносим лишь даты которые относятся квыходных и праздничным дням или все даты с разбивкой по месяцам?
Для примера:
01.01.2019
05.01.2019
06.01.2019
07.01.2019
12.01.2019
13.01.2019
.
02.02.2019
03.02.2019
09.02.2019
10.02.2019
16.02.2019
.
02.03.2019
03.03.2019
08.03.2019
09.03.2019
и т.д.
01.01.2019
02.01.2019
03.01.2019
04.01.2019
.
01.02.2019
02.02.2019
03.02.2019
04.02.2019
Или же откорректировать уже имеющийся файл от Alex_Piggy? Огромное спасибо Alex_Piggy.
Alex_Piggy договора создаются и формируются в разработанной базе Access
Откорректирую и предоставлю файл от Alex_Piggy, оставив лишь не работающие дни.
NIKZZZZ Откорректировал файл от Alex_Piggy. Там в 2020 году было учтено 2 работающих дня.
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MonthCal1Begin
$sDateBegin = GUICtrlRead($MonthCal1Begin, 0)
$sDateEnd = CalcDateEnd($sDateBegin)
GUICtrlSetData($MonthCal1End, $sDateEnd)
EndSwitch
WEnd
NIKZZZ огромно спасибо за помощь. Протестировал, но выявилось, что подсчет осуществляет на один день больше.
Для примера договор заключен 11.07.2019г. с учетом срока действия договора 40 рабочий дней он должен заканчиваться 05.09.2019г.
А по на писаному скрипту фактическое окончания действия договора отображает - 06.09.2019. Как на скрине:
Добавлено:
Забыл сказать, что в:
Панель управления -> Язык и региональные стандарты -> "Дополнительные параметры. " -> вкладка "Дата"
Читайте также: