renpfix.ado

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

*! version 2.1.1  22dec1998
program define renpfix
	version 6
	gettoken prefix 0 : 0
	gettoken new 0 : 0
	if trim(`"`0'"') != "" {
		error 198
	}

	local 0 "`prefix'*"
	syntax varlist
	tokenize `varlist'

	local loc = length("`prefix'") + 1
	while "`1'" != "" {
		local newn = "`new'" + substr("`1'",`loc',.)
		rename `1' `newn'
		mac shift
	}
end