📄 _crcvarl.ado
字号:
*! 20nov1997
program define _crcvarl, sclass /* varname */
* touched by kth -- done
version 6.0
local vl : variable label `1'
sret local varlabel `"`vl'"'
if `"`vl'"'=="" {
sret local varlabel `"`1'"'
exit
}
if index(`"`vl'"',"(")==0 & index(`"`vl'"',")")==0 {
exit
}
local l = index(`"`vl'"',"(")
while `l' {
local vl = trim(substr(`"`vl'"',1,`l'-1)+"["+substr(`"`vl'"',`l'+1,.))
local l = index(`"`vl'"',"(")
}
local l = index(`"`vl'"',")")
while `l' {
local vl = trim(substr(`"`vl'"',1,`l'-1)+"]"+substr(`"`vl'"',`l'+1,.))
local l = index(`"`vl'"',")")
}
sret local varlabel `"`vl'"'
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -