cat.mata

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

*! version 1.0.0  15oct2004
version 9.0
mata:

string colvector cat(string scalar filename) 
{
	real scalar 		fh
	string colvector	result
	string scalar		line

	fh = fopen(filename, "r")
	result = J(0, 1, "")
	while ((line=fget(fh))!=J(0,0,"")) { 
		result = result \ line 
	}
	fclose(fh) 
	return(result)
}

end