尕程序

liusx2007

尕程序-GrADS

    该脚本程序可命名：aa.gs
    运行：gs->[路径]\aa.gs X   其中X是aa.gs中的第X个子程序。
    目的是想通过获取数值X来确定执行哪个函数(\或子程序)。
    想恭请各位grads高手指点，就WWW'('WWW')'或者"A00"WWW"(A00"WWW")"程序行应怎样编
写可调用其下面的子程序。
    北方人常说尕娃（含亲爱之意）。
    我想，只要能意识到尕程序的用处，在调试和运行gs时会给你带来不少方便。

下面脚本为aa.gs

** 运行方式：ga-> d:\gs\aa.gs X      ;**如X=21时，调用第21个子程序A021()
function A000(args)
   usage1="---请输入参数后运行！"
   usage2="---正在运行程序---A00"
   usage4="---程序运行通过！"

   if (args = '')
     say usage1 rc
     return
   else
     WWW=subwrd(args,1)
     say usage2 WWW
   endif

   if (WWW=1) ;A001(A001);endif
   if (WWW=2) ;A002(A002);endif
   if (WWW=3) ;A003(A003);endif
   ......
   ......
   return

function A001(arg)
   QQQ=subwrd(arg,1)
**"......"
   say usage4
   return

   function A002(arg)
   QQQ=subwrd(arg,1)
**"......"
   say usage4
   return
** ......
** ......

   function A010(arg)
**"......"
   say usage4
   return
   function A011(arg)
**"......"
   say usage4
   return
** ......
** ......

mofangbao

楼主可能有些固定思维了，只要把function分离出去就行了，就能实现通过标签对函数进行调用，其实是对脚本进行调用，因为调用函数的时候函数名不能为变量的，但是调用脚本的时候，脚本路径是可以为变量的，下面是我测试过的一个例子：

1. 
   
2. 'reinit'
   
3. say 'please input the function id'
   
4. pull id
   
5. func='F:\Code\GrADS\sample\reflection\func'%id
   
6. 'run 'func' 'id''
   
7. ;
   

<br /> 'reinit'<br /> say 'please input the function id'<br /> pull id<br /> func='F:\Code\GrADS\sample\reflection\func'%id<br /> 'run 'func' 'id''<br /> ;<br />

然后把函数脚本根据1-10分别生成10个，这样就能根据不同的参数进行调用了，比如脚本：

1. function func1(arg)
   
2. say 'call me with arg'arg
   
3. return
   

function func1(arg)<br /> say 'call me with arg'arg<br /> return<br />

运行结果如下：


GrADS是一种简单的脚本语言，不支持反射这种高级特性，变量作为函数名可能暂时还不能实现，不过也许是我见识不够，上面的方法虽然增加了文件数量，但是确实是有效的，注意函数脚本保存为gs文件，如果保存为gsf文件，要增加gsfallow。

mofangbao

liusx2007 发表于 2013-11-14 16:34

                               
登录/注册后可看大图

我是个新手，对GrADS理解浅，编程经验少，缺少变通。我的思维既然不能实现，也就不强求了。谢谢版主 ...

已经删掉了  下次不要重复发帖 否则可能会被扣分

liusx2007

尕程序求大家喜欢，并给大神小圣革命性的工作带去方便。

liusx2007

该尕程序推出6年了，只得到1人关注。实在是----