软件名称:[B]KT引用F10公式[/B]
软件类型:国产软件
运行环境:Win9X/Win2000/WinXP/Win2003/Win7/
软件语言:简体中文
授权方式:免费版
软件大小:1.00 KB
官方主页:Home Page
更新时间:2016-01-02 08:41:30
软件简介:
KT用vb引用文本F10,源码如下:
//DRAWGBK(CLOSE,COLORRGB(16,60,16),COLORRGB(10,10,10),1);
Dz:='data\\'+MARKETLABEL+'\\F10\\'+STKLABEL+'.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 & ""
D_a.Close
FFL.VarData("Wb")=Wb
%>
A1:=STRFIND(Wb,'十大流通股东(截止日期',1);
B1:=STRFIND(Wb,'┴──────',A1);
D1:=STRMID(Wb,A1,B1-A1-29);
A2:=STRFIND(Wb,'十大流通股东(截止日期',A1+1);
B2:=STRFIND(Wb,'┴──────',A2);
D2:=STRMID(Wb,A2,B2-A2-29);
A3:=STRFIND(Wb,'十大流通股东(截止日期',A2+1);
B3:=STRFIND(Wb,'┴──────',A3);
D3:=STRMID(Wb,A3,B3-A3-29);
IF A1>0 THEN BEGIN
DRAWTEXTEX(1,0,10,3,D1),ColorA8A600;
IF A2>A1 THEN BEGIN
DRAWTEXTEX(1,0,470,3,D2),Color00A6A1;
IF A3>A2 THEN BEGIN
DRAWTEXTEX(1,0,930,3,D3),Color9E00A1;
END;END;END;
//供参考,F10存放路径不同者,请自行更改
[url=http://www.70822.com/soft/sort013/sort091/down-93033.html]KT引用F10公式[/url]