findfile.mata

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· MATA 代码 · 共 26 行

*! version 1.0.0  01nov2004
version 9.0
mata:

string scalar findfile(string scalar fn, |string scalar p)
{
	real scalar		i
	string rowvector	path
	string scalar		el, ltr, fullname

	if (fn=="") return("")
	ltr = substr(fn, 1, 1)

	path = (args()==1 ? pathlist() : pathlist(p))
	for (i=1; i<=cols(path); i++) {
		el = pathsubsysdir(path[i])
		fullname = pathjoin(el, fn)
		if (fileexists(fullname)) return(fullname)
		fullname = pathjoin(pathjoin(el, ltr), fn)
		if (fileexists(fullname)) return(fullname)
	}
	return("")
}

end