软件名称：[B]机构评级（东财）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：11.0 KB
官方主页：Home Page
更新时间：2013-04-28 07:17:07
软件简介:

数据取自东财网，将“机构评级.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;
 

[url=http://www.70822.com/soft/sort013/sort02/down-57952.html]机构评级（东财）[/url]