求高手帮看下这是啷个问题。
这个功能需要什么插件吗?
源码是抄的,我完全不知情,http://bbs.tyuyan.com/forum.php?mod=viewthread&tid=36244&highlight
求高手帮看下 拜托了~~
>错误:G:\\文件查找\文件查找\文件查找.t 行号:12 错误信息:'digui.findfiles'是未定义的函数,或者函数格式中间出现多余的字符,比如 空格
var pathstr
function search(name,path,mode=1)
pathstr="",name=str.strtrim(name)
if(name==""||!file.exist(path))
return pathstr
else
if(str.right(path,1)!="\\")
path&="\\"
endif
name=str.strlowercase(name)
digui.findfiles(path,name,mode)
endif
return str.strcut(pathstr,1,false)
endfunction
//查找多文件.
function findfiles(path,name,mode)
rfile=array[],rfolder=array[]
file.traverse(path,rfolder,rfile)
sfile=-1,sfolder=-1
arraysp.size(rfile,sfile)
arraysp.size(rfolder,sfolder)
Name=str.strlowercase(rfile[0])
for(i=0;i<sfile;i++)
Name=str.strlowercase(rfile)
if(Name==name&&mode||str.findstr(Name,name)!=-1&&!mode)
pathstr&=path&rfile&"|"
endif
endfor
for(i=0;i<sfolder;i++)
if(str.strtrim(rfolder)=="")
continue
endif
digui.findfiles(path&rfolder&"\\",name,mode)
endfor
endfunction
//精确匹配单文件.
function findAfile(path,name)
rfile=array[],rfolder=array[]
file.traverse(path,rfolder,rfile)
sfile=-1,sfolder=-1
arraysp.size(rfile,sfile)
arraysp.size(rfolder,sfolder)
for(i=0;i<sfile;i++)
if(rfile==name)
return path
endif
endfor
for(i=0;i<sfolder;i++)
if(str.strtrim(rfolder)=="")
continue
endif
ret=digui.findAfile(path&rfolder&"\\",name)
if(ret!="\"")
return ret
endif
endfor
return "\""
endfunction
|