AHK ahk1.11 -2

`
;🎁🎁🎁🎁🎁🎁🎁🎁🎁🎁🎁 颜色处理 🎁🎁🎁🎁🎁🎁🎁🎁🎁🎁🎁
;👔👔👔👔👔👔👔👔👔👔👔 段落处理 👔👔👔👔👔👔👔👔👔👔👔

#F2::
if (onoff := !onoff)
{
Send {home}
}
else
{
Send {end}
keywait, F2
}
Return
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ #F2 行首行尾 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 09-2625

#F3::
if (onoff := !onoff)
{
Send #!{home}
}
else
{
Send #!{end}
keywait, F3
}
Return
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ #F3 段首段尾 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 10 -2638

#F4::
if (onoff := !onoff)
{
send, ^a{left}
}
else
{
send, ^a{right}
keywait, F4
}
Return
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ #F4 页首页尾 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 11-2651

;👔👔👔👔👔👔👔👔👔👔👔 段落处理 👔👔👔👔👔👔👔👔👔👔👔
;🎀🎀🎀🎀🎀🎀🎀🎀🎀🎀🎀 空行处理 🎀🎀🎀🎀🎀🎀🎀🎀🎀🎀🎀

F6 & 1::
Clipboard := ""
Send, ^c
ClipWait, 2
Clipboard := RegExReplace(Clipboard, "(\R\s*){2,}", "rnrn")
Send, ^v
return
; 当我们使用 "rn" 时，它只会将光标移动到下一行的开始，但不会创建一个空行。使用 "rnrn" 实际上是创建了两个连续的换行符，这就会产生一个空行的效果.
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ F6 & 1 选中合并多行空行为１行 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 12-2665

F6 & 2::
SetWorkingDir, %A_ScriptDir% ; 设置工作目录

; 复制内容到剪贴板
Send, ^c
ClipWait, 2
sleep, 200
if ErrorLevel
{
MsgBox, 复制失败或超时
return
}

; 处理剪贴板内容
text := Clipboard
text := StrReplace(text, "`r") ; 移除所有回车符

; 使用数组存储非空行
lines := StrSplit(text, "`n")
output := ""

for index, line in lines
{
if (line != "") { ; 忽略空行
output .= line . "`n"
}
}

; 移除最后一个换行符
output := RTrim(output, "`n")

; 将结果写回剪贴板
Clipboard := output
Send, ^v

return
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ F6 & 2 选中删除空行 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 13-2706

F6 & 3::
Clipboard := ""
Send, ^c
ClipWait
Clipboard := RegExReplace(Clipboard, "\R", "rnrn")
Send, ^v
return ;-------回车变换行即增加一行
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ F6 & 3 选中添加空行 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 14-2715

F6 & 4::
clipboard =
send, ^c
sleep, 100
a = %clipboard%
stringreplace, out, a, ,n, All
send, %out%
return ;-------回车变换行即增加一行．和上面的区别：空格处也变换行　
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ F6 & 4 选中空格及回车变换行 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 15-2725

F6 & 5::
Clipboard := "" ; 清空剪贴板
Send, ^c ; 发送 Ctrl+C 复制选中的文本
ClipWait, 1 ; 等待最多 1 秒，直到剪贴板有内容
if (ErrorLevel) {
MsgBox, 剪贴板没有内容，请确保已选中文本。
return
}
; 使用更简单的正则表达式来替换换行符
Clipboard := RegExReplace(Clipboard, "\s*[\r\n]+\s*", "") ; 替换多个换行符为空格
Send, ^v ; 粘贴处理后的内容
return
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ F6 & 5 多行文字合并成一行 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 16-2739

;🎀🎀🎀🎀🎀🎀🎀🎀🎀🎀🎀 空行处理 🎀🎀🎀🎀🎀🎀🎀🎀🎀🎀🎀
;🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️ 空格处理 🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️

F6 & 6::
Clipboard := ""
Send, ^c
ClipWait
Clipboard := RegExReplace(Clipboard, "[ \R]+", "$1")
sleep, 400
send, ^v
return
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ F6 & 6 选中删除空格 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 17-2752

F6 & 7::
Clipboard := ""
Send, ^c
ClipWait
Clipboard := RegExReplace(Clipboard, "[ \R]+", " ")
sleep, 400
send, ^v^a
return
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ F6 & 7 选中多个空格变一个 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 18-2762

F6 & 8::
Clipboard := ""
Send, ^c
ClipWait
Clipboard := RegExReplace(Clipboard, "m)^[ \R]+|[ \R]+$", "$1")
Clipboard := Trim(clipboard)
sleep, 400
send, ^v
return
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ F6 & 8 选中只删除首尾空格 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 19-2773

F6 & 9::
clipboard =
send, ^c
sleep, 500
Loop
{
StringReplace, clipboard, clipboard, t , , UseErrorLevel ; 注意后有个空格空格表示法
if ErrorLevel = 0
break
}
sleep,200
send,^v
return
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ F6 & 9 Tab替换成空格 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 20-2788

;🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️ 空格处理 🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️🎞️
;🛒🛒🛒🛒🛒🛒🛒🛒🛒🛒🛒 马克文档 🛒🛒🛒🛒🛒🛒🛒🛒🛒🛒🛒

#If (WinActive("ahk_exe Typora.exe") or WinActive("ahk_exe Joplin.exe")) ;---仅Typora Joplin

F6 & F1::
clipboard := ""
SendInput,^x
sleep,100
clipboard = # %clipboard% [^0] ; ------------- 12 握了请握 [^012] {left}
SendInput {ctrl down}v{ctrl up}{home}{up}{right 2}
return
#If
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ F6 & F1 标题添加序号等 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 001-2803

#If (WinActive("ahk_exe Typora.exe") or WinActive("ahk_exe Joplin.exe"))
F6 & F2::
send {space 2}
clipboard = - [ ] 确定已经掌握了请打上对勾！
SendInput {ctrl down}v{ctrl up} ; ------------- 确定已经掌握了请打上对勾！
return
#If
;ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ F6 & F2 确定已经掌握了请打上对勾 ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ 002-2812