打开工作目录的GRIP程序

只看该作者 · 发表于 2010-5-26 11:04:47

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

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

x

目的:打开你当前使用部件的所在目录！
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
jump/l25:

l25:
halt

只看该作者 · 发表于 2010-5-26 11:07:53

倒数第4行：jump/l25是多余的!没检查好，抱歉!

只看该作者 · 发表于 2010-5-26 11:14:54

无私奉献,帮你顶一下!

只看该作者 · 发表于 2010-5-26 21:00:01

学习了，谢谢。

只看该作者 · 发表于 2010-6-8 21:48:12

找了很久，谢谢了

只看该作者 · 发表于 2010-8-30 22:23:17

谢谢!!!!!!!

只看该作者 · 发表于 2010-9-2 11:01:22

再次感谢楼主的奉献精神!

细看后,觉得程序有点长,算法复杂,可读性差.
小弟修改如下:
STRING/dir(132),dir2(132)
dir=&pspec $$获取完整路径及文件名.
m=lenf(dir) $$计算总长.
DO/LA1:,i,m,1,-1 $$从字符串的末尾向前,逐个字符搜索'\',节约运行时间.
dir2=substr(dir,i,1)
if/cmpstr(dir2,'\')==0,jump/la2:
LA1:
la2:
dir2=substr(dir,1,i) $$截获路径.
l1:
xspawn/concur,prog,'C:\windows\explorer.exe '+dir2
halt

敬请批评指教,谢谢!

只看该作者 · 发表于 2010-10-9 18:55:19

谢谢分享！！

只看该作者 · 发表于 2010-10-13 22:41:28

1# waykinghu 顶

只看该作者 · 发表于 2010-10-15 22:05:44

我要学习二次开发，太牛了

[原创] 打开工作目录的GRIP程序

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