回复 第1楼 的 caicaierfeng：
<br />
name.fun=function(...)<br />
{<br />
v=c(...)<br />
vn=names(v)[v]<br />
if(is.null(vn) || vn=='') cat('The',paste(seq_along(v)[v],'th',sep=''),'number is TRUE!','\n')<br />
else vn<br />
}<br />
参考了http://cos.name/cn/topic/107050#post-232652
</p>
