AHK 快餐店[16] 之 让 F2 更智能

AHK 快餐店[16] 之 让 F2 更智能 1
上回介绍了史上最强的 Alt + Tab,这回我们要学习的是 AHK 的数组。对本系列没兴趣的朋友对不起鸟。请直接略过。

以前用 Xplorer2 这款增强型资源管理器的时候,我就发现它一个很体贴的功能:当你重命名一个文件时,它会自动选中文件名,不会选中扩展名。后来用了 QT TabBar ,又开始怀念那个功能啦。今天的目标就是,实现它。隐藏了文件扩展名就没有这个选不选中扩展名的问题,我反正是喜欢让扩展名显示着。

脚本加解释。本次脚本下载:Google group(box 在我这里太慢了)。

~F2::
    ; 还记得 ~ 的用法么?
date = %clipboard%
    ; 先把剪贴板的内容保存下来。往往剪贴板里存放的就是文件的新名字。
send ^c
    ; 复制。为什么要复制呢?重命名的时候,系统会选中整个文件名。这时候就是复制了文件名(包括扩展名)

clipwait
StringSplit, pos, clipboard,`.
    ; 分解字符串函数 StringSplit,我们要把剪贴板的文字以“.”为分隔符进行分割。假如我们有一个文件叫 appinn.com.txt(以下都会以这个文件名来讲解),那么到这里它就会被分割成 appinn、com、txt 三个字符串。这三个字符串组成了一个数组 pos,我们要输出它们各自的值时候这样写:%pos1%(也就是输出了 appinn),%pos2%,%pos3% 。因为“.”是个特殊的符号,所以这里我们要用“`”这个转义符,还记得回车的转义符么?就是“`n”啦。

LastDot = % pos%pos0%
    ; 这句非常奇怪是吧?我们从后面开始说明,%pos0% 的值是 pos 数组的个数,继续上面的例子,那么这里 %pos0% 就是等于 3。“% pos%pos0%”就是数组中最后一个数!语法一定要这样写哦。到这里我们就把 txt(就是 pos3) 赋值给了 LastDot。

IfEqual, pos0, 1
    ; 如果重命名的是一个文件夹,假如一个文件夹的名字是不带点的,那么上面的分解字符串得到的数组元素只有 1 个。这样的话就会返回。
    return

StepCount := StrLen(LastDot)
    ; 获得最后一个数组元素的长度。继续例子,把 3 赋值给 StepCount,也就是说 txt 是由 3 个字符组成的。

send +^{end}
    ; 把光标移动到文件名的最后面。继续例子,现在的光标在最后一个 t 后面。

sleep 100
    ; 暂停一下,保证脚本的正常。

loop %StepCount%
{
    ; 开始循环,循环的次数是最后一个数组元素的长度(例子是循环 3 次)。

send {left}
    ; 那么这里就会把光标向左移动三次,也就说,光标现在在最后一个“.”的右边。

}
send {left}
    ; 再向做移动一次光标,相当于光标现在在在在最后一个“.”的左边。
send +^{home}
    ; 选中最后一个“.”的左边所有的文字,这时就选中了文件名(相当于选中了 appinn.com )。
clipboard = %date%
    ; 还原剪贴板
return

# sfufoet:暂停了 9 天的 AHK 快餐店,终于继续啦,最近工作挺忙的。我还发现一个有趣的现象,在资源管理器里面,不论你是右键重命名还是两次单击的重命名都会激活这个 F2 在桌面上就是不行。 ←看了读者 pluskid 的留言,我才发现 QT TabBar 原来就带有这个功能,我竟然画蛇添足。自我鄙视。 – –

说是更智能,其实也更笨蛋了,想修改扩展名的时候,就不爽鸟。

最后,tireless知道你的问题怎么解决了吧?

提示:先用 StringReplace, clipboard, clipboard, %A_SPACE%,, All 去除空格。

下期就不预告了,我还没决定好。

update:下回:AHK 快餐店[17] 之 秒杀 U 盘

27 条留言

  1. Paveo 2007/11/15 回复
  2. sfufoet 2007/11/15 回复
  3. helfee 2007/11/15 回复
  4. Sunny 2007/11/15 回复
  5. Sunny 2007/11/15 回复
  6. scavin 2007/11/15 回复
  7. pluskid 2007/11/15 回复
  8. 漫步 2007/11/15 回复
  9. sfufoet 2007/11/15 回复
  10. power 2007/11/15 回复
  11. sfufoet 2007/11/15 回复
  12. bowen 2007/11/16 回复
  13. sfufoet 2007/11/16 回复
  14. sfufoet 2007/11/16 回复
  15. tireless 2007/11/17 回复
  16. tireless 2007/11/17 回复
  17. tireless 2007/11/17 回复
  18. sfufoet 2007/11/17 回复
  19. Wingl83 2008/11/09 回复
  20. 8905438 2009/01/24 回复
    • sfufoet 2009/01/24 回复
  21. hzhbest 2009/04/03 回复
    • sfufoet 2009/04/03 回复
    • hzhbest 2009/04/03 回复
  22. highwind 2011/10/10 回复

写留言