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存放路径不同者，请自行更改