抱一线希望回到国内论坛请教: 如何用脚本下载这个网站的查询结果、谢谢！

ak47ok

是网站数据下载的问题:
如何用JSL下载 "问财"网站的查询结果？
用VBA能实现下载、但我不会用JSL来下载。

例如用 "ROE>20" 来查询。非常感谢！

ak47ok

这个问题我在全球论坛提问过、但没有解决。期待在国内论坛的老师能帮手解决、谢谢！

问财网址: http://www.iwencai.com/unifiedwap/home/index

VBA代码
Sub West()
    Dim result, antistop, Values As Variant, i, j, x, y, cnt
    Dim Json As Object
    cnt = Range("b1") & ""
    antistop = "{""question"":""ROE>20"",""perpage"":" & cnt & ",""page"":9,""secondary_intent"":""stock"",""log_info"":""{\""input_type\"":\""click\""}"",""source"":""Ths_iwencai_Xuangu"",""version"":""2.0"",""query_area"":"""",""block_list"":"""",""add_info"":""{\""urp\"":{\""scene\"":1,\""company\"":1,\""business\"":1},\""contentType\"":\""json\"",\""searchInfo\"":true}""}"
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "Post", "http://x.10jqka.com.cn/customized/chart/get-robot-data", False
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/97.0.4692.71 Safari/537.36"
        .setRequestHeader "Content-Type", "application/json"
        .send antistop
        result = Split(Split(.responsetext, """datas"":")(1), ",""meta")(0)
        Set Json = JsonConverter.ParseJson(result)
      
   
End Sub

ak47ok

现在已经完全不能离开JMP了。

deanwu

楼主如果实在不好实现，不如上乌龟量化，直接就可以下载到这些数据，不过需要买个小会员

ak47ok

deanwu 发表于 2022-1-17 09:22
楼主如果实在不好实现，不如上乌龟量化，直接就可以下载到这些数据，不过需要买个小会员

呵呵、我只是想学会如何用JSL搞定它,

ak47ok

这个JSL脚本指南中的、但我不懂如何仿照它来修改
麻烦老师指导、谢谢！

query =
"env 'store://datatables.org/alltableswithkeys'; select * from yahoo.finance.historicaldata where symbol in ('YHOO','AAPL','GOOG','MSFT') and startDate = '2017-01-01' and endDate = '2017-01-05'";
request = New HTTP Request(
        url( "http://query.yahooapis.com/v1/public/yql" ),
        Method( "POST" ),
        Form( Fields( [["q" => query, "format" => "json"]] ) )
);
data = request << Send;