Stata编程(讨论6)

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如何在Stata程序中调用DOS程序？如：

@echo off&setlocal enabledelayedexpansion
for %%a in (*j*.txt) do (
copy %%a d:\*.txt
)

1.把以上DOS程序代码用记事本保存为DOS批处理文件：r.bat ，
2.双击文件 r.bat 将把当前目录中所有名字中带有字母j的txt文档Copy至D盘根目录下

问题：

请问如何编写Stata程序调用以上DOS程序，且能够将代码中的加黑部分指定为可变参数？
假设编好的Stata命令为 mytest.ado，在Stata中执行：mytest doc k*, t(E:\) 则把当前目录中所有以k开头的doc文档Copy至E盘根目录下
（PS：个人感觉比较难处理的是上面DOS代码中的循环）

此讨论的意义：

考虑到网络诸多可自由下载的DOS程序原代码，加上DOS对目录、文件和磁盘的强大处理能力，如果能用Stata自由调用DOS程序，应该是有较好的应用意义的

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏8 回帖

关键词：stata编程 Stata tata Expansion stata程序 记事本 根目录 程序 如何 字母

以上DOS程序代码仅作例示，

注：可参考10楼和12楼

nice idea, fabulous

Exciting question!!

经测试，可采用如下方式直接执行 dos 批处理程序。

在stata中输入 shell ，则可弹出 DOS 命令窗口，在此处直接输入 r.bat 命令，回车即可。

因此，所有DOS命令都可以通过stata界面执行。使用之前，只需输入 shell 命令转换界面即可。


补充一句，上述过程可直接在stata执行如下命令完成：

shell r.bat

也就是说，stata可以直接执行 DOS 批处理程序。

arlionn 发表于 2010-2-6 15:38
Exciting question!!

经测试，可采用如下方式直接执行 dos 批处理程序。

在stata中输入 shell ，则可弹出 DOS 命令窗口，在此处直接输入 r.bat 命令，回车即可。

因此，所有DOS命令都可以通过stata界面执行。使用之前，只需输入 shell 命令转换界面即可。


补充一句，上述过程可直接在stata执行如下命令完成：

shell r.bat

也就是说，stata可以直接执行 DOS 批处理程序。

呵呵，谢谢！
但问题还没有解决，如何指定参数才是关键

我写了个程序，做了个变通，等于是把部分DOS代码“翻译”成了Stata代码，稍显复杂，还有没有更简便的方法？最好是能直接调用DOS程序，又能指定参数的那种。

注：以下代码运行（程序仅在Windows操作系统测试通过）后，执行：mytest dta, f(g) t(d:\)，将把当前目录中所有名称中包含字母g的dta文件Copy至D盘根目录中，并统计出Copy的文件总数：

capture prog drop mytest
prog define mytest
    version 9
    syntax anything(name=clist)[, Find(string) To(string)]
    if "`to'"!=""{
        local mydir="`to'\"
    }
    else {
        local mydir=""
    }
    local list: dir "`r(cmd)'" files"*.`clist'"
    local n=0
    foreach x of local list {        
        if strpos("`x'","`find'")!=0{
            local temp="`to'"+"`x'"
            !copy "`x'" "`temp'"
            local n=`n'+1
        }        
    }
    di as result _n "`n' " as txt "files copy to " as result " `to'"
end

我觉得最好能编写一个“读写”文件的程序，把stata输入项中的参数传递给 DOS 命令集，然后输出新定义的 DOS 批处理文件，命名为 *.bat。整个过程相当于在修改 DOS 批处理文件。
接下来，只需执行 shell *.bat 文件即可。
这种处理方法的好处是，只需很少的修改就可以在stata中使用现有的 DOS 批处理文件了。

基本原则：尽可能少地改动 DOS 批处理文件，stata只发挥参数传递功能。

arlionn 发表于 2010-2-6 16:14
我觉得最好能编写一个“读写”文件的程序，把stata输入项中的参数传递给 DOS 命令集，然后输出新定义的 DOS 批处理文件，命名为 *.bat。整个过程相当于在修改 DOS 批处理文件。
接下来，只需执行 shell *.bat 文件即可。
这种处理方法的好处是，只需很少的修改就可以在stata中使用现有的 DOS 批处理文件了。

基本原则：尽可能少地改动 DOS 批处理文件，stata只发挥参数传递功能。

嗯，如果能这样就太好了

不错，受教了！

eblog 发表于 2010-2-6 16:25

arlionn 发表于 2010-2-6 16:14
我觉得最好能编写一个“读写”文件的程序，把stata输入项中的参数传递给 DOS 命令集，然后输出新定义的 DOS 批处理文件，命名为 *.bat。整个过程相当于在修改 DOS 批处理文件。
接下来，只需执行 shell *.bat 文件即可。
这种处理方法的好处是，只需很少的修改就可以在stata中使用现有的 DOS 批处理文件了。

基本原则：尽可能少地改动 DOS 批处理文件，stata只发挥参数传递功能。

嗯，如果能这样就太好了

粗略程序如下，TO(string) 选项尚未处理，留给 eblog 吧。

*------------------------------------------------

cap program drop testdos
program define testdos
version 10
   syntax , Find(string) TYpe(string) Dosfile(string) [TO(string)]
   
   * error: only one word in `find'  
   * error: `type' .doc or just doc
   tempname mydos
   file open `mydos' using "`dosfile'.txt", write replace
   file write `mydos' "@echo off&setlocal enabledelayedexpansion" _n
   file write `mydos' "for %%a in (*`find'*.`type') do ( " _n
   file write `mydos' "copy %%a d:\*.txt" _n  // 此处尚未设定文件路径
   file write `mydos' ")"
   file close `mydos'
   shell rename `dosfile'.txt `dosfile'.bat
   shell `dosfile'.bat
   
end
exit
*------------------------------------------------


测试方式：

set trace on
testdos, find(j) type(txt) dos(s)