[AHK]获取方正证券股份有限公司杭州保俶路证券营业部每日买入股票

来源：互联网发布：单片机lcd1602程序编辑：程序博客网时间：2024/04/27 18:01

从同花顺网站

http://data.10jqka.com.cn/market/yybzjsl/orgcode/FZZQGFYXGSHZBCLZQYYB/

解析方正证券股份有限公司杭州保俶路证券营业部买入股票信息

;作者:sunwind;日期:2016年12月1日21:15:38;功能:从同花顺网站获取方正证券股份有限公司杭州保俶路证券营业部买入股票信息#SingleInstance,forceurl=http://data.10jqka.com.cn/market/yybzjsl/orgcode/FZZQGFYXGSHZBCLZQYYB/whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")whr.Open("GET", url, true)whr.Send()whr.WaitForResponse()str:=whr.ResponseTextClipboard:=stri:=0,arr1:={}FormatTime,today,A_Now,yyyy-MM-dd;~ MsgBox %today%Loop,Parse,str,`n{ IfInString,A_LoopField,date/%today%/" target="_blank">{RegExMatch(A_loopField,"O)blank\"">(.+?)<",m)i:=i+1arr1[i]:=m.1}} j:=0,arr2:={}Loop,Parse,str,`n{ IfInString,A_LoopField,<td class="c_red">{IfInString,A_LoopField,`%continueelse{RegExMatch(A_loopField,"O)c_red\"">(.+?)<",m)j:=j+1arr2[j]:=m.1}if (j>=i)break}}Loop,%j%{outstr:=outstr . arr1[A_Index] . A_Tab . arr2[A_Index] . "`n"}MsgBox  % today . "`n杭州保俶路证券营业部买入股票:`n`n股票名称`t成交量(手)`n" .  outstrreturn

0 0