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/) Powered by Discuz! X3.3