|
本帖最后由 红毛樱木 于 2018-12-7 22:22 编辑
- TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
- SET ::WM_LBUTTONDOWN=0x0201
- SET$ &NL=0d 0a
- ENVI ML=C:
- CALL WCS
- _SUB WCS,W386H481,工具
- SET-def run=1
- //DIR &INILIST /O:N %ML%\
- FORX /O:N %ML%\*.*,&&AnyFile,0,
- {*
- FIND $%&INILIST%=,
- {*
- ENVI &INILIST=%&AnyFile%%&NL%
- }!
- {*
- ENVI &INILIST=%&INILIST%%&AnyFile%%&NL%
- }
- }
- TABL E1,W380H472,380:,%&INILIST%,0x10040
- ENVI @E1.MSG=_%&::WM_LBUTTONDOWN%:TEAM ENVI @E1.Sel=?&&Sel| ENVI @E1.Val=?%Sel%;&&V1| IFEX %&V1%,EXEC %V1%
- _END
复制代码
DIR是DOS的命令移植过来的,不熟,用的少,改用FORX
你这里TEAM嵌套了一个IFEX,好像后面的单个"!"叹号取反需要换成两个叹号"!!",不知道这一条我说的对不对,可能不对。 |
|