xspawn和Dopen在grip中的应用

只看该作者 · 发表于 2010-11-10 22:43:45

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

x

xspawn和Dopen在grip中的应用

最终目的：打开UG所打开的文件的目录即打开UG当前工作目录

当前目录的代码是？

只看该作者 · 发表于 2010-12-29 20:20:27

STRING/dir(132),dir2(132)
$$====================================================
dir=&pspec
m=lenf(dir)
n=1
DO/LA1:,num,1,m,1
n1=fndstr(dir,'\',n)
ifthen/n1==0
jump/la2:
else
n2=n1
n=n1+1
endif
LA1:
la2:
dir2=substr(dir,1,n2)
l1:
xspawn/concur,prog,'C:\windows\explorer.exe '+dir2
trm:
halt

BY CUI

只看该作者 · 发表于 2012-2-28 22:31:18

谢谢，学习了

只看该作者 · 发表于 2012-12-10 12:35:30

学习了

[求助] xspawn和Dopen在grip中的应用

马上注册，结交更多同行朋友，交流，分享，学习。