[工具] 文本多余空行空格清理

霸道总裁

百度网盘下载地址：

pan.baidu.com/s/1gfwK47p   密码：9ckt   

程序使用代码：

#NoTrayIcon
#PRE_icon=C:\WINDOWS\system32\SHELL32.dll|-15
#PRE_Compression=4
#PRE_UseUpx=n
#PRE_Res_LegalCopyright=Copyright (C) gamewfj@吾爱
#PRE_Res_requestedExecutionLevel=None
#PRE_Res_Field=ProductName|
#PRE_Res_Field=编译日期|%Date%
#PRE_Res_Field=声明|AU3制作的程序可能会被误报，请斟酌
Global Const $GUI_EVENT_CLOSE = -3
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("多余空行空格清理", 340, 561, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Edit1 = GUICtrlCreateEdit("", 10, 40, 315, 500)
$Button1 = GUICtrlCreateButton("处理", 10, 10, 75, 25)
GUICtrlSetOnEvent(-1, "Button1Click")
$Label = GUICtrlCreateLabel("", 100, 10, 175, 25)
GUISetState(@SW_SHOW)
While 1
    Sleep(100)
WEnd
Func Button1Click()
    $s1 = GUICtrlRead($Edit1)
    $s1 = StringRegExpReplace($s1, '\h+', '') ;替换空格
    $s1 = StringRegExpReplace($s1, '[\r\n]+', @CRLF);多个换行替换成一个
    GUICtrlSetData($Edit1, $s1)
    ClipPut($s1)
    GUICtrlSetData($Label, '已处理并将结果放入剪切板')

EndFunc   ;==>Button1Click
Func Form1Close()
    Exit
EndFunc   ;==>Form1Close





联系我时，请说是在 挂海论坛 上看到的，谢谢！

狸子离

牛逼的不像人类

呃呃呃001

来试试能不能用吧。。感谢楼主的贡献

霸道总裁

收藏了，谢谢分享

张凯峰

谢谢，我喜欢。

霸道总裁

通过百度找的论坛，看了几篇帖子，真心都不错！

245658491sasa

感谢分享~期待更多的分享~

霸道总裁

支持楼主，感谢楼主！