如何从命令行确定Stata文件的ds_format？

Question

我把这个Perl一行放在一起来确定一些文件的Stata "ds_format“.

for file in *.dta; do perl -MParse::Stata::DtaReader -e 'open my $fileHandle, "<", @ARGV; my $dta = new Parse::Stata::DtaReader($fileHandle); print "$ARGV[0] is in STATA ds_format " . $dta->{ds_format} ,"\n\n";' $file; done

..。但是我假设有一种方法可以使用命令行stata命令来获取相同的信息。在那里吗?上面的脚本打印我的文件：

study1a.dta在STATA ds_format 113 study1b.dta在斯塔塔ds_format 115号 研究2.dta在STATA ds_format 115中

另请参阅：

• 113
• http://www.stata.com/help.cgi?dta
• http://search.cpan.org/dist/Parse-Stata-DtaReader/
• http://stat.ethz.ch/R-manual/R-devel/library/foreign/html/read.dta.html

Answer 1

现在，您只需读取文件的第一个字符即可确定版本。除了版本文件格式版本117 ( Stata 13的当前版本)之外，版本将存储在XML中，因此必须对此方法进行增强。

file open fhandle using dataset.dta, read binary
file read  fhandle %1s firstbytechar
file close fhandle
if "`firstbytechar'"=="<"{
    di "Version 117"
}
else {
    mata: st_numscalar("v", ascii("`firstbytechar'"))
    di "Version " v
}