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

从同花顺网站

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

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

;作者:sunwind
;日期:2016年12月1日21:15:38
;功能:从同花顺网站获取方正证券股份有限公司杭州保俶路证券营业部买入股票信息
#SingleInstance,force
url=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.ResponseText
Clipboard:=str
i:=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+1
		arr1[i]:=m.1
	}	
}
 
j:=0,arr2:={}
Loop,Parse,str,`n
{
	 IfInString,A_LoopField,<td class="c_red">
	{
		IfInString,A_LoopField,`%
			continue
		else
		{
			RegExMatch(A_loopField,"O)c_red\"">(.+?)<",m)
			j:=j+1
			arr2[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" .  outstr
return