|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
空间 FR文件
功能 正则式搜(目录,正则式=".+")
变量 文件夹名,文件名,数i,数j,字符串a=""
文件.遍历(目录,文件夹名,文件名)
if(文件名[0]!=null)
数组空间.大小(文件名,数j)
for(数i=0;数i<数j;数i++)
if(字符串.正则表达式匹配(正则式,文件名[数i],"")>0)
字符串a=字符串a&";"&目录&"\\"&文件名[数i]
endif
endfor
endif
if(文件夹名[0]!=null)
数组空间.大小(文件夹名,数j)
for(数i=0;数i<数j;数i++)
字符串a=字符串a&FR文件.正则式搜(目录&"\\"&文件夹名[数i],正则式)
endfor
endif
返回 字符串a
功能结束
空间结束
|
|