[大智慧L2] 适合于分析家和大智慧2的F10资料公式

阿拉丁

1. VARIABLE:TT[4]='STR',持股[4]=0,比例[4]=0,变化[4]=0;
   
2. 
   
3. F10:=IF(F10FIND('万国测评制作',1)>0,1,0);
   
4. 
   
5. QSW:=F10FIND('◆ 控盘情况 ◆',100);
   
6. QSW1:=F10FIND('出]☆',1000)+120;
   
7. JSW1:=F10FIND('红]☆',QSW1+300)-80;
   
8. 
   
9. {F10数据查找}
   
10. IF F10=1 AND QSW>0 AND QSW1>0  AND JSW1>0  THEN{万国测评的资料是否完整，不完整就什么都不做}
    
11. BEGIN
    
12. {控盘情况数据栏数据提取}
    
13.   f10str:=f10text(QSW,320);
    
14.   WZ1:=strfind(f10str,'-',0)-5;
    
15.   WZ2:=strfind(f10str,'-',WZ1+10)-5;
    
16.   WZ3:=strfind(f10str,'-',WZ2+10)-5;
    
17.   WZ4:=strfind(f10str,'-',WZ3+10)-5;
    
18.   WZ5:=320;{查找结束位}
    
19.   {取时间}
    
20.   T1:= strmid(f10str,WZ1,10);
    
21.   T2:= strmid(f10str,WZ2,10);
    
22.   T3:=strmid(f10str,WZ3,10);
    
23.   T4:= strmid(f10str,WZ4,10);
    
24. 
    
25.   {取股东户数}
    
26.   LS:=142;
    
27.   HS1:=STRTONUM(strmid(f10str,WZ1+LS,10));
    
28.   HS2:=IF(WZ2<WZ5,STRTONUM(strmid(f10str,WZ2+LS,10)),0);
    
29.   HS3:=IF(WZ3<WZ5,STRTONUM(strmid(f10str,WZ3+LS,10)),0);
    
30.   HS4:=IF(WZ4<WZ5,STRTONUM(strmid(f10str,WZ4+LS,10)),0);
    
31.   {取户均持股数}
    
32.   LS:=205;
    
33.   RS1:=STRTONUM(strmid(f10str,WZ1+LS,10));
    
34.   RS2:=IF(WZ2<WZ5 AND HS2>100,STRTONUM(strmid(f10str,WZ2+LS,10)),0);
    
35.   RS3:=IF(WZ3<WZ5 AND HS3>100,STRTONUM(strmid(f10str,WZ3+LS,10)),0);
    
36.   RS4:=IF(WZ4<WZ5 AND HS4>100,STRTONUM(strmid(f10str,WZ4+LS,10)),0);
    
37. 
    
38.   {大股东数据查找}
    
39.   f10str:=f10text(QSW1,JSW1-QSW1);
    
40.   HJW:=0;
    
41. {for 循环很慢无法忍受，换成下面的展开
    
42.         
    
43.           FOR i=1 to 4 DO
    
44.   BEGIN
    
45.      SJT:=strfind(f10str,'占流通股',HJW+15);
    
46.      if SJT<0  OR SJT > JSW1 THEN BREAK;
    
47.            TT:=strmid(f10str,SJT-(44-21),10);
    
48.            HJW:=strfind(f10str,'总  计',SJT+300);
    
49.                  持股:=strtonum(strmid(f10str,HJW+6,44-12));
    
50.            比例:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
    
51.            ABC:=HJW+80-5+36;
    
52.            HJW:=ABC;
    
53.   END;
    
54. }
    
55.     SJT:=strfind(f10str,'占流通股',HJW+15);
    
56.    TT[1]:=strmid(f10str,SJT-(44-21),10);{时间}
    
57.    HJW:=strfind(f10str,'总  计',SJT+300);
    
58.          持股[1]:=strtonum(strmid(f10str,HJW+6,44-12));
    
59.          比例[1]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
    
60.          ABC:=HJW+80-5+36;
    
61.          HJW:=ABC;
    
62.    SJT:=strfind(f10str,'占流通股',HJW+15);
    
63.    TT[2]:=strmid(f10str,SJT-(44-21),10);{时间}
    
64.    HJW:=strfind(f10str,'总  计',SJT+300);
    
65.          持股[2]:=strtonum(strmid(f10str,HJW+6,44-12));
    
