Серый форум — AHK: Записать данные с JS скрипта в таблицу Excel

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (teadrinker) — Sun, 24 Nov 2024 09:40:58 +0000

Не нужно каждый раз заново COM-объекты создавать.

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (Michael) — Sun, 24 Nov 2024 06:34:00 +0000

Разобрался сам, не знаю, насколько это колхозно, но работает на отлично.

SetWorkingDir %A_ScriptDir%
;URL1---------------------------------------------------------------

link := "https://hashrate.no/asics/ez100pro"
req := ComObjCreate("WinHttp.WinHttpRequest.5.1")
req.Open("GET", link)
req.Send()
html := req.responseText

book_name := "ASICS.xlsx"

myVar1 := regexmatch(html, "si)>Yield ETC<.+?(\$.+?) ", match)
myVar2 := RegExReplace(match1, "\$")
myVar3 := RegExReplace(myVar2, "i)\.", ",")

	xl1 := ComObjActive("Excel.Application")
	book1 := xl1.Workbooks(book_name)
	book1.worksheets(1).Range("G3").Value := myVar3


;URL2---------------------------------------------------------------

link := "https://hashrate.no/asics/L9"
req := ComObjCreate("WinHttp.WinHttpRequest.5.1")
req.Open("GET", link)
req.Send()
html := req.responseText

book_name := "ASICS.xlsx"

myVar1 := regexmatch(html, "si)>Yield DOGE<.+?(\$.+?) ", match)
myVar2 := RegExReplace(match1, "\$")
myVar3 := RegExReplace(myVar2, "i)\.", ",")

	xl1 := ComObjActive("Excel.Application")
	book1 := xl1.Workbooks(book_name)
	book1.worksheets(1).Range("G15").Value := myVar3

ExitApp

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (Michael) — Sun, 24 Nov 2024 04:35:19 +0000

teadrinker
Ссылки поправил в своих постах.

Я наверное некорректно выразился, ни 1 ссылка с несколькими страницами, а 3 ссылки, но сайт один и тот же.

URL 1: https://hashrate.no/asics/ez100pro
URL 2: https://hashrate.no/asics/x16p
URL 3: https://hashrate.no/asics/L7

Для примера 3 штуки, но фактически их будет больше 20.

Алгоритм получение данных везде одинаковый, кроме одного но: "Yield ETC", меняется на "Yield DOGE".

Соответственно для получение значения на 1 и 2 ссылках нужно:

regexmatch(html, "si)>Yield ETC<.+?(\$.+?) ", match)

А для третьей ссылки нужно:

regexmatch(html, "si)>Yield DOGE<.+?(\$.+?) ", match)

Также для каждого полученного значения с каждой ссылки нужна одинаковая обработка средствами RegExReplace, которую я писал выше:

RegExReplace(match1, "\$")
RegExReplace(myVar2, "i)\.", ",")

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (teadrinker) — Sun, 24 Nov 2024 03:38:30 +0000

Приведите ссылку с несколькими страницами. Заодно посмотрите, как ссылки оформлять.

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (Michael) — Sun, 24 Nov 2024 02:28:31 +0000

teadrinker
Поправил, извиняюсь. Не могли бы подсказать куда копать по последнему вопросу в предыдущем моем сообщении?

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (teadrinker) — Sun, 24 Nov 2024 01:21:35 +0000

Michael
Верните, пожалуйста, точки на их места. Смайлик точку не заменяет.

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (Michael) — Sun, 24 Nov 2024 00:22:01 +0000

Так. Мозг кипит.

Подытожу: мне удалось получить и преобразовать значение но нужного мне формата средствами AHK:

(Теперь он не только удаляет "$" перед цифрами, но и меняет точку на запятую, чтобы Excel мог работать с формулами).

link := "https://hashrate.no/asics/ez100pro"
req := ComObjCreate("MSXML2.XMLHTTP.6.0")
req.Open("GET", link)
req.Send()
html := req.responseText

document := ComObjCreate("HTMLfile")
document.Open()
document.write()
document.write(html)
document.Close()

book_name := "1.xlsx"

myVar1 := regexmatch(html, "si)>Yield ETC<.+?(\$.+?) ", match)
myVar2 := RegExReplace(match1, "\$")
myVar3 := RegExReplace(myVar2, "i)\.", ",")
myVar4 := myVar3

