Używanie kodu skryptu java w Mathematica

Sep 04 2020

Mam następujący plik HTML zapisany w „C: \ local.html”:

<html>
<head>
<script type="text/javascript">

function execute()
{
    const urlParams = new URLSearchParams(window.location.search);
    const param = urlParams.get('param');
    var text_box = document.getElementById("path_text");
    text_box.value = param;
}

</script>

</head>
<body onload="execute()">

<textarea id="path_text" rows="40" cols="80" style="font-size:75%"></textarea><br/>

</body>
</html>

Jeśli otworzę plik w przeglądarce internetowej, taki jak „file: /// C: /local.html? Param = Trochę interesującego tekstu” Mam stronę internetową z obszarem tekstowym zawierającym tekst „Ciekawy tekst”, który został przekazany do zmienna java-script by URL param.

Teraz chcę zaimportować ten sam plik do Mathematica z tym samym parametrem adresu URL, a następnie wyodrębnić zawartość textarea id="path_text"po wykonaniu skryptu java.

Poniższy kod

Import["file:///C:/local.html?param=some dfsf"]

wyświetla błąd „Nie znaleziono pliku”.

Poniższe dwa kody nie powodują błędów, ale również nie zawierają danych, na przykład kod skryptu java nie został wykonany lub / a parametr adresu URL nie został przekazany.

Import["file:///C:/local.html", 
 Parameters -> {"param" -> "Some interesting text"}]

Import["C:\\local.html", 
 Parameters -> {"param" -> "Some interesting text"}]

Jak zaimportować lokalny plik HTML z przekazanymi parametrami adresu URL do wykonanego skryptu java i skryptu java?

AKTUALIZACJA:

Korzystając z porad Flinty'ego, aby użyć StartWebSessioni WebExecutezorientowałem się, jak wyodrębnić zawartość z obszaru tekstowego za pomocą kodu java-script:

session = StartWebSession[Visible -> False];
WebExecute[
  "OpenPage" -> "file:///C:/local.html?param=Some interesting text"];
WebExecute[session, 
 "JavascriptExecute" -> 
  "return document.getElementById('path_text').value"]
DeleteObject[session]
Clear[session]

(*"Some interesting text"*)

Odpowiedzi

3 flinty Sep 04 2020 at 16:07

Mogę załadować stronę za pomocą przeglądarki Firefox i pobrać element. Ale nie sądzę, aby Wolfram zaimplementował wyodrębnianie atrybutów za pośrednictwem XPath. Używanie "JavascriptExecute"działa jednak.

session = StartWebSession[Visible -> False];
WebExecute[session, {
  "OpenPage" -> "file:///C:/local.html?param=some%20dfsf"
}]

(* here we try to get the element and it works *)
e = WebExecute[session, {
  "LocateElements" -> "XPath" -> "//*[@id='path_text']"
}]

(* here we try to get the .value attribute, but it won't work and returns {{}}.
 This XPath query doesn't even work in the Firefox console either. *)
a = WebExecute[session, {
  "LocateElements" -> "XPath" -> "//*[@id='path_text']/@value"
}]

(* we can try to execute js on the page to extract the attribute, this works *)
result = WebExecute[session, 
  "JavascriptExecute" -> "return document.getElementById('path_text').value"]

DeleteObject[session]