66.          比例[2]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
    
67.          ABC:=HJW+80-5+36;
    
68.          HJW:=ABC;
    
69.    SJT:=strfind(f10str,'占流通股',HJW+15);
    
70.    TT[3]:=strmid(f10str,SJT-(44-21),10);{时间}
    
71.    HJW:=strfind(f10str,'总  计',SJT+300);
    
72.          持股[3]:=strtonum(strmid(f10str,HJW+6,44-12));
    
73.          比例[3]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
    
74.          ABC:=HJW+80-5+36;
    
75.          HJW:=ABC;
    
76.    SJT:=strfind(f10str,'占流通股',HJW+15);
    
77.    TT[4]:=strmid(f10str,SJT-(44-21),10);{时间}
    
78.    HJW:=strfind(f10str,'总  计',SJT+300);
    
79.          持股[4]:=strtonum(strmid(f10str,HJW+6,44-12));
    
80.          比例[4]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
    
81.          ABC:=HJW+80-5+36;
    
82.          HJW:=ABC;
    
83. 
    
84. 
    
85. 当期:=持股[1];
    
86. 当期一:=比例[1];
    
87. 上期:=持股[2];
    
88. 上期一:=比例[2];
    
89. ±比例:=当期一-上期一;
    
90. 前二:=持股[3];
    
91. 前二一:=比例[3];
    
92. 前三:=持股[4];
    
93. 前三一:=比例[4];
    
94. {将变化持股数对应显示在对应位置}
    
95. 
    
96. 
    
97. {排序}
    
98. 股东增幅:(HS1-HS2)/HS2*100,PRECIS2,linethick2,Color008987;
    
99. 持股增幅:(RS1-RS2)/RS2*100,PRECIS2,linethick2,COLORRED;
    
100. 主力增幅:(当期-上期)/上期*100,PRECIS2,LINETHICK2,ColorFA7D7D;
     
101. 
     
102. 
     
103. 主力流通:(当期-上期一)/当期一*100,PRECIS2,LINETHICK2,ColorFFA935;
     
104. 
     
105. {-------------------【图解模板】-------------------}
     
106. A2:=0;
     
107. A3:=1000;
     
108. AG:=INTPART((A3-A2)/10);
     
109. {显示文字}
     
110. DRAWTEXTREL(0,AG*0,'户均持股'),ColorFFC800;
     
111. DRAWTEXTREL(0,AG*2,'股东户数'),ColorFA7D7D;
     
112. DRAWTEXTREL(0,AG*4,'主力占流通%'),ColorFA7D7D;
     
113. DRAWTEXTREL(0,AG*6,'主力持股数(万)'),ColorFA7D7D;
     
114. DRAWTEXTREL(0,AG*8,'报表时间'),COLOR00DD00;
     
115. 
     
116. {户均持股}
     
117. DRAWTEXTREL(AG*8,0,NUMTOSTR(RS1 )),ALIGN2,ColorFFC800;
     
118. DRAWTEXTREL(AG*6,0,NUMTOSTR(RS2 )),ALIGN2,ColorFFC800;
     
119. DRAWTEXTREL(AG*4,0,NUMTOSTR(RS3 )),ALIGN2,ColorFFC800;
     
120. DRAWTEXTREL(AG*2,0,NUMTOSTR(RS4 )),ALIGN2,ColorFFC800;
     
121. 
     
122. {股东户数}
     
123. DRAWTEXTREL(AG*8,AG*2,NUMTOSTR(HS1)),ALIGN2,ColorFA7D7D;
     
124. DRAWTEXTREL(AG*6,AG*2,NUMTOSTR(HS2)),ALIGN2,ColorFA7D7D;
     
125. DRAWTEXTREL(AG*4,AG*2,NUMTOSTR(HS3)),ALIGN2,ColorFA7D7D;
     
126. DRAWTEXTREL(AG*2,AG*2,NUMTOSTR(HS4)),ALIGN2,ColorFA7D7D;
     
127. {主力占流通比}
     
128. DRAWTEXTREL(AG*8,AG*4,NUMTOSTR(当期一)),ALIGN2,COLORMAGENTA;
     
129. DRAWTEXTREL(AG*6,AG*4,NUMTOSTR(上期一)),ALIGN2,COLORMAGENTA;
     
