用正则表达式搜索文件

ief675037

空间 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
功能结束
空间结束