飞狐引用通达信财务数据公式

飞狐引用通达信财务数据公式

引用通达信的，路径不同时自己改
（在你的通达信中要已更新）
预盈预增
 

Dz:='D:\TDX\T0002\xml_cache\tend_std_10065.xml';
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,"S001=","")
Wb=replace(Wb,"T002=","")
Wb=replace(Wb,"T003=","")
Wb=replace(Wb,"T004=","")
Wb=replace(Wb,"T005=","")
D_a.Close
FFL.VarData("Wb")=Wb
%>
A0:STRFIND(Wb,''+STKLABEL+'',1),LINETHICK0;
IF A0>10 THEN BEGIN
A1:=STRFIND(Wb,'T006=',A0+1);
DRAWTEXTEX(1,0, 3, 0,STRMID(Wb,A0,A1-A0)),ColorFFFF00;
END;