Código fuente de Great Wisdom L2 F10
Variables: TT[4]=STR, posición[4]=0, ratio[4]=0, cambio [4]= 0;
F10:=IF(F10FIND(◆Salida Manzhouli,1)>0,1,0);
QSW:=F10FIND(◆Situación de control◆ ,100);
QSW1:=F10FIND(salida]☆,1000)+120;
JSW1:=F10FIND(rojo]☆,QSW1+300)-80; p>
{F10 Búsqueda de Datos}
Si F10=1 AND QSW>0 AND QSW1>0?AND JSW1>0?THEN{Medición Mundial de si la información está completa o no, si no, no hacer nada }
BEGIN
{Control de la situación de extracción de datos del campo de datos} f10str:=f10text(QSW,320); ,0)- 5; WZ2:=encontrarcadena(f10cadena,-,WZ1+10)-5; -5; WZ5 :=320;{buscar bit final} {tomar tiempo} T1:= strmid(f10str,WZ1,10); T2:= strmid(f10str,WZ2,10); 10):=strmid(f10str,WZ4,10); {Obtener el número de cuentas de accionistas} LS:=142; HS1:=STRTONUM(strmid(f10str,WZ1+LS,10)); WZ2 HS3:=IF( WZ3 HS4 :=IF(WZ4 {Tome el número promedio de acciones que posee la familia} LS:=205; RS1:=STRTONUM(strmid(f10str,WZ1+LS,10)); RS2:= IF(WZ2100,STRTONUM(strmid(f10str, WZ2+LS,10)), 0); RS3:=IF(WZ3100,STRTONUM(strmid(f10str,WZ3+LS,10)),0); WZ4100,STRTONUM(strmid(f10str,WZ4+ LS,10)),0); {Consulta de datos de los principales accionistas}.
f10str:=f10text(QSW1,JSW1-QSW1); HJW:=0;
{El bucle for es muy lento e insoportable, reemplácelo con la siguiente extensión
p>
PARA i=1 a 4 COMIENCE SJT:=strfind( f10str,cuenta de acciones en circulación,HJW+15); si SJT JSW1 ENTONCES ROMPER;
?TT:=strmid(f10str) ,SJT- (44-21),10);
?HJW:=strfind(f10str,Total ? Count,SJT+300);
?Holding:= strtonum(strmid (f10str, HJW+6,44-12));
?Proporción:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
?ABC :=HJW+80-5+36;
?HJW:=ABC;
}
SJT:=strfind(f10str, participación de acciones en circulación,HJW+15);
TT[1]:=strmid(f10str,SJT-(44-21),10);{time}
HJW: =strfind( f10str,total?Count,SJT+300);
Holding[1]:= strtonum(strmid(f10str,HJW+6,44-12));
Proporción[1 ]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
ABC.=HJW+80-5+36;
HJW: =ABC;
SJT:=strfind(f10str,% de acciones en circulación,HJW+15);
TT[2]:=strmid(f10str,SJT-( 44-21 ),10);{time}
HJW:= strfind(f10str,total?Count,SJT+300);
Holding[2]:= strtonum(strmid (f10str, HJW+6,44-12));
Proporción[2]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
ABC.=HJW+80-5+36;
HJW:=ABC;
SJT:=strfind(f10str,% de acciones en circulación,HJW+15);
TT[3]:=strmid(f10str,SJT-(44-21),10);{time}
HJW:= strfind(f10str,total?Count,SJT +300) ;
Holding[3]:= strtonum(strmid(f10str,HJW+6,44-12));
Proporción[3]:= strtonum(strmid( f10str,HJW +6+45-12,51-45));
ABC.=HJW+80-5+36;
HJW:=ABC;
SJT:=strfind(f10str,% de acciones en circulación,HJW+15
);
TT[4]:=strmid(f10str,SJT-(44-21),10);{time}
HJW:= strfind(f10str,total?Count ,SJT+300);
Holding[4]:= strtonum(strmid(f10str,HJW+6,44-12));
Proporción[4]:= strtonum( strmid(f10str,HJW+6+45-12,51-45));
ABC.=HJW+80-5+36;
HJW:=ABC; p> p>
Actual:=Reteniendo[1];
Actual1:=Proporcionalidad[1];
Anterior:=Reteniendo[2];
Anterior1:=Proporcionalidad[2];
±Proporcionalidad:=Actual1-Anterior1;
Dos primeros:=Holdings[3];
Dos primeros 1 := Ratio[3];
Top 3:=Holdings[4];
Top 3 1:= Ratio[4];
{En Los cambios en las participaciones se muestran en la posición correspondiente}
{Sort}
Aumento de accionistas: (HS1-HS2)/HS2*100,PRECIS2,linethick2,Color008987;
Aumentar tenencias: (RS1-RS2)/RS2*100,PRECIS2,linethick2,COLORRED;
Los principales accionistas aumentan tenencias: (período actual-período anterior)/período anterior*100,PRECIS2,LINETHICK2 ,ColorFA7D7D;
Principales acciones negociables: (edición actual - edición anterior 1)/edición actual 1*100,PRECIS2,LINETHICK2,ColorFFA935;
{------- ----- -------Plantilla de ilustración---------------- ----}
A2:=0;
A3 :=1000;
AG:=INTPART((A3-A2)/10);
{Mostrar texto}
DRAWTEXTREL( 0,AG*0 , Número de accionistas), ColorFFC800;
DRAWTEXTREL(0,AG*2,Número de accionistas),ColorFA7D7D;
DRAWTEXTREL(0,AG*4, % de participación principal en circulación), ColorFA7D7D;
DRAWTEXTREL(0,AG*6,Participaciones principales (en 10.000)),ColorFA7D7D
DRAWTEXTREL(0,AG*8,tiempo de declaración; ),COLOR00DD00;
{Tenencias domésticas promedio}
DRAWTEXTREL(AG*8,0,NUMTOSTR(RS1)),ALIGN2,ColorFFC800;
DRAWTEXTREL( AG*6,0 ,NUMTOSTR(RS2 )),ALIGN2,ColorFFC800
DRAWTEXTREL(AG*4,0,NUMTOSTR(RS3 )),ALIGN2,ColorFFC800
DRAWTEXTREL( AG*2,0 ,NUMTOSTR(RS4 )),ALIGN2,ColorFFC800
{Número de accionistas}
D
RAWTEXTREL(AG*8,AG*2,NUMTOSTR(HS1)),ALIGN2,ColorFA7D7D;
DRAWTEXTREL(AG*6,AG*2,NUMTOSTR(HS2)),ALIGN2,ColorFA7D7D
DRAWTEXTREL(AG*4,AG*2,NUMTOSTR(HS3)),ALIGN2,ColorFA7D7D;
DRAWTEXTREL(AG*2,AG*2,NUMTOSTR(HS4)),ALIGN2,ColorFA7D7D;
{Relación de corriente principal}
DRAWTEXTREL(AG*8,AG*4,NUMTOSTR(Current1)),ALIGN2,COLORMAGENTA;
DRAWTEXTREL(AG*6,AG *4,NUMTOSTR(último período 1)),ALIGN2,COLORMAGENTA;
DRAWTEXTREL(AG*4,AG*4,NUMTOSTR(dos anteriores 1)),ALIGN2,COLORMAGENTA
DRAWTEXTREL(AG*2,AG*4,NUMTOSTR(tres primeros 1)),ALIGN2,COLORMAGENTA;
{10 mayores accionistas}
DRAWTEXTREL(AG*8, AG* 6,NUMTOSTR(período anterior)),ALIGN2,COLORRED;
DRAWTEXTREL(AG*6,AG*6,NUMTOSTR(período anterior)),ALIGN2,COLORRED
DRAWTEXTREL( AG*4,AG*6,NUMTOSTR(dos anteriores)),ALIGN2,COLORRED;
DRAWTEXTREL(AG*2,AG*6,NUMTOSTR(tres primeros)),ALIGN2,COLORRED < /p; >
{Tiempo}
DRAWTEXTREL(AG*8,AG*8,T1),ALIGN2,COLOR00DD00
DRAWTEXTREL(AG*6,AG*8, T2) ,ALIGN2,COLOR00DD00;
DRAWTEXTREL(AG*4,AG*8,T3),ALIGN2,COLOR00DD00;
DRAWTEXTREL(AG*2,AG*8,T4) ,ALIGN2 ,COLOR00DD00;
{Línea del gráfico de barras}
{Línea del gráfico de barras digitales reservada}
{STICKLINE(BARPOS=A3-AG*1 -10 AND HS1 >100,0,RS1,AG*3, 1),LINETHICK2,ColorFFDDFF;
STICKLINE(BARPOS=A3-AG*2-15 AND HS2>100,0,RS2,AG *3,1 ),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-20 AND HS3>100,0,RS3,AG*3,1),LINETHICK2,ColorB9FFBC;
p>STICKLINE(BARPOS=A3-AG*4-25 AND HS4>100,0,RS4,AG*3,1), LINETHICK2,ColorB9FFFF;}
{10 dibujos de los principales accionistas Curve}
{STICKLINE(BARPOS=A3-AG*1-6? y actual>
0,0,actual,AG*3,0),LINETHICK2,ColorFFDDFF;
STICKLINE(BARPOS=A3-AG*2-11 y elemento anterior>0,0,elemento anterior,AG*3, 0),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-16 y anterior>0,0,tres primeros,AG*3,0),LINETHICK2,ColorB9FFBC; p >
STICKLINE(BARPOS=A3-AG*4-21 AND TOP THREE>0,0,TOP THREE,AG*3,0),LINETHICK2,ColorB9FFFF;}
END;Descargar Universal's F10 y extraer a D:\D:\Program Files\dzh2\data\sh\BASE