为ahk脚本生成 Disuz! 代码高亮（转）

来自：http://forum.ahkbbs.cn/thread-12-1-1.html 
作了一点点修改，把注释里的替换了一下 

;----------------------------------- 
;生成 Discuz! 的 AHK 脚本高亮 
;ahk_func.h 函数 
;ahk_sh.h #开头的命令 
;ahk_a.h 内置变量 
;----------------------------------- 
#SingleInstance force 
#v:: 
content=%ClipBoard% 
FileRead, func, ahk_func.h 
FileRead, sh, ahk_sh.h 
FileRead, a, ahk_a.h 
content:=RegExReplace(content, "(;.*)", "$1") 
content:=RegExReplace(content, func, "$1") 
content:=RegExReplace(content, sh, "$1") 
content:=RegExReplace(content, a, "$1") 
content:=RegExReplace(content, "(/(|/)|/{|/})", "$1") 
content:=RegExReplace(content, "(/[color=red])(.*?)(/[color.*?/])(.*?)(/[/color/])(.*?)(/[/color/])", "$1$2$4$6$7") 
content:=RegExReplace(content, "(/[color=red])(.*?)(/[color.*?/])(.*?)(/[/color/])(.*?)(/[/color/])", "$1$2$4$6$7") 
content:=RegExReplace(content, "(/[color=red])(.*?)(/[color.*?/])(.*?)(/[/color/])(.*?)(/[/color/])", "$1$2$4$6$7") 
content:=RegExReplace(content, "(/[color=red])(.*?)(/[color.*?/])(.*?)(/[/color/])(.*?)(/[/color/])", "$1$2$4$6$7") 
content:=RegExReplace(content, "(/[color=red])(.*?)(/[color.*?/])(.*?)(/[/color/])(.*?)(/[/color/])", "$1$2$4$6$7") 
content:=RegExReplace(content, "(/[color=red])(.*?)(/[color.*?/])(.*?)(/[/color/])(.*?)(/[/color/])", "$1$2$4$6$7") 
ClipBoard=%content% 
ClipWait 
Send, ^v