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

77 篇文章 26 订阅
54 篇文章 28 订阅

从同花顺网站

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 



  • 0
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值