iCAx开思工具箱

标题: 打开工作目录的GRIP程序 [打印本页]

作者: waykinghu 时间: 2010-5-26 11:04
标题: 打开工作目录的GRIP程序
目的:打开你当前使用部件的所在目录！
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

作者: waykinghu 时间: 2010-5-26 11:07
倒数第4行：jump/l25是多余的!没检查好，抱歉!

作者: hello_icax 时间: 2010-5-26 11:14
无私奉献,帮你顶一下!

作者: ugman 时间: 2010-5-26 21:00
学习了，谢谢。

作者: CUI821228 时间: 2010-6-8 21:48
找了很久，谢谢了

作者: 120612060a 时间: 2010-8-30 22:23
谢谢!!!!!!!

作者: hello_icax 时间: 2010-9-2 11:01
再次感谢楼主的奉献精神!

细看后,觉得程序有点长,算法复杂,可读性差.
小弟修改如下:
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

敬请批评指教,谢谢!

作者: shinhwakiki 时间: 2010-10-9 18:55
谢谢分享！！

作者: 705037184 时间: 2010-10-13 22:41
1# 顶

作者: zhangshuai0322 时间: 2010-10-15 22:05
我要学习二次开发，太牛了

作者: zmjacky 时间: 2012-12-10 12:34
学习了
谢谢分享

作者: feifanyoudian 时间: 2012-12-25 23:54
能否做指定打开D:\EDS\PART这个目录?
怎做呢?

作者: andes 时间: 2013-6-22 09:03
很好，谢谢！

作者: wjw8125 时间: 2013-8-24 09:04
顶一个，谢谢分享

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)