大伊人青草狠狠久久-大伊香蕉精品视频在线-大伊香蕉精品一区视频在线-大伊香蕉在线精品不卡视频-大伊香蕉在线精品视频75-大伊香蕉在线精品视频人碰人

您現在的位置：程序化交易>> 股票公式>> 其他>> 其他軟件公式>>正文內容

專用VBS當日龍虎榜[其他軟件公式]

作者：飛狐 來源：cxh99.com 發布時間：2014年08月23日 點擊數： 　【收藏到本網的會員中心】

相關標簽:

 

飛狐專用VBS當日龍虎榜用VBS寫的當日龍虎榜，純習作。各位老師、童鞋，請勿拍磚
數據來自網絡，每天第一次使用該時，要有約一秒的數據下載時間
指標顯示要看網絡的更新時間（網址，源碼中有）
數據存放在臨時文件夾：C:\Windows\Temp\
當日沒有進入龍虎榜的，不會顯示
如不顯示，請檢查一下系統DRAWGBK(1, COLORRGB(0,0,0), COLORRGB(0,0,0),0);
txts:='';
<%
path="C:\WINDOWS\Temp\龍虎榜.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.fileexists(path) then
Set f = fso.GetFile(path)
md =DateValue(f.DateCreated)
nd=date
if md<>nd then
wycp
else
end if
else
wycp
end if
Set F = fso.OpenTextFile(path,1)
sub wycp
url="http://data.10jqka.com.cn/market/longhud.html"
set xhp=createobject("microsoft.xmlhttp")
xhp.open "get",url,false
xhp.send
Set MyStream=CreateObject("Adodb.Stream")
MyStream.Type = 1
MyStream.Open
MyStream.Write xhp.responseBody
MyStream.SaveToFile path
end sub
%>
Dz:='C:\WINDOWS\Temp\龍虎榜.txt';
Wb:='';
<%
On Error Resume Next
Dz=FFL.VarData("Dz")
Set D_1 = CreateObject("Scripting.FileSystemObject")
Set D_a = D_1.OpenTextFile(Dz, 1)
Wb= D_a.ReadAll & ""
Wb=replace(Wb,"""","")
Wb=replace(Wb,"<span class=FC9>","")
Wb=replace(Wb,"</span><span class=FC7>","")
Wb=replace(Wb,"","")
Wb=replace(Wb,"","")
Wb=replace(Wb,"","")
D_a.Close
FFL.VarData("Wb")=Wb
%>
A0:=STRFIND(Wb,'/'+STKLABEL+'/',1);
A01:=STRFIND(Wb,'查看明細',A0+10);
A02:=STRFIND(Wb,'買賣凈差',A01+10);
IF A0>0 THEN BEGIN
A1:=STRFIND(Wb,'當日總成交量：',A0+1);
A2:=STRFIND(Wb,'</span></td>',A1+1);
A3:=STRFIND(Wb,'總成交金額：',A2+1);B4:=STRFIND(Wb,'買入總計',A3+1);
B5:=STRFIND(Wb,'class=yrq1 pr10 FB>',B4+1);
B6:=STRFIND(Wb,'</span></td>',B5+1);D4:=STRFIND(Wb,'賣出總計',A3+1);
D5:=STRFIND(Wb,'class=yrq1 pr10 FB>',D4+1);
D6:=STRFIND(Wb,'</span></td>',D5+1);E4:=STRFIND(Wb,'買賣凈差',A3+1);
E5:=STRFIND(Wb,'class=yrq1 pr10 FB>',E4+1);
E6:=STRFIND(Wb,'</span></td>',E5+1);
A4:=STRFIND(Wb,'</span></td>',A3+1);
龍虎:A0>0,LINETHICK0;
占比:STRTONUM(STRMID(Wb,E5+19,E6-E5-19))/STRTONUM(STRMID(Wb,A3+12,A4-A3-16))*100,LINETHICK0,PRECISION2;
凈差:STRTONUM(STRMID(Wb,E5+19,E6-E5-19)),LINETHICK0,PRECISION2,ColorFFFF00;
買入:STRTONUM(STRMID(Wb,B5+19,B6-B5-19)),LINETHICK0,PRECISION2,Color0000FF;
賣出:STRTONUM(STRMID(Wb,D5+19,D6-D5-19)),LINETHICK0,PRECISION2,Color00FF00;
A5:=STRFIND(Wb,'class=lhyybcx>',A4+1);
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);DRAWTEXTEX(1,0, 30, 0,STKLABEL+' '+STKNAME+' '+STRMID(Wb,A1,A2-A1)),Color7FFDFF;
DRAWTEXTEX(1,0,470, 0,STRMID(Wb,A3,A4-A3)),align2,Color7FFDFF;
DRAWTEXTEX(1,0, 6, 15,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 15,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 15,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6, 30,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 30,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 30,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6, 45,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 45,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 45,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6, 60,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 60,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 60,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6, 75,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 75,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 75,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6, 90,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 90,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 90,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6,105,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420,105,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500,105,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6,120,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420,120,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500,120,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6,135,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420,135,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500,135,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6,150,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420,150,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500,150,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
END;{程序化交易 www.weiqiv.net.cn }
飛狐專用VBS當日龍虎榜

 

 

有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友

可聯系技術人員 QQ: 1145508240  有需要幫忙請點擊這里留言?。。? title=進行 有償 編寫！（不貴！點擊查看價格！）

 


【字體：小 大】【打印文章】【查看評論】

相關文章

    沒有相關內容
　 主站蜘蛛池模板： 91精品国产三级在线观看 | 久久综合九色婷婷97 | 在哪里可以看毛片 | 国产成人18黄网站免费 | 国产精品精品 | 欧美成人一级毛片 | 亚洲欧美专区精品久久 | 亚洲精品不卡在线 | 成人在线a | 国产婷婷综合在线视频中 | 日本不卡高清 | 日韩成人在线网站 | 99re这里只有精品在线 | 特级毛片免费视频 | 国产一区二区精品久久岳 | 女人十八毛片免费观 | 中文字幕日韩一区二区 | 国产亚洲精品美女 | 欧美成人免费一区在线播放 | 国产视频二区在线观看 | 亚洲一区二区三区播放在线 | 日本在线视频不卡 | 国产自制一区 | 中文亚洲字幕 | 私人影院在线播放 | 深夜免费在线观看 | www性欧美 | 欧美色黄毛片 | 久久美女精品国产精品亚洲 | 三级成人做爰视频 | 国产综合网站 | 久久99国产精品一区二区 | 四虎免费在线播放 | 亚洲高清免费视频 | 久久精品国产三级不卡 | 日韩在线欧美 | 欧美性在线播放 | 精品无人乱码区1区2区3区 | 亚洲成a人一区二区三区 | 国产精品视频福利视频网 | 欧美色v|