130. DRAWTEXTREL(AG*4,AG*4,NUMTOSTR(前二一)),ALIGN2,COLORMAGENTA;
     
131. DRAWTEXTREL(AG*2,AG*4,NUMTOSTR(前三一)),ALIGN2,COLORMAGENTA;
     
132. {10大股东持股}
     
133. DRAWTEXTREL(AG*8,AG*6,NUMTOSTR(当期)),ALIGN2,COLORRED;
     
134. DRAWTEXTREL(AG*6,AG*6,NUMTOSTR(上期)),ALIGN2,COLORRED;
     
135. DRAWTEXTREL(AG*4,AG*6,NUMTOSTR(前二)),ALIGN2,COLORRED;
     
136. DRAWTEXTREL(AG*2,AG*6,NUMTOSTR(前三)),ALIGN2,COLORRED;
     
137. {时间}
     
138. DRAWTEXTREL(AG*8,AG*8,T1),ALIGN2,COLOR00DD00;
     
139. DRAWTEXTREL(AG*6,AG*8,T2),ALIGN2,COLOR00DD00;
     
140. DRAWTEXTREL(AG*4,AG*8,T3),ALIGN2,COLOR00DD00;
     
141. DRAWTEXTREL(AG*2,AG*8,T4),ALIGN2,COLOR00DD00;
     
142. 
     
143. {柱线}
     
144. {持股数柱线}
     
145. {STICKLINE(BARPOS=A3-AG*1-10 AND HS1>100,0,RS1,AG*3,1),LINETHICK2,ColorFFDDFF;
     
146. STICKLINE(BARPOS=A3-AG*2-15 AND HS2>100,0,RS2,AG*3,1),LINETHICK2,ColorF1FFB5;
     
147. STICKLINE(BARPOS=A3-AG*3-20 AND HS3>100,0,RS3,AG*3,1),LINETHICK2,ColorB9FFBC;
     
148. STICKLINE(BARPOS=A3-AG*4-25 AND HS4>100,0,RS4,AG*3,1),LINETHICK2,ColorB9FFFF;}
     
149. {10大股东画柱线}
     
150. {STICKLINE(BARPOS=A3-AG*1-6  AND 当期>0,0,当期,AG*3,0),LINETHICK2,ColorFFDDFF;
     
151. STICKLINE(BARPOS=A3-AG*2-11 AND 上期>0,0,上期,AG*3,0),LINETHICK2,ColorF1FFB5;
     
152. STICKLINE(BARPOS=A3-AG*3-16 AND 前二>0,0,前二,AG*3,0),LINETHICK2,ColorB9FFBC;
     
153. STICKLINE(BARPOS=A3-AG*4-21 AND 前三>0,0,前三,AG*3,0),LINETHICK2,ColorB9FFFF;}
     
154. END;

复制代码

[ 本帖最后由 阿拉丁 于 2007-1-20 11:41 编辑 ]

阿拉丁

大智慧2要下载完整的F10才能显示，可以数据下载区下载
要下载F10的资料，解压缩，分别放入
.\DZH\DATA\SH\BASE
.\DZH\DATA\SZ\BASE下

大智慧2自己带的F10资料显示其实数据在服务器端 ，F10命令请求后会从服务器上下载部分F10资料显示在你计算机上，这些部分的F10以 600036.f10的面目出现在你的大智慧软件目录下，但这不是完整的F10。完整的F10文件是600036.TXT形式的

江舟牧鱼

:em19: 谢谢，我来坐沙发

hfjytang

谢谢楼主提供!!!

lze

:em19: :em18:

RUIHEXING

“大智慧2要下载完整的F10才能显示，可以数据下载区下载”
数据下载区能帮忙说一下在那里吗？谢谢！

[ 本帖最后由 RUIHEXING 于 2007-1-20 14:34 编辑 ]

gssxr

谢谢！

RUIHEXING

官方万得F10资料下载后出现这样的显示，这是怎么回事呢？

[ 本帖最后由 RUIHEXING 于 2007-1-20 15:53 编辑 ]

中国陶

谢谢分享。

顶，看帖回帖是美德！

踏海航标

谢谢提供！

RUIHEXING

也用楼主002007附图，顶上去，请高手指点

RUIHEXING

已成，附图谢一下

zzz189

:em18: :em19:

zhning

:em19:

shim

请问有没有大智慧的呀?