为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