Stata编程(讨论1)

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

以下程序仅作例示：

program mytest
  version 11
  args l1 l2
  sysuse auto,clear
  replace price=`l1'+`l2'
end

运行之后，输入命令：
mytest 4 5
就把price变量值替换为9

问题：
如何在程序中控制这种情况，比如多输或少输入一个数字，如： “mytest 4 5 6” 、“mytest 4”  会提示错误！

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：stata编程 Stata tata replace Version version replace price 程序 如何

这个问题很简单啊，不过怎么可能不会这个呢，加一些输出提示就好了啊

要看是什么语言，如果是C / java都可以控制(可以拿到参数的数量)，别的不熟

changbaiqz 发表于 2010-1-20 15:03
这个问题很简单啊，不过怎么可能不会这个呢，加一些输出提示就好了啊

怎么加！

原理应该是这样的吧：输入的数要存放到数组args中，要检测输入数字是否过多或过少，只需要查看一下数组args存放的数字个数就可以了。

eblog 发表于 2010-1-20 14:58
以下程序仅作例示：

program mytest
  version 11
  args l1 l2
  sysuse auto,clear
  replace price=`l1'+`l2'
end

运行之后，输入命令：
mytest 4 5
就把price变量值替换为9

问题：
如何在程序中控制这种情况，比如多输或少输入一个数字，如： “mytest 4 5 6” 、“mytest 4”  会提示错误！

cap program drop mytest
program mytest
  version 11
  args l1 l2
  if `"`2'"' ==""{
    dis as error "You must specify two arguments, not one!"
    exit
  }
  if `"`3'"' !=""{
    dis as error "You can not specify more than two arguments"
    exit
  }
  sysuse auto,clear
  replace price=`l1'+`l2'
end

arlionn 发表于 2010-1-20 17:25
cap program drop mytest
program mytest
  version 11
  args l1 l2
  if `"`2'"' ==""{
    dis as error "You must specify two arguments, not one!"
    exit
  }
  if `"`3'"' !=""{
    dis as error "You can not specify more than two arguments"
    exit
  }
  sysuse auto,clear
  replace price=`l1'+`l2'
end

3ks!

我原本是这样解决的，代码如下，供参考：

cap program drop mytest
program mytest
  version 11
  args l1 l2 l3
  while !("`l1'"!="" & "`l2'"!="") {
    dis as error "You must specify two arguments, not one!"
    exit
  }
  while "`l3'"!="" {
    dis as error "You can not specify more than two arguments"
    exit
  }
  sysuse auto,clear
  replace price=`l1'+`l2'
end

*试一下
pr mytest
  if wordcount("`0'")!=2{
    di in red "Too few or many numbers"
    exit
  }
  use auto,clear
  replace price=`1'+`2'
end

sungmoo 发表于 2010-1-20 21:09
*试一下
pr mytest
  if wordcount("`0'")!=2{
    di in red "Too few or many numbers"
    exit
  }
  use auto,clear
  replace price=`1'+`2'
end

这个更为简洁，好！