try
{   xl1 := ComObjActive("Excel.Application")
	book1 := xl1.Workbooks(book_name)
	book1.worksheets(1).Range("C4").Value := myVar4
}
catch
ExitApp

Вопрос: если страниц сайта несколько, а не одна как в примере выше, как правильнее это дело прописать? У меня не выходит... Работает только на 1 страницу.

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (Michael) — Sat, 23 Nov 2024 20:51:35 +0000

Malcev
Получилось! Большое спасибо!
Не подскажите еще как можно убрать символ "$" из получаемого значения перед отправкой его в excel?
И правильно ли я делаю если страниц несколько, просто дублирую код меняю ссылку и ячейку? (это работает корректно)

link := "https://hashrate.no/asics/ez100pro"
req := ComObjCreate("MSXML2.XMLHTTP.6.0")
req.Open("GET", link)
req.Send()
html := req.responseText

document := ComObjCreate("HTMLfile")
document.Open()
document.write()
document.write(html)
document.Close()

regexmatch(html, "si)>Yield ETC<.+?(\$.+?) ", match)

book_name := "1.xlsx"

try
{   xl := ComObjActive("Excel.Application")
	book := xl.Workbooks(book_name)

	book.worksheets(1).Range("C4").Value := match1
	MyVar := book.worksheets(1).Range("C4").Value
}
catch
	MsgBox, 262192, , % "Книга """ book_name """ не найдена!!"

link := "https://hashrate.no/asics/x16p"
req := ComObjCreate("MSXML2.XMLHTTP.6.0")
req.Open("GET", link)
req.Send()
html := req.responseText

document := ComObjCreate("HTMLfile")
document.Open()
document.write()
document.write(html)
document.Close()

regexmatch(html, "si)>Yield ETC<.+?(\$.+?) ", match)

book_name := "1.xlsx"

try
{   xl := ComObjActive("Excel.Application")
	book := xl.Workbooks(book_name)

	book.worksheets(1).Range("C5").Value := match1
	MyVar := book.worksheets(1).Range("C5").Value
}
catch
	MsgBox, 262192, , % "Книга """ book_name """ не найдена!!"
ExitApp

Update:
Получилось удалить символ $ из значения:


link := "https://hashrate.no/asics/ez100pro"
req := ComObjCreate("MSXML2.XMLHTTP.6.0")
req.Open("GET", link)
req.Send()
html := req.responseText

document := ComObjCreate("HTMLfile")
document.Open()
document.write()
document.write(html)
document.Close()

regexmatch(html, "si)>Yield ETC<.+?(\$.+?) ", match)
str1 := RegExReplace(match1, "\$*")

MsgBox % str1

ExitApp

Но не получается в основном скрипте, выдает совершенно другие цифры:

link := "https://hashrate.no/asics/x16p"
req := ComObjCreate("MSXML2.XMLHTTP.6.0")
req.Open("GET", link)
req.Send()
html := req.responseText

document := ComObjCreate("HTMLfile")
document.Open()
document.write()
document.write(html)
document.Close()

regexmatch(html, "si)>Yield ETC<.+?(\$.+?) ", match)
str2 := RegExReplace(match1, "\$*")

book_name := "1.xlsx"

try
{   xl := ComObjActive("Excel.Application")
	book := xl.Workbooks(book_name)

	book.worksheets(1).Range("C5").Value := str2
	MyVar := book.worksheets(1).Range("C5").Value
    book.save
}
catch
	MsgBox, 262192, , % "Книга """ book_name """ не найдена!!"

ExitApp

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (Malcev) — Sat, 23 Nov 2024 18:19:43 +0000

regexmatch(html, "si)>Yield ETC<.+?(\$.+?) ", match)
msgbox % match1

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (Michael) — Sat, 23 Nov 2024 11:40:12 +0000

Malcev пишет:

либо через ComObjCreate("HTMLFile")

Если я правильно понимаю, то он будет сохранять отдельным файлом всю страницу? А если страниц будет 5 и более, это не совсем удобно.

Malcev пишет:

Либо через регулярные выражения

Имеете ввиду RegExMatch?

Вот к примеру если через HTMLFile, получается так:

document := ComObjCreate("HTMLfile")
document.Open()
document.write()
document.write(html)
document.Close()

msgbox % document.getElementById("CloseCoinzillaSticky").innerText

Но как я сюда помещу весь JS для получения значения нужного?

Ведь для его получения нужно

const blocks = document.querySelectorAll('.block.deviceLink');

const revenue = Array.from(blocks).reduce((acc, block) => {
  const tokenElement = block.querySelector('.deviceHeader2 span[style*="font-size: 14px;"]');
  const token = tokenElement ? tokenElement.textContent.trim() : null;

  const revenueRow = Array.from(block.querySelectorAll('td')).find(td => td.textContent.trim() === 'Revenue');
  const revenueAmount = revenueRow 
    ? revenueRow.parentElement.previousElementSibling.textContent.trim() 
    : null;

  if (token && revenueAmount) {
    acc[token] = revenueAmount;
  }

  return acc;
}, {});

console.log(revenue);
console.log(revenue['ETC']);

Или есть какой-то иной способ вытащить нужное значение без этого js скрипта?

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (Malcev) — Sat, 23 Nov 2024 07:48:53 +0000

Либо через регулярные выражения, либо через ComObjCreate("HTMLFile").

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (Michael) — Sat, 23 Nov 2024 03:24:04 +0000

teadrinker

Пробую для теста просто получить все данные со страницы, там выводится начальная часть страницы (остальная думаю просто не помещается в окне)

url := "https://hashrate.no/asics/ez100pro"
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", url, true)
whr.Send()
whr.WaitForResponse(10)
msgbox, % whr.ResponseText

Посмотрел по коду странице в браузере, нужные мне данные в огромной строке по центру всего кода примерно:

 NiceHash

ETC  Ethereum Classic  Etchash
Ethereum Classic ETC
Algorithm Etchash
Volume $107446320
Emission $421643
Est. ROI 747 days
Ethereum Classic ETC
Algorithm Etchash
Volume $107446320
Emission $421643
Est. ROI 747 days
15.5 Gh/s 5.00 Mh/s/W 1.02 ETC
Hashrate ETC Efficiency ETC Yield ETC
3100 w
Power
74.4 kWh
Power 24h
0.41 $/kWh
Revenue/kWh
0.41 $/kWh
Rev. 24h/kWh
$30.53 
Revenue
$30.38 
Rev 24h
$26.07 
Profit
$25.91 
Profit 24h
BTN  Bitnet BTN  Ethash
Bitnet BTN BTN
Algorithm Ethash
Volume $943.0
Emission $667.5
Est. ROI 829 days
Bitnet BTN BTN
Algorithm Ethash
Volume $943.0
Emission $667.5
Est. ROI 829 days
15.5 Gh/s 5.00 Mh/s/W 283.9 BTN
Hashrate BTN Efficiency BTN Yield BTN
3100 w
Power
74.4 kWh
Power 24h
0.39 $/kWh
Revenue/kWh
0.37 $/kWh
Rev. 24h/kWh
$28.67 
Revenue
$27.80 
Rev 24h
$24.21 
Profit
$23.34 
Profit 24h
OCTA  OctaSpace  Ethash
OctaSpace OCTA
Algorithm Ethash
Volume $180181
Emission $16736
Est. ROI 834 days
OctaSpace OCTA
Algorithm Ethash
Volume $180181
Emission $16736
Est. ROI 834 days
15.5 Gh/s 5.00 Mh/s/W 20.65 OCTA
Hashrate OCTA Efficiency OCTA Yield OCTA
3100 w
Power
74.4 kWh
Power 24h
0.38 $/kWh
Revenue/kWh
0.37 $/kWh
Rev. 24h/kWh
$28.09 
Revenue
$27.68 
Rev 24h
$23.62 
Profit
$23.21 
Profit 24h
LRS  Larissa  Ethash
Larissa LRS
Algorithm Ethash
Volume $25989
Emission $763.5
Est. ROI 882 days
Larissa LRS
Algorithm Ethash
Volume $25989
Emission $763.5
Est. ROI 882 days
15.5 Gh/s 5.00 Mh/s/W 744.9 LRS
Hashrate LRS Efficiency LRS Yield LRS
3100 w
Power
74.4 kWh
Power 24h
0.36 $/kWh
Revenue/kWh
0.35 $/kWh
Rev. 24h/kWh
$26.52 
Revenue
$26.39 
Rev 24h
$22.06 
Profit
$21.93 
Profit 24h
NH-Etchash  NiceHash Etchash  Etchash
NiceHash Etchash NH-Etchash
Algorithm Etchash
NiceHash Etchash NH-Etchash
Algorithm Etchash
15.5 Gh/s 5.00 Mh/s/W 0.239 mBTC
Hashrate NH-Etchash Efficiency NH-Etchash Yield NH-Etchash
3100 w
Power
74.4 kWh
Power 24h
0.32 $/kWh
Revenue/kWh
0.15 $/kWh
Rev. 24h/kWh
$23.95 
Revenue
$11.19 
Rev 24h
$19.48 
Profit
$6.73 
Profit 24h

На странице (https://hashrate.no/asics/ez100pro) оно выглядит так:

Из этого кода мне надо вытащить $30.53, во первых тут каждый раз меняется сама сумма, во вторых периодически меняется в позиция в таблице на сайте для нужной монеты. Как именно искать то, то что постоянно меняется я не представляю. Сам текст ($30.53) окружен тегами, и в строке выглядит так $30.53 , но на сайте куча других значений окруженных такими же ближайшими тегами до и после.

UPDATE:
Как примерно найти именно нужное значение я понял.
Сначало нужно найти Yield ETC. Оно будет единственным на всей странице.
Далее от него найти третье совпадение по строке cellpadding='0' cellspacing='0'>XXXX где XXXX именно по третьему совпадению будет нужным мне значением.
Только вот как это реализовать, и возможно ли вообще, не представляю...

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (teadrinker) — Fri, 22 Nov 2024 15:24:59 +0000

Michael пишет:
Хотелось бы средствами AHK без запуска браузера
Ну вот, как вам правильно указали, гуглите примеры использования ComObjCreate("WinHttp.WinHttpRequest.5.1"). Если не справитесь, пишите, в чём были сложности.

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (Michael) — Fri, 22 Nov 2024 09:09:24 +0000

Malcev
Как вставить в excel примерно понятно:
book_name := "1.xlsx" try { xl := ComObjActive("Excel.Application") book := xl.Workbooks(book_name) MyVar := book.worksheets(1).Range("C4").Value MsgBox % MyVar book.worksheets(1).Range("C5").Value := "55555" MyVar := book.worksheets(1).Range("C5").Value MsgBox % MyVar book.close(true) xl.quit } catch MsgBox, 262192, , % "Книга """ book_name """ не найдена!!" ExitApp
А вот как нужное значение с сайта получить через ahk не понимаю.

Re: AHK: Записать данные с JS скрипта в таблицу Excel

null@example.com (Michael) — Fri, 22 Nov 2024 09:00:52 +0000

teadrinker пишет:
Если не будете открывать браузер, как тогда в нём скрипт запустите?
Хотелось бы средствами AHK без запуска браузера, горячая клавиша и ахк берет с нужного сайта текущее значение полученное JS.
teadrinker пишет:
Правильно ли я понял, что вы уже знаете, как передать значение из джаваскрипта в AHK-скрипт?
Не знаю... То есть вы предлагаете без JS полностью на AHK это реализовать?
Мне именно нужно без открытия браузера.

Algorithm	Etchash
Volume	$107446320
Emission	$421643
Est. ROI	747 days

15.5 Gh/s	5.00 Mh/s/W	1.02 ETC
Hashrate ETC	Efficiency ETC	Yield ETC

15.5 Gh/s	5.00 Mh/s/W	283.9 BTN
Hashrate BTN	Efficiency BTN	Yield BTN

15.5 Gh/s	5.00 Mh/s/W	20.65 OCTA
Hashrate OCTA	Efficiency OCTA	Yield OCTA

15.5 Gh/s	5.00 Mh/s/W	744.9 LRS
Hashrate LRS	Efficiency LRS	Yield LRS

15.5 Gh/s	5.00 Mh/s/W	0.239 mBTC
Hashrate NH-Etchash	Efficiency NH-Etchash	Yield NH-Etchash