*----------------用户修改部分----------------------------
cd "D:stata15adopersonalNet_course"
local dta_file "gdpChina.dta"*-----------------无需变更部分---------------------------
use `dta_file', clear *将原dta文件备份至"backup files"文件夹中
cap mkdir "backup files"
copy `dta_file' "backup files", replace*对数据标签进行转码
local data_lbl: data label
local data_lbl = ustrfrom("`data_lbl'", "gb18030", 1)
label data "`data_lbl'"*对变量名、变量标签、字符型变量取值转码
foreach v of varlist _all {* 对字符型变量取值进行转码local type: type `v'   //将变量的类型放入宏type中if strpos("`type'", "str") {replace `v' = ustrfrom(`v', "gb18030", 1)   } //如果变量是字符型变量，使用ustrfrom()函数进行转码* 对变量标签进行转码//将变量的标签放入宏lbl中local lbl: var label `v'   //使用ustrfrom()函数对`lbl'转码local lbl = ustrfrom("`lbl'", "gb18030", 1) //将转码后的字符串作为变量的标签label var `v' `"`lbl'"'   * 对变量名进行转码//使用ustrfrom()函数将变量名字符串进行转码local newname = ustrfrom(`"`v'"', "gb18030", 1)   //将转码后的字符串重命名为变量名qui rename `v' `newname'
}*下面对数值标签进行转码
//将数值标签的程序保存到label.do中
//（如果原来dta数据是gb18030编码，则这里导出的do文件也是gb18030编码）
qui label save using label.do, replace
preserve //将do文件的内容用txt的方式导入一个变量之中
qui import delimited using label.do, ///varnames(nonames) delimiters("asf:d5f14d5d",asstring) encoding(gb18030) clear
qui describe
if r(N) == 0 {restoresave `dta_file', replace}else {qui levelsof v1, local(v1_lev)restoreforeach label_modify of local v1_lev {    //这个的foreach与前面的local(v_lev)对应，细节可查看帮助文件`label_modify'      //依次对原数据执行值标签替换操作} save `dta_file', replace  //将转码好的dta文件替换原来的dta文件}* 删除中间临时文件
erase label.do

*------------------------用户修改部分---------------------
// cd "D:stata15adopersonalNet_course"*-------------------------无需变更部分---------------------
local dir_dta: dir . files "*.dta", respectcase //windows系统需要加respectcase选项以区分大小写cap mkdir "backup files"  //建立备份文件夹
foreach dta_file of local dir_dta {qui copy `dta_file' "backup files", replace //将当前文件夹的dta数据备份至"backup files"文件夹中qui use `dta_file', clear*对数据标签进行转码local data_lbl: data labellocal data_lbl = ustrfrom("`data_lbl'", "gb18030", 1)label data "`data_lbl'"*对变量名、变量标签、字符型变量取值转码foreach v of varlist _all {* 对字符型变量取值进行转码local type: type `v'   //将变量的类型放入宏type中if strpos("`type'", "str") {replace `v' = ustrfrom(`v', "gb18030", 1)   //如果变量是字符型变量，使用ustrfrom()函数进行转码}* 对变量标签进行转码local lbl: var label `v'   //将变量的标签放入宏lbl中local lbl = ustrfrom("`lbl'", "gb18030", 1)   //使用ustrfrom()函数对`lbl'转码label var `v' `"`lbl'"'   //将转码后的字符串作为变量的标签* 对变量名进行转码local newname = ustrfrom(`"`v'"', "gb18030", 1)   //使用ustrfrom()函数将变量名字符串进行转码qui rename `v' `newname'   //将转码后的字符串重命名为变量名}*下面对数值标签进行转码qui label save using label.do, replace   //将数值标签的程序保存到label.do中preserve*- 将do文件的内容用txt的方式导入一个变量之中，然后再对该变量进行拉直qui import delimited using label.do, ///varnames(nonames) delimiters("asf:d5f15g4dsf9qw8d4d5d",asstring) encoding(gb18030) clearqui describeif r(N) == 0 {restoresave `dta_file', replace}else {qui levelsof v1, local(v1_lev)restoreforeach label_modify of local v1_lev {    //这个的foreach与前面的local(v_lev)对应，细节可查看帮助文件`label_modify' //依次对原数据执行值标签替换操作} save `dta_file', replace  //将转码好的dta文件替换原来的dta文件}* 删除中间临时文件erase label.do
}

*------------------------用户修改部分---------------------
cd "D:stata15adopersonalNet_course"*-------------------------无需变更部分--------------------
*将当前文件夹下的所有dta文件进行转码（第一层）
do "D:转码_单个文件夹.do"*将当前子文件夹下的所有dta文件进行转码（第二层）
local dir_list : dir . dirs "*", respectcase
foreach subdir of local dir_list {if "`subdir'" == "backup files" {continue //保留备份的原文件不动}cd "`subdir'"do "D:转码_单个文件夹.do"*将当前子子文件夹下的所有dta文件进行转码（第三层）local dir_list2 : dir . dirs "*", respectcaseforeach subdir2 of local dir_list2 {if "`subdir2'" == "backup files" {continue //保留备份的原文件不动}cd "`subdir2'"do "D:转码_单个文件夹.do"qui cd ..}qui cd ..
}