[已解决]哪位高手帮我精简下程序？

392861168

这两天写个文件名替换的程序。功能倒是实现了，但是发现咋这么的长呢。思来想去后发上来让高手们看看能不能精简下。或者有其他思路也提供下。。。。[code]#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

annybaby

回复 1# 392861168

唉,又是一朵奇葩~~

lcz20

你说功能呗- -,完全看不懂你写的注释啥意思

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)=57  Then;最后一位是9
                Return $name&Chr(97);添加一位a
        Else;最后一位是z或其他
                Return $name&Chr(48) ;添加0
        EndIf
EndFunc   ;==>renB

这个是根据文件名最后一位命名.是数字0-8就+1,是9就加一位字母,字母排完了继续加一位数字

392861168

你说功能呗- -,完全看不懂你写的注释啥意思这个是根据文件名最后一位命名.是数字0-8就+1,是9就加一位字母,字 ...
lcz20 发表于 2013-1-15 20:42

谢谢lcz20 朋友关注！！
是的.根据后两位命名。数字1-8自动加1.数字9时前面的字母加一位（例如a9->b)以此类推。排到z9 之后再改变为aa->zz。因为要重命名的文件要符合很老的8+3的命名方式。前面不变的是6位数，只能变后两位

392861168

回复  392861168

唉,又是一朵奇葩~~
annybaby 发表于 2013-1-15 19:44

兄弟，你眼中的奇葩可是个从怎么开机都靠自学的人哦。很多东西没有系统的学过，只能慢慢摸索加上厚脸皮求人教，以后还请多多指教。。。。

netegg

老实说，没看懂怎么变的

annybaby

回复 5# 392861168

技术交流而已,"指教"二字,何以克当??

haijie1223

楼主不如说说想实现如何变名。看不明白你的思路，懒得去啃~

392861168

已经解决，谢谢大家关注。我的表达能力不行，实在说不清楚。具体可参考3楼lcz20 朋友代码。我要的只是比他的多一位字符串参与而已，稍作修改既可。这里再次谢谢lcz20 朋友

wsfda

顶楼主，...