stata15中文乱码_一次性解决Stata中文乱码问题

在导入Stata时可能存在中文乱码问题，在stata15中可以通过unicode来解决：

help unicode

按照help文档，核心的转码步骤其实就三步

但是仅按照help文档无法对文档进行批量处理，而下载的数据中大多有多个需要转码的文件。对此，连老师已经写了ua程序来解决。不过ua程序仍然需要两步，为了进一步简化流程，想达到只需要告诉文件夹路径，就转码文件夹下面所有文件的效果，尝试参照ua命令写了如下的程序供大家参考，冒昧叫uaone吧。

使用方法如下：

uaone, d("E:\数据") // 默认转码为gb18030

* 如果需要对特定的.dta文件类型进行编码

uaone, d("E:\数据") f(dta)

* 采用其他编码类型

uaone, d("E:\数据") set(ibm-1392)

源代码如下，由于没有发布，需要大家把代码copy到Stata的"Do-file"里面运行一次，然后就可以正常使用啦。

使用过程中肯定存在很多bug，请多多赐教。。。

cap program drop uaone

program uaone

version 13.0

syntax [anything(everything)], Direction(string asis) [set(string asis) RETRanslate ///

TRansoption(string asis) Filetype(string asis)]

/*

Direction: Direction of the folder containing ".dta" files needing translation.

set: Set an encoding type. Please type "unicode encoding list" for details.

TRansoption: Options of "encoding translate", including "invalid(escape|mark|ignore)"

"transutf8" "nodata" "replace (only when "reranslate" is specified)".

RETRanslate: To do "unicode retranslate"

Filetype: Default is to translate all file types.

*/

preserve

clear

*test

capture cd `direction'

if _rc != 0{

di as error ///

"Unable to load the directions. Please double check the {bf:direction} you entered."

exit 111

}

*Options settings

local currdir `c(pwd)'

local set gb18030

local option

local transchoice "translate"

local file "*"

if "`transoption'"!= ""{

local option "`transoption'"

}

if "`set'"!=""{

local setting "`set'"

}

if `"`retranslate'"'!=`""'{

local transchoice "retranslate"

}

if `"`filetype'"'!=`""'{

local file "*.`filetype'"

}

di in w _dup(35) "="

di "{it: Translate Start}"

di in w _dup(35) "="

di _n(1)

di in w "Files in the following directories"

di in w "are to be analyzed or translated:"

cap ssc install rcd

rcd // get the list of all sub-directories

forvalues i = 1(1)`r(tdirs)'{

local dir`i' `"`r(ndir`i')'"'

}

di _n

di in w _dup(35) "-"

di "translating"

di in w _dup(35) "-"

forvalues i = 1(1)`r(tdirs)'{

qui cd `"`dir`i''"'

local filename: dir . files "`file'",respectcase

if `"`filename'"' != ""{

foreach fn of local filename{

qui unicode encoding set "`set'"

qui unicode `transchoice' `"`fn'"',`option'

di _n

di "■" _s(2) `"`fn' {it:`transchoice' completed}"'

}

}

else{

continue

}

}

di _n(1)

di in w _dup(35) "="

di "{it: Translation Completely}"

di in w _dup(35) "="

restore

qui cd `currdir'

end