_writenum.ado

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

*! version 1.0.0  03apr2002
program define _writenum
	version 8

	args filehndl attrib

	if "`.`attrib'.isa'" == "double" {
		if `.`attrib'' < . {
			file write `filehndl' ".`attrib' =  `.`attrib''" _n
			exit					/* EXIT */
		}
	}

	file write `filehndl' ".`attrib' = (.)" _n

end


/*
   Given a file handle and an attribute, writes to filehandle

	.<attrib> = <attrib_value>

   If attrib_value is missing writes,

	.<attrib> = (.)

   Missings cannot be directly assigned to numeric class values because the
   the . for missing conflicts with the . as a class name separator.


*/