Stata: 苹果(MAC)用户的 shellout

作者：老连

本期责任编辑：王俊

Stata 连享会： 知乎 | 简书 | 码云

Q: 苹果(MAC)用户无法使用 shellout 命令吗？

A: 当然可以！

特别说明

文中包含的链接在微信中无法生效。请点击本文底部左下角的【阅读原文】，转入本文【简书版】。

---

• 方法1： 使用 !open 命令替代 Windows 系统下的 shellout 命令；好处是，无需下载任何新命令。

• 方法2： 使用暨南大学 程振兴 写的 copen 命令。该命令可以同时在 Windows 和 Mac 系统下运行，完美替代此前的 shellout 命令。但对于 Windows 老用户而言 (以后也不准备使用 Mac)，没有必要使用该命令。

copen：另一个 shellout （both Windows and Mac）

• 优点： 同时适用于 Mac 和 Windows 的打开工具

• Source: 转自 程振兴博客  → copen：适用于Mac和Windows的打开工具

文件下载

copen.ado  https://www.czxa.top/asset/copen.ado
copen.sthlp https://www.czxa.top/asset/copen.sthlp

使用方法： 保存到 Stata 安装目录下的 ..\plus\c 文件夹中即可。(Note: 可以使用 sysdir 查看你的文件路径)。

高级设定 (未测试，风险自担)

苹果用户 使用 shellout 功能的低成本解决方案：

• 用 copen 的代码替换 shellout 的代码，覆盖掉 shellout.ado 即可。好处是不用更改我讲义中的代码。
  

否则，你就只能将我讲义中的所有 shellout 都替换成 !open  了。

---

附：适用于 Mac 和 Windows 的 打开工具 (程振兴)

这个命令是从 outreg2 包中的 shellout 命令修改而来。shellout 命令只能用于Windows 系统，因此为了方便自己使用，我对其进行了稍微的改写使之也适用与 Mac 系统。

运行 ssc install outreg2 命令即可安装 shellout 命令，打开 shellout.ado 即可看到它的源代码：

1. program define shellout

2. version 7.0

3. syntax [anything] [using/] [,cd]

4. * does the shelling

5. if "`c(os)'"=="Windows" | "$S_MACH"=="PC" {

6.        if "`using'"~="" {

7.                winexec cmd /c start ""  "`using'"

8.        }

9.        else {

10.                if "`cd'"~="cd" {

11.                        cap winexec `anything'

12.                        if _rc==193 {

13.                                winexec cmd /c start ""  "`anything'"

14.                        }

15.                        if _rc==601 {

16.                                noi di in yel "Cannot find `anything'. Make sure typed the name correctly."

17.                        }

18.                }

19.                else {

20.                        winexec cmd /c cd `c(pwd)'\ &  `anything'

21.                }

22.        }

23. }

24. else {

25.        * invisible to Stata 7

26.        local Version7 ""

27.        cap local Version7 `c(stata_version)'

28.        if "`Version7'"=="" {

29.                * stata 7

30.        }

31.        else {

32.                * non-PC systems

33.                di "{opt shellout} probably will not work with `c(os)'"

34.                shell `using'

35.        }

36. }

37. end

很容易发现，在这个程序里面进行了操作系统的判断，针对于非Windows系统的电脑会显示运行else部分，即无法使用，所以我们只需要改造一下else部分即可。Mac的shell命令——open有类似的功能，所以就直接放进去就好了，即：

1. *! 打开指定文件、网址、文件夹

2. *! 程振兴 2018年7月13日

3. cap prog drop copen

4. prog define copen

5. version 7.0

6. syntax [anything] [using/] [,cd]

7. if "`c(os)'"=="Windows" | "$S_MACH"=="PC" {

8. if "`using'"~="" {

9. winexec cmd /c start ""  "`using'"

10. }

11. else {

12. if "`cd'"~="cd" {

13. cap winexec `anything'

14. if _rc==193 {

15. winexec cmd /c start ""  "`anything'"

16. }

17. if _rc==601 {

18. noi di in yel "找不到`anything'."

19. }

20. }

21. else {

22. winexec cmd /c cd `c(pwd)'\ &  `anything'

23. }

24. }

25. }

26. else {

27. !open "`anything'"

28. }

29. end

为了区别原来的shellout命令，我将这个命令命名为copen。

文件下载：

copen.ado  https://www.czxa.top/asset/copen.ado
copen.sthlp https://www.czxa.top/asset/copen.sthlp

特别说明

文中包含的链接在微信中无法生效。请点击本文底部左下角的【阅读原文】，转入本文【简书版】。

关于我们

• 【Stata 连享会(公众号：StataChina)】由中山大学连玉君老师团队创办，旨在定期与大家分享 Stata 应用的各种经验和技巧。

• 公众号推文同步发布于 CSDN-Stata连享会 、简书-Stata连享会 和 知乎-连玉君Stata专栏。可以在上述网站中搜索关键词Stata或Stata连享会后关注我们。

• 点击推文底部【阅读原文】可以查看推文中的链接并下载相关资料。

• Stata连享会 精彩推文1  || 精彩推文2

联系我们

• 欢迎赐稿： 欢迎将您的文章或笔记投稿至Stata连享会(公众号: StataChina)，我们会保留您的署名；录用稿件达五篇以上，即可免费获得 Stata 现场培训 (初级或高级选其一) 资格。

• 意见和资料： 欢迎您的宝贵意见，您也可以来信索取推文中提及的程序和数据。

• 招募英才： 欢迎加入我们的团队，一起学习 Stata。合作编辑或撰写稿件五篇以上，即可免费获得 Stata 现场培训 (初级或高级选其一) 资格。

• 联系邮件： [e-mail]

往期精彩推文

欢迎加入Stata连享会(公众号: StataChina)