数据取自东财网，将“机构评级.txt”拷入飞狐目录或任意目录下。飞狐公式如下（注意在公式里更改自己的文件路径）：SC:=MARKETLABEL;
DM:=STKLABEL;
if CATEGORY=1 then begin
pj1:='';pj2:='';
<%
On Error Resume Next
VSC=FFL.VARDATA("SC")
VDM=FFL.VARDATA("DM")
Set fso = CreateObject("Scripting.FileSystemObject")
FileName="E:\Foxtrader\机构评级.txt" '此处更改相应路径
Set txtf=fso.OpenTextFile(FileName,1,True)
str = txtf.Readall
txtf.Close
mc = vsc & vdm
a1 = instr(str,mc)
a2 = instr(a1,str,"|")
a3 = instr(a2,str,vbcrlf)
r1 = mid(str,a1+8,a2-a1-8)
r2 = mid(str,a2+1,a3-a2-1)
ffl.vardata("pj1")=r1
ffl.vardata("pj2")=r2
%>DRAWTEXTEX(c,0,5,5,'评 级:'+' 买入'+' 增持'+' 中性'+' 减持'+' 卖出'),,Color00FFFF;
DRAWTEXTEX(c,0,5,20,'一月内:'+pj1),Color00FFFF;
DRAWTEXTEX(c,0,5,35,'三月内:'+pj2),Color00FFFF;
end;
  |
