ahk 选中 删除空行

`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`