|
》》另外提议楼主还是将BROW命令实现目录和文件可以混合多选的功能,这样会更有实用价值的
这个很麻烦,WINDOWS不支持。再说用的人实在很少。
WCS反倒好实现点,也方便修改定制。
SelDirFiles.WCS:
ENVI$ NL=0d 0a
ENVI$ TAB=09
//函数名:SelDirFiles
//参数: 返回结果变量名 文件模板
_SUB SelDirFiles,W320H470,选择目录和文件,
ENVI &&SELSRC=%2 //文件模板
ENVI &&_SELDFS=%1 //返回结果变量名
ENVI %&_SELDFS%=
ENVI &&FS=
FORX @%&SELSRC%,&&F,0, ENVI &FS=%&FS%%NL%%&F%%TAB%目录
FORX %&SELSRC%,&&F,0, ENVI &FS=%&FS%%NL%%&F%
TABL TABL1,L3T4W303H379,245:文件%TAB%40,%&FS%,0x80440
ITEM OK,L123T398W60H30,确认,CALL OnOK,
ENVI @TABL1.Val=?*;&LINES;&&COLS
_END
_SUB OnOK
ENVI &&FS=
ENVI &&I=1
LOOP #%&I% <= %&LINES%,
{
ENVI @TABL1.Check=?%&I%;&&CK
IFEX $ 1 = %&CK%,
{
ENVI @TABL1.Val=?%&I%.1;&&V1
ENVI &FS=%&FS%%NL%%&V1%
}
CALC #&I= %&I% + 1
}
MSTR %&_SELDFS%=3,0,%&FS%
ENVI~ &&V2=%&_SELDFS%
KILL \
_END
//测试,单独运行是才有效
FIND $ 1 = %&&__MAIN__%,
{
ENVI &&SELDFS=
CALL @SelDirFiles &SELDFS C:\*.*
MESS. 【%&SELDFS%】 @选择结果 #OK
}
[ 本帖最后由 2012abc19701 于 2012-7-13 15:43 编辑 ] |
|