[AHK]获取新股信息

;作者:sunwind
;日期:2016年11月28日23:19:11
;功能:从同花顺网站获取当日新股信息
#SingleInstance,force
url=http://data.10jqka.com.cn/ipo/xgsgyzq/
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", url, true)
whr.Send()
whr.WaitForResponse()
str:=whr.ResponseText
i:=0,arr:={}
Loop,Parse,str,`n
{
    IfInString,A_LoopField,<td class=" c_red">
    {
        arr[i]:=A_LoopField
        i:=i+1
}
}
arr_out:={}
for key,val in arr
{
    j:=mod(key,12)+1
    k:=key//12+1
    StringReplace,val,val,<td class=" c_red">,
    StringReplace,val,val,</td>,
    val:=Trim(val)
    arr_out[k,j]:=val
}

MsgBox  % arr_out[1].9 "新股:`n" . ArrayToString(arr_out)
return 

ArrayToString(items ){
str := ""
cnt:=items.MaxIndex()
for each, item in items
    str .= item[1] ((A_Index == cnt) ? "" : "|")
return str
}