主要通达信上使用,其他软件可能要所调整

{去掉ST}

VAR1:=IF(NAMELIKE('S'),0,1);

VAR2:=IF(NAMELIKE('*'),0,1);

{去掉停牌}

VAR3:=DYNAINFO(17)>0;

{去掉科创板和创业板}

VAR4:=NOT(CODELIKE('68') OR CODELIKE('30'));

{去掉亏损与连续亏损}

VAR5:=FINDSTR(FGBLOCK,'连续亏损');

VAR6:=FINDSTR(FGBLOCK,'亏损股');

XG: VAR1 AND VAR2 AND VAR3 AND VAR4 AND VAR5<1 AND VAR6<1;