发一个skill源码上来,好像有人想法跟我一样

gpxknk

1. axlCmdRegister("wxsf" 'wxSaveFileBT)
   
2. axlShell("alias sf wxsf")
   
3. ;axlShell("alias k wxsf")
   
4. ;axlShell("alias kk skill 'load(\"wxSaveFileBT.il\")'")
   
5. 
   
6. /*
   
7. ├─
   
8. │ ├─        程序名称：
   
9. │ ├─        程序功能：保存文件，并注上(覆盖)当前时间
   
10. │ ├─        创建时间：2012年08月22日
    
11. │ ├─        修改时间：
    
12. │ ├─        作    者：gpxknk
    
13. │ └─        备    注：本来想保持原先格式才用了s1-s5，但后来觉得统一好点，即XXX-1630.brd
    
14. ├─
    
15. 
    
16. */
    
17. procedure( wxSaveFileBT()
    
18. prog( (tm sTime sDName sDNameNew s1 s2 s3 s4 s5)
    
19.         tm= timeToTm(stringToTime(getCurrentTime()))
    
20.         ;tm->tm_year        ;tm->tm_mon
    
21.         sTime= sprintf(nil,"%2d%2d",tm->tm_hour,tm->tm_min)
    
22.         rexCompile(" ")
    
23.         sTime= rexReplace(sTime,"0",0)
    
24.         sDName= axlCurrentDesign()        ;axlGetDrawingName
    
25.         if(strlen(sDName)< 5 then
    
26.                 sDNameNew= strcat(sDName,"-",sTime)
    
27.         else
    
28.                 rexCompile( "^\\(.+\\)\\([-_]+\\)\\([0-2][0-9]\\)\\([\\._-]*\\)\\([0-5][0-9]\\)$" ) ;-18.30.brd        _18.30.brd        _1830.brd
    
29.                 if(rexExecute(sDName) then
    
30.                         s1= rexSubstitute( "\\1" )
    
31.                         s2= rexSubstitute( "\\2" )
    
32.                         s3= rexSubstitute( "\\3" )
    
33.                         s4= rexSubstitute( "\\4" )
    
34.                         s5= rexSubstitute( "\\5" )
    
35.                         sDNameNew= strcat(s1,"-",sTime)
    
36.                 else
    
37.                         sDNameNew= strcat(sDName,"-",sTime)
    
38.                 );if
    
39.         );if
    
40.         axlSaveDesign(?design sDNameNew)
    
41.         printf("Save:[%s]-->[%s]\n",sDName,sDNameNew)
    
42. );prog
    
43. );procedure

复制代码

以下为24日修改后的,增加了日期

1. axlCmdRegister("wxsf" 'wxSaveFileBT)
   
2. axlShell("alias sd wxsf date")
   
3. axlShell("alias sf wxsf time")
   
4. ;axlShell("alias k wxsf")
   
5. ;axlShell("alias kk skill 'load(\"wxSaveFileBT.il\")'")
   
6. 
   
7. /*
   
8. ├─
   
9. │ ├─        程序名称：
   
10. │ ├─        程序功能：保存文件，并注上(覆盖)当前时间（日期）
    
11. │ ├─        创建时间：2012年08月22日
    
12. │ ├─        修改时间：
    
13. │ ├─        作    者：gpxknk
    
14. │ └─        备    注：
    
15. ├─
    
16. 
    
17. 2012年08月22日 统一格式，即XXX-1630.brd
    
18. 2012年08月24日 添加日期，同时保持两种格式
    
19. 
    
20. 命令行指令：
    
21.         sd : 保存为 XXX_MMdd_hhmm.brd
    
22.         sf : 保存为 XXX_hhmm.brd,也可能是 XXX_MMdd_hhmm.brd（只修改时间）
    
23. 对于sD1 sD2 sT1 sT2:
    
24.         sD1;日期前缀 eg: _X0824_1200.brd
    
25.         sD2;日期后缀 eg: _0824X_1200.brd
    
26.         sT1;时间前缀 eg: _0824_X1200.brd
    
27.         sT2;时间后缀 eg: _0824_1200X.brd
    
28.         1.以上也是无奈之举，不同的公司规则不一样，但连接符还是统一用"_",而"-"说实在的不规范
    
29.         2.而日期（时间）中间不要插符号，如时间：_16.30.brd,"."用在基本文件名上说实在的也不规范
    
30.         3.不要出现'空格','.','\',':','?'等等等等字符
    
31. 
    
32. */
    
33. 
    
34. procedure( wxSaveFileBT(@optional (mode "date") )
    
35. prog( (tm sDate sTime sDName sDNameNew sPre sPost pt sD1 sD2 sT1 sT2)
    
36.         sD1= ""
    
37.         sD2= ""
    
38.         sT1= ""
    
39.         sT2= ""
    
40.         sDName= axlCurrentDesign()        ;axlGetDrawingName
    
41.         tm= timeToTm(stringToTime(getCurrentTime()))
    
42.         sTime= sprintf(nil,"_%s%2d%2d%s",sT1,tm->tm_hour,tm->tm_min,sT2)
    
43.         sDate= sprintf(nil,"_%s%2d%2d%s%s",sD1,tm->tm_mon + 1,tm->tm_mday,sD2,sTime)        ;;tm->tm_year
    
44.         rexCompile(" ")
    
45.         sTime= rexReplace(sTime,"0",0)
    
46.         sDate= rexReplace(sDate,"0",0)
    
47.         case(mode
    
48.                 ("time" pt= strcat("^\\(.+\\)[-_]+",sT1,"[0-2][0-9]\\.*[0-5][0-9]",sT2,"$"),sPost=sTime)
    
49.                 ("date" pt= strcat("^\\(.+\\)[-_]+",sD1,"[0-1][0-9][0-3][0-9]",sD2,"[-_]+",sT1,"[0-2][0-9]\\.*[0-5][0-9]",sT2,"$"),sPost=sDate)
    
50.                 (t printf("ERROR:wxSaveFileBT: 'wxsf' argument error,\n"),return(nil))
    
51.         );case
    
52.         rexCompile(pt)
    
53.         if(rexExecute(sDName) then
    
54.                 sPre= rexSubstitute( "\\1" )
    
55.                 sDNameNew= strcat(sPre,sPost)
    
56.         else
    
57.                 sDNameNew= strcat(sDName,sPost)
    
58.         );if
    
59.         axlSaveDesign(?design sDNameNew)
    
60.         printf("Save: [ %s ] --> [ %s ]\n",sDName,sDNameNew)
    
61. );prog
    
62. );procedure
    

复制代码

Ringo1005

請問各位大神 如果存檔日期時間要放在檔案名前方 小弟該如何修改此份skill

mike9016

gpxknk 发表于 2012-8-24 10:56
你的要求很高哟,不过这不是无人值守系统装机啊,
我觉得能不能自动覆盖不重要吧,这不是定时保存呀
今天加 ...

嗯，加个日期就行了。

gpxknk

mako88 发表于 2012-8-23 13:23
只能保存当前的时间，年份和月份不能改；还有，就是在一分钟内保存，不能自动覆盖。

你的要求很高哟,不过这不是无人值守系统装机啊,
我觉得能不能自动覆盖不重要吧,这不是定时保存呀
今天加上了日期,,不过对于你说的年份?是你打错了吗?板子名字有会加上年份的吗?一年365天,这周期长了点吧.

wolf343105

这个很有用.

glater

这个貌似很有用的！

mike9016

gpxknk 发表于 2012-8-23 13:53
呵,
每个人的要求都可能会不一样,我发的是源码呀,你们可以按自己的要求去改的呀,
上面源码中的功能我 ...

请问 年月 是怎么加的。

gpxknk

mako88 发表于 2012-8-23 13:23
只能保存当前的时间，年份和月份不能改；还有，就是在一分钟内保存，不能自动覆盖。

呵,
每个人的要求都可能会不一样,我发的是源码呀,你们可以按自己的要求去改的呀,
上面源码中的功能我应该说得很清楚了,只动时间,没有加年月,
框架都出来了,改改很容易的哈.....
至于你说的一分钟内你要覆盖.-----这样吧,你直接Ctrl+S,加回车,{:soso_e151:}
或者你判断一下是否已经存在同名文件,然后..........

mike9016

gpxknk 发表于 2012-8-23 10:20
这一行应该是这样的

只能保存当前的时间，年份和月份不能改；还有，就是在一分钟内保存，不能自动覆盖。

gpxknk

mako88 发表于 2012-8-23 09:22
请问：怎么用啊？我怎么总是出现
Command > wxsf
E- *Error* toplevel: undefined variable - wxSaveFile ...

1. rexCompile( "^\\(.+\\)\\([-_]+\\)\\([0-2][0-9]\\)\\([\\._-]*\\)\\([0-5][0-9]\\)$" ) ;-18.30.brd        _18.30.brd        _1830.brd

复制代码

这一行应该是这样的

mike9016

请问：怎么用啊？我怎么总是出现
Command > wxsf
E- *Error* toplevel: undefined variable - wxSaveFileBT
是什么原因啊？

mike9016

jekyllcao 发表于 2012-8-22 23:11
自动保存只是把将文件以原来的文件名再存一遍，文件名没有改变，只是新保存的文件取代旧的文件。我们写的 ...

噢~  look look{:soso_e113:}

jekyllcao

mako88 发表于 2012-8-22 20:32
和自动保存 有什么区别吗？

自动保存只是把将文件以原来的文件名再存一遍，文件名没有改变，只是新保存的文件取代旧的文件。我们写的程式是在保存文件时时时跟系统的时间同步，每次保存的文件名都不一样。

jekyllcao

gpxknk 发表于 2012-8-22 21:42
如果你要用这种方式,那么你就直接替换吧,很直接的方法,1-12月,执行12次替换,不过怕不同的系统设置不一样这 ...

你说的非常有道理，你不介意的话我拿你的代码为基础修改成我想要的样式，谢谢指教~~~

gpxknk

请deargds 出来再修改一下,这个网页的文本转代码显示的程序怎么把$变成了
[        DISCUZ_CODE_0        ]quot;
我怕我去改会丢失你改的格式.{:soso_e100:}