PRIVATE SUB CLK(INDEX AS INTEGER)
SELECT CASE INDEX
CASE 0:
...'BTN(0) DO ANY THING
CASE 1:
...
...
CASE X:
...
END SUB
检测 数据类型 --这个你自己写个过程吧... 如果按你说的是根据文件名决定的...
那么就
PRIVATE SUB CHKFILE(STRFILE AS STRING)
IF STRFILE <>???这里的判断貌似是需要你自己写的... THEN
CLK(A)
CLK(B)
ELSE IF STRFILE= XXX THEN
CLK(B)
CLK(C)
ELSE IF ...
...
...
END IF