LOGS *\xx.log

CALL SHOWFIRST

_SUB SHOWFIRST,W480H360,文件列表,EXIT FILE,
    ENVI &&I=0
    ENVI &&TXTLS=
    ENVI &&TXTLS1=
    //LABE LABE1,  L41T2W368H21,LABE3,,
    EDIT LABE1,L40T1W387H22,请等待... ...,,0x24 
    LIST TXTLIST,L41T2W385H226,,,,0x100
    //EDIT-|. EDIT1,L41T32W383H252,请等待... ...,,0x24 
    ENVI @SHOWFIRST.MSG=#1: CALL  OnMsg1    
    TIME Timer1,200, CALL OnTimer1
    CALL OnTimer1
    THREAD*  FINDFILE
_END

_SUB OnTimer1
    TEAM ENVI  @LABE1=请等待 %&I% ...| CALC &I= %&I% + 0.2#01 
_END

_SUB OnMsg1
    TEAM ENVI @Timer1=0| ENVI @LABE1=搜索完毕,写入窗口。。。
    ENVI @TXTLIST.VAL=%&TXTLS%
    ENVI @TXTLIST=:%&TXTLS1%
    //ENVI.@EDIT1=%&TXTLS%
    TEAM ENVI @LABE1=| ENVI @LABE1.Visable=0
_END



_SUB  FINDFILE
    FORX /S T:\TEMP\*.*,ANYTXT,1,  ENVI &TXTLS1=%ANYTXT%
    FORX /S T:\TEMP\*.*,ANYTXT,0,  ENVI &TXTLS=%&TXTLS%|%ANYTXT%
    MSTR &TXTLS=2,0,%&TXTLS%
    ENVI @Timer1=0   
    ENVI @SHOWFIRST.POSTMSG=#1   //通知完成
_END

