clslistarray.ado

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

*! version 1.0.2  06jun2005
program define clslistarray
	version 8.2

	gettoken array 0 : 0

	if "`.`array'.isa'" != "array" {
		exit 
	}

	syntax [, Lines(integer -1) ]

	if `lines' == -1 { 
		local lines = `.`array'.arrnels' 
	}

	forvalues i = 1/`lines' {
	    scalar val = `"`.`array'[`i']'"'
	    if `"`=substr(val,1,6)'"' != `"__key("' {
		if "`.`array'[`i'].isa'" == "class" {
		    di "[" %3.0f `i' `"] (`.`array'[`i'].isa') "'	 /*
				*/ `"`.`array'[`i'].classname' "' 	 /* 
				*/ `"`.`array'[`i'].objkey'"'
		}
		else {
			di "[" %3.0f `i' 				///
				`"] (`.`array'[`i'].isa') `.`array'[`i']'"' 
		}
	    }
	    else {
	    	if "`.`.`array'[`i']'.classname'" == "" {
	    	    di "[" %3.0f `i' 					///
		    	`"] (`.`.`array'[`i']'.isa') `.`array'[`i']'"'
		}
		else {
	    	    di "[" %3.0f `i' `"] (`.`.`array'[`i']'.isa') `.`.`array'[`i']'.classname'"'
		}
	    }
	}

end