by Andrei48 » 14 May 2022, 18:39
Здравствуйте, имеется код который из браузера копирует в буфер обмена меняющиеся текст, а именно: "Всего: 5066; Сумма: 17559327.28; Выбрано: 0; Отфильтровано: 27; Сумма: 60486.51;" Из этого текста мне нужно скопировать цифру (она может быть однозначной, двухначной или трехзначной) после слова "Отфильтровано:" и вставить её в определенную ячейку таблицы в Exel, помогите пожалуйста с кодом.
Вот мой код:
Code: Select all
[#MaxThreadsPerHotkey 2
SetTitleMatchMode, 2
F3::
Toggle := !Toggle
If not Toggle
WinGetActiveTitle, Title
WinActivate, Журнал - Талоны - Iron ; (Активирует окно "ОМС")
MouseClick, left, 866, 174 ; (Нажали только свои)
Sleep, 200
MouseClick, left, 1130, 185 ; (Нажали поиск)
Sleep, 5000
MouseClickDrag, left, 30, 1020, 440, 1020, speed = 30 ; (Прокрутка вправо)
Sleep, 200
MouseClick, left, 1600, 440, ; (Нажали поиск подразделения)
Sleep, 200
SendInput, Поликлиника, Невского 25 ; (Вели поликлиника Невского, 25)
Sleep, 200
MouseClickDrag, left, 440, 1020, 290, 1020, speed = 30 ; (Прокрутка влево)
Sleep, 200
MouseClick, left, 190, 440, ; (Нажали цель талона)
Sleep, 200
SendInput, ДВ4 ; (Вели Диспансеризация I этап)
Sleep, 200
MouseClick, left, 1500, 440 ; (Нажали ФИО Врача)
Sleep, 200
SendInput, Чернышева Виктория Владимировна ; (Вели Чернышева Виктория Владимировна)
Sleep, 200
MouseClickDrag, left, 15, 1035, 630, 1035, speed = 30 ; (Выделение результатов)
Sleep, 200
Send, ^{vk43} ; (Скопировали текст)
WinActivate, Отчет по талонам.xlsx - Excel ; Активирует окно "Ексель"
Здравствуйте, имеется код который из браузера копирует в буфер обмена меняющиеся текст, а именно: "Всего: 5066; Сумма: 17559327.28; Выбрано: 0; Отфильтровано: 27; Сумма: 60486.51;" Из этого текста мне нужно скопировать цифру (она может быть однозначной, двухначной или трехзначной) после слова "Отфильтровано:" и вставить её в определенную ячейку таблицы в Exel, помогите пожалуйста с кодом.
Вот мой код: [Codebox=text file=Untitled.txt][#MaxThreadsPerHotkey 2
SetTitleMatchMode, 2
F3::
Toggle := !Toggle
If not Toggle
WinGetActiveTitle, Title
WinActivate, Журнал - Талоны - Iron ; (Активирует окно "ОМС")
MouseClick, left, 866, 174 ; (Нажали только свои)
Sleep, 200
MouseClick, left, 1130, 185 ; (Нажали поиск)
Sleep, 5000
MouseClickDrag, left, 30, 1020, 440, 1020, speed = 30 ; (Прокрутка вправо)
Sleep, 200
MouseClick, left, 1600, 440, ; (Нажали поиск подразделения)
Sleep, 200
SendInput, Поликлиника, Невского 25 ; (Вели поликлиника Невского, 25)
Sleep, 200
MouseClickDrag, left, 440, 1020, 290, 1020, speed = 30 ; (Прокрутка влево)
Sleep, 200
MouseClick, left, 190, 440, ; (Нажали цель талона)
Sleep, 200
SendInput, ДВ4 ; (Вели Диспансеризация I этап)
Sleep, 200
MouseClick, left, 1500, 440 ; (Нажали ФИО Врача)
Sleep, 200
SendInput, Чернышева Виктория Владимировна ; (Вели Чернышева Виктория Владимировна)
Sleep, 200
MouseClickDrag, left, 15, 1035, 630, 1035, speed = 30 ; (Выделение результатов)
Sleep, 200
Send, ^{vk43} ; (Скопировали текст)
WinActivate, Отчет по талонам.xlsx - Excel ; Активирует окно "Ексель"