人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

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

專用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.kzuj.com.cn }
飛狐專用VBS當日龍虎榜

 

 

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

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

 


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

相關文章

    沒有相關內容
　 主站蜘蛛池模板： 日本午夜小视频 | 日韩三级黄色片 | 很黄的网站在线观看 | 在线看你懂 | 免费99精品国产自在现线观看 | 天天弄天天操 | 欧美日本道免费一区二区三区 | av小说网站 | 天天摸天天爽天天碰天天弄 | 日韩欧美色视频在线观看 | 欧美在线看视频 | 欧美娇小极度另类 | 成人午夜短视频 | 极品色天使在线婷婷天堂亚洲 | 激情丁香小说 | 韩国2023理伦片免费观看 | 97国产成人精品视频 | 国产色一区 | 久久精品国产免费一区 | 羞羞色在线观看 | 国产全黄a一级毛片 | 成人午夜视频免费 | 视频二区国产 | 521香蕉视频 | 欧美日本韩国一区 | 成年男女免费视频网站播放 | 一区二区三区在线播放 | 波多野结衣一区二区三区高清在线 | 一级片日韩 | 香蕉视频在线观看网站 | 成人国产永久福利看片 | 中文字幕日本一区波多野不卡 | 一个人看的视频www在线 | 五月天婷婷免费视频观看 | 日本福利写真福利视频 | 欧美韩国xxx | 亚洲噜噜噜噜噜影院在线播放 | 五月天亭亭 | 亚洲欧美日韩综合在线 | 日本三级免费网站 | 日本欧美一区二区三区片 |