Stata编程(讨论6)

2010-2-6 11:01:15

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

注：可参考10楼和12楼

扫码加我拉你入群

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

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

maikal

2010-2-6 15:35:34

nice idea, fabulous

扫码加我拉你入群

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

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

2010-2-6 15:38:30

Exciting question!!

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

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

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

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

shell r.bat

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

扫码加我拉你入群

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

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

2010-2-6 15:48:36

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

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

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

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

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

shell r.bat

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

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

扫码加我拉你入群

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

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

2010-2-6 16:05:18

我写了个程序，做了个变通，等于是把部分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

扫码加我拉你入群

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

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

点击查看更多内容…

2010-2-6 16:14:55

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

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

扫码加我拉你入群

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

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

2010-2-6 16:25:13

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

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

嗯，如果能这样就太好了

扫码加我拉你入群

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

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

lidasage

2010-2-6 16:45:56

不错，受教了！

扫码加我拉你入群

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

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

2010-2-6 17:10:10

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)

扫码加我拉你入群

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

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

2010-2-6 17:31:51

*做了一个纯stata框架下的程序，相当于把dos命令译成stata命令：
*`anything'中前者是原文件名（含目录，可含通配符），后者是到达目录，两者要用双引号。
cap pr drop scopy
pr scopy
  syntax anything [,Replace]
  if strpos(`"`anything'"',`"""')==0{
n di as error "Directories or files should be enclosed by double quotes"
exit
  }
  token `"`anything'"',p(`"""')
  if "`3'"!=""{
n di as error "At most two directories/files can be input"
exit
  }
  if "`2'"=="" loc 2=c(pwd)
  _getfilename "`1'"
  loc from=substr("`1'",1,length("`1'")-length("`r(filename)'")-1)
  if "`from'"=="" loc from=c(pwd)
  loc files: dir "`from'" file "`r(filename)'"
  loc from="`from'"+"/"
  if `"`files'"'!=""{
  loc t=0
foreach x of loc files {
   if "`replace'"!="" copy "`from'`x'" "`2'",replace
   else {
      cap copy "`from'`x'" "`2'"
      if _rc {
      n di as error "`x' already existed in `2'"
      continue
      }
   }
   loc t=`t'+1
}
n di "`t' copied"
  }
  else n di as error "No proper file existed in `from'"
end

扫码加我拉你入群

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

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

2010-2-6 17:48:10

arlionn 发表于 2010-2-6 17:10

粗略程序如下，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)

搞定了，代码如下，加粗部分是修改过的：

cap program drop testdos
program define testdos
version 10
syntax , Find(string) TYpe(string) Dosfile(string) [TO(string)*]
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 `to'*.`type'" _n
file write `mydos' ")"
file close `mydos'
shell ren `dosfile'.txt `dosfile'.bat
shell `dosfile'.bat
end

测试方式：

set trace on
testdos, find(j) type(txt) dos(s) to(d:\)

扫码加我拉你入群

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

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

2010-2-6 18:03:05

有一个难点：文件名或目录名存在空格时的处理。

扫码加我拉你入群

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

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

2010-2-6 18:07:53

sungmoo 发表于 2010-2-6 18:03
有一个难点：文件名或目录名存在空格时的处理。

我在6楼给出的代码不存在这个问题
上面的纯DOS批处理命令好像还不行

扫码加我拉你入群

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

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

2010-2-6 18:19:19

sungmoo 发表于 2010-2-6 18:03
有一个难点：文件名或目录名存在空格时的处理。

可以用 gettoken 命令切割文件路径，然后使用 cd 命令进入指定目录。

简言之，用 stata 自有的功能处理 sungmoo 提出的问题，DOS 通配符只处理它能够实现的那些功能。

扫码加我拉你入群

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

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

2010-2-6 18:23:06

arlionn 发表于 2010-2-6 18:19
sungmoo 发表于 2010-2-6 18:03
有一个难点：文件名或目录名存在空格时的处理。
可以用 gettoken 命令切割文件路径，然后使用 cd 命令进入指定目录。

简言之，用 stata 自有的功能处理 sungmoo 提出的问题，DOS 通配符只处理它能够实现的那些功能。

呵呵，让Stata把该处理的处理完，剩下的再交由Dos完成

扫码加我拉你入群

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

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

2010-2-6 18:26:07

eblog 发表于 2010-2-6 18:23 呵呵，让Stata把该处理的处理完，剩下的再交由Dos完成

可以尝试：将stata"进行到底"。

扫码加我拉你入群

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

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

2010-2-6 18:31:10

sungmoo 发表于 2010-2-6 18:26
eblog 发表于 2010-2-6 18:23 呵呵，让Stata把该处理的处理完，剩下的再交由Dos完成
可以尝试：将stata"进行到底"。

调用Dos就是想利用一些网络资源，呵呵，拿来主义嘛
Dos对目录、文件和磁盘的控制能力恰好是对Stata的一个补充！

扫码加我拉你入群

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

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

2010-2-6 18:43:54

sungmoo 发表于 2010-2-6 18:26
eblog 发表于 2010-2-6 18:23 呵呵，让Stata把该处理的处理完，剩下的再交由Dos完成
可以尝试：将stata"进行到底"。

经测试，把6楼代码第16行去掉感叹号照样运行，
!copy "`x'" "`temp'"
呵呵，这样已经将stata"进行到底"了，而且修改后的代码对于不规则的文件名（包含空格等不规则字符）也可照常运行

扫码加我拉你入群

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

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

2010-2-6 18:47:17

eblog 发表于 2010-2-6 18:43 经测试，把6楼代码第16行去掉感叹号照样运行

其实，11楼不过就是在这样的基础上加了一些控制功能。

扫码加我拉你入群

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

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

2010-2-6 18:49:25

sungmoo 发表于 2010-2-6 18:47
eblog 发表于 2010-2-6 18:43 经测试，把6楼代码第16行去掉感叹号照样运行
其实，11楼不过就是在这样的基础上加了一些控制功能。

嗯，核心都是下面两句：

loc list: dir "`from'" file "`r(filename)'"
……
foreach x of loc list {
……
}

扫码加我拉你入群

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

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

2010-2-6 18:52:43

若只是进行erase、copy、mkdir、rmdir、rename、dir等操作，stata应该可以“独立”完成。

扫码加我拉你入群

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

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

2010-2-6 18:56:54

只要stata有命令能识别通配符，就可以借之操作。

另外，stata还有许多处理目录及文件名的特殊命令。

扫码加我拉你入群

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

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

ll5y

2010-2-6 19:03:10

受教了。。。

扫码加我拉你入群

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

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

2010-2-6 19:07:18

sungmoo 发表于 2010-2-6 18:26
eblog 发表于 2010-2-6 18:23 呵呵，让Stata把该处理的处理完，剩下的再交由Dos完成
可以尝试：将stata"进行到底"。

eblog 提出的问题就是想在stata的框架下，“嵌入”已有的 DOS 网络资源。

扫码加我拉你入群

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

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