source insigh宏=文件保存前清理空白行

最新推荐文章于 2022-07-16 22:05:29 发布

缘之一念

最新推荐文章于 2022-07-16 22:05:29 发布

阅读量1.2k

点赞数

分类专栏：百宝箱

本文链接：https://blog.youkuaiyun.com/jzkdl/article/details/19360465

版权

百宝箱专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一个在文件保存前进行的优化过程，包括去除行尾空白、替换制表符为空格、合并连续空白行以及在文件末尾追加空行等操作，以提高文件的整洁度和效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

macro ProcessBlanksBeforeSave()
{
    var hwnd
    hwnd = GetCurrentWnd()
    if (hwnd == hNil)
    	stop
    var hbuf
    hbuf = GetWndBuf(hwnd)

    /* 删除所有行尾空白 */
    Trim_Whitespace

    /* 转换Tab为空格 */
    ReplaceInBuf(hbuf, "\t", "    ", 0, GetBufLineCount(hbuf), false, false, false, false)

	/* 调整连续空行为一行 */
	var lnCurBlank
	var selResult
	selResult = SearchInBuf(hbuf, "^$", 0, 0, false, true, false)
	if (selResult != Nil)
	{
	    lnCurBlank = selResult.lnFirst 
		selResult = SearchInBuf(hbuf, "^$", lnCurBlank + 1, 0, false, true, false)
		while (selResult != Nil)
		{
		    if (selResult.lnFirst == lnCurBlank + 1)
		    {
		        DelBufLine(hbuf, selResult.lnFirst)
		    }
		    else
		    {
		        lnCurBlank = selResult.lnFirst
		    }
		    selResult = SearchInBuf(hbuf, "^$", lnCurBlank + 1, 0, false, true, false)
		}
	}

	/* 文件末尾追加空行 */
	if (lnCurBlank != GetBufLineCount(hbuf) - 1)
	{
	    AppendBufLine(hbuf, "")
	}

	/* 保存文件 */
	if (IsBufDirty (hbuf))
	{
	    SaveBuf(hbuf)
	}
}