[已解决]哪位高手帮我精简下程序？
本帖最后由 392861168 于 2013-1-16 11:04 编辑这两天写个文件名替换的程序。功能倒是实现了，但是发现咋这么的长呢。思来想去后发上来让高手们看看能不能精简下。或者有其他思路也提供下。。。。#include<GUIConstantsEx.au3>Opt("GUIOnEventMode", 1) #region ### START Koda GUI section ### Form=D:\我的文档\Form1.kxf $Form1 = GUICreate("Form1", 389, 105, 192, 124) GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close") $Input1 = GUICtrlCreateInput("a00013a", 64, 24, 121, 21) $Button1 = GUICtrlCreateButton("Button1", 88, 58, 75, 25) GUICtrlSetOnEvent(-1, "Button1Click") GUISetState(@SW_SHOW) #endregion ### END Koda GUI section ### While 1 Sleep(100) WEnd Func Button1Click() MsgBox(1, '', ReName(GUICtrlRead($In 回复 1# 392861168
唉,又是一朵奇葩~~ 你说功能呗- -,完全看不懂你写的注释啥意思MsgBox(0,"",ren(InputBox("","")))
Func ren($name)
Local $n=StringRight($name, 1)
If (Asc($n)>96 And Asc($n)<122 ) Or (Asc($n)>47 And Asc($n)<57)Then;最后一位是a-y或0-8
Return StringReplace($name,$n,Chr(Asc($n)+1),-1);改为下一位
ElseIf Asc($n)=57Then;最后一位是9
Return $name&Chr(97);添加一位a
Else;最后一位是z或其他
Return $name&Chr(48) ;添加0
EndIf
EndFunc ;==>renB
这个是根据文件名最后一位命名.是数字0-8就+1,是9就加一位字母,字母排完了继续加一位数字 你说功能呗- -,完全看不懂你写的注释啥意思这个是根据文件名最后一位命名.是数字0-8就+1,是9就加一位字母,字 ...
lcz20 发表于 2013-1-15 20:42 http://www.autoitx.com/images/common/back.gif
谢谢lcz20 朋友关注！！
是的.根据后两位命名。数字1-8自动加1.数字9时前面的字母加一位（例如a9->b)以此类推。排到z9 之后再改变为aa->zz。因为要重命名的文件要符合很老的8+3的命名方式。前面不变的是6位数，只能变后两位 回复392861168
唉,又是一朵奇葩~~
annybaby 发表于 2013-1-15 19:44 http://www.autoitx.com/images/common/back.gif
兄弟，你眼中的奇葩可是个从怎么开机都靠自学的人哦。很多东西没有系统的学过，只能慢慢摸索加上厚脸皮求人教，以后还请多多指教。。。。 老实说，没看懂怎么变的 回复 5# 392861168
技术交流而已,"指教"二字,何以克当?? 楼主不如说说想实现如何变名。看不明白你的思路，懒得去啃~ 已经解决，谢谢大家关注。我的表达能力不行，实在说不清楚。具体可参考3楼lcz20 朋友代码。我要的只是比他的多一位字符串参与而已，稍作修改既可。这里再次谢谢lcz20 朋友 顶楼主，...
页:
[1]