[分享]文本文档空行的删除

[分享]文本文档空行的删除 文本文档空行的删除 文本文档空行的删除 清除Word文档中空行的妙法 如果Word文档中有很多空行，直接打印的话费纸又费墨，如果用手工逐个删除实在累人，这时大家一般可以利用Word自带的替换功能来进行处理。 在Word中打开“编辑”菜单，单击“替换”菜单命令，在弹出的“查找和替换”窗口中，单击“高级”按钮，将光标移动到“查找内容”文本框，然后单 击“特殊字符”按钮，选取“段落标记”，我们会看到“，p”出现在文本框内，然后用同样的方法再输入一个“，p”，在“替换为”文本框中亦输 入“，p”，即用“，p”替换“，p，p”，然后单击“全部替换”按钮，这样多余的空行就被删除了。不过如果文档中有多个连着的空行时要进行多次 替换才能全部删除多余空行。 另一种妙方快速删除多余空行。 将要处理的文本全部复制到Word空文档中，按“Ctrl，A”快捷键全选，再选择“格”菜单中的“转换?文字转换成表格”命令，在弹出的对话框中， 将表格尺寸下的“列数”设定为“2列”，将“文字分隔位置”选为“段落标记”，确定后便出现一个2列n行的表格，再全选表格，右击鼠标，在快捷菜 单中选择“合并单元格”命令，这样再多的空行一次也就全被解决了。最后将处理好的文本拖出表格就行了。 Word删除空行“攻略” 在平时上网过程中，我们经常将网页上有参考价值的文字信息复制到Word中，进行保存打印。但有时从网页复制下来的文字包 含许多空行，使得 页数居高不下，阅读和打印都很不方便。怎样将Word中的空行删除呢，笔者教你三种方法。 替换法 在用替换法之前，首先要搞清楚文章中的换行符是手动换行符(“Shift+回车”)，还是段落标记。其次，还要观察文章中的空行是否有规律性， 如一次空一行，还是一次空两行。弄清了这两点，我们就好操作了。笔者以文章的换行符为“段落标记”和“一次空两行”为例讲解。首先，选取文章中 要删除空行的文字内容，使其反白显示。然后，单击“编辑” ? “替换”，弹出“查找和替换”对话框。依次单击“高级” ?“特殊字符” ? “段落 标记”，输入一个“段落标记”符。用同样的方法，再输入两个“段落标记”符。(若文章中是“人工换行符”，在这里则输入“人工换行符”;若文章 空行“一次空一行”，在这里只需输入两个段落标记符)。这时，在“查找和替换”对话框中就出现了三个连续的“^p”。单击“替换为”输入框，用同 样的方法输入一个“^p”。最后，单击“全部替换”，选中文章中的所有空行就被删除了。如果，文章中的空行没有规律性(如有时空一行，有时空两行)， 替换法就无能为力了，则用下面的方法来解决。 筛选法 “筛选法”就是将Word中含有空行的文本复制到Excel中，然后利用Excel的“筛选”功能筛选出空行，将其删除。首先，将Word中含有空行的文本选 中，并单击“编辑”中的“复制”，复制到剪贴板中。然后，打开Excel，单击A1单元格，将剪贴板中的文本粘贴到工作表中。选中“A”列，依次单 击“数据” ?“筛选” ?“自动筛选”。单击A1单元格的筛选按 钮，选取“空白”，筛选出空白行，并全部删除。最后，取消“自动筛选”，选取含文 本的单元格并复制，切换到word中用“选择性粘贴”?“无文本”，粘贴即可。 程序法 用Word打开含空行的文章，依次单击“工具” ?“宏” ?“Visual Basic编辑器”，打开Visual Basic编辑器。双击“Project”下 的“ThisDocument”，打开“代码”输入窗口，将下面的代码输入进 去，并保存。 Sub DelBlank() Dim i As Paragraph, n As Integer Application.ScreenUpdating = False For Each i In ActiveDocument.Paragraphs If Len(i.Range) = 1 Then i.Range.Delete n = n + 1 End If Next MsgBox "共删除空白段落" & n & "个" Application.ScreenUpdating = True End Sub 代码输入完毕，单击“工具栏”中的“运行”按钮，执行这段代码。这时，会弹出一个消息窗口，告诉你一共删除了多少空行。 软件法 Word空行的删除还可以通过第三方软件来实现。下载neaiw，并解压。因为neaiw仅支持文本类型的文件，所以，在用neaiw之前得先用Word的“另存 为”将文件保存为文本类型文件。 首先，打开neaiw，依次单击“File”?“Open”，打开含空行的文 本文件。然后，依次单击“Tools” ?“Delete space line”，将 该文本文件中的所有 空行删除。相信以上的方法会让您觉得是很实用的技巧。但我们日常中会有更复杂的情况出现，那怎么办呢,其实掌握了以上基本技巧，自己再灵活组织运 用就可以解决大多数问题。比如里面不仅是有多与空行，而且为了排版，有很多人为的分段换行。是一种非正常的分段。把分段当强制换行用了。造成许多 英文句子被分段拆开了。不仅有正常的分段，还有用分段符进行的分行。既不规范又增加了页数。怎么处理这些呢, 考虑到此文档的正常分段是有空行间隔的这种结构，我是这样做的: 1:先把两个相邻的回车符(^p)替换为一个文档中没有的特殊符号，比如四分之一分隔符。用以标记正常的分段。 2:再把所有的单个回车符(^p)替换为空格。 3:把之前替换的文档中没有的特殊符号，比如四分之一分隔符，替换成单个的回车符(^p)，还原自然分段。并去除了空行。 4:把可能出现的标点后的多于空格替换，比如逗号空格(, )替换成单个逗号(,)。句号、问号等都照做。 这样就基本上完成了冗余格式的清理。 消除txt数据文件中空行批处理小程序 %下面这段才是真正的读入数据写出数据的程序 %需要txt原型数据文件，然后可以将所有的字符行消除，空行消除 考虑到写入数据文件其实并没有什么意义，同时修改数据行中可以包含小数点(.)、,、E(科学计数法)等符号。 function [data]=distilldata(infile) %功能说明: %将保存数据的原始文件中的数值数据读入到一个data变量中 %使用说明: % infile——原始数据文件名; % data=数据变量 tmpfile='tmp.mat'; fidin=fopen('aaa.txt','r'); % 打开原始数据文件(aaa.txt) fidtmp=fopen(tmpfile,'w'); % 创建保存数据文件(不含说明文字) while ~feof(fidin) % 判断是否为文件末尾 tline=fgetl(fidin); % 从文件读入一行文本(不含回车键) if isempty(tline) | tline==' ' % 判断是否空行 continue else [m,n]=size(tline); flag=1; for i=1:n %判断一行中有没有字符(，,.Ee和空格键除外) if tline(i)==' '|tline(i)=='-'|tline(i)=='.'|tline(i)=='E'... |tline(i)=='e'|tline(i)=='+'... |(double(tline(i))>=48&&double(tline(i))<=57) continue else flag=0; break end end if flag==1 % 如果是数字行，把此行数据写入文件 fprintf(fidtmp,'%s\n',tline); else continue end end end fclose(fidin); fclose(fidtmp); data=textread(tmpfile); 批量快速清除WORD中多余的空行 博讯生物 不知道下面的问题，大家遇到过没有，以前处理文档总是手动一步步删，今天在处理CSS手册去打印时内容太多，才想到能不能批量处理下，于是查了下， 整理了下面的方法，当然如果有仔细学习过WORD的基础知识的，这个问题也就不值一提了，不过我想因为好像WORD属于打开就会用的软件，现在基本上很 少有人去花时间去学习了。 在工作中，尤其是对那些搞文字工作的人来说，经常会碰到由别的地方或文件中向Word文档中导入或粘贴文本，然后用Word编辑的情况。如果粘贴过 来的文本中含有多余的空行同时文档又很大，那么一个个用手工的方式删除空行的办法实在是太累人了。而且打印时又太浪费墨和打印纸，有没有较便捷的 方式呢, 对网页基础有一定了解的人来说这不会是什么难事，在网页编辑器中代码状态利于批量查找替换会比较容易实现。(当然也不一定， 有些时候处理起 来也会很费事。) 我们可以用Word自带的替换功能来进行处理。在Word中打开编辑菜单，单击“替换”，在弹出的“查找和替换”窗口中，单击“高级”按钮，将光标 移动到“查找内容”文本框，然后单击“特殊字符”按钮，选取“段落标记”，我们会看到^p出现在文本框内，然后再同样输入一个^p，在“替换为”文本 框中输入^p，即用^p'替换^p^p，然后选择“全部替换”，多余的空行即可消除。 (原理:^p在WORD中代表一个换行符，而在每一个空行前必有一个换行符并且在上一行尾也有一个换行符，所以将^p^p替换为^p实质上是消消除了一个换行 符即删除了多余的空行。你也许会问为什么不直接把^p换成空呢,其实可以试试，如果换为空那么就相当于消除了所有空行，那么整个文档就变成一连串的 没有段落的文字了。) 那么如果有兴趣不妨看看下面这两个WORD的对比，如果不细心用上面方法也无法处理。 下面附件未处理的，采用小五字体，页边距上下左右均为1.5厘米，共103页，如果直接分栏处理，也有56页。 css.doc 下面附件为整理过的，共35页，字体大小和页边距和未整理版一样。 CSS整理版.doc (这两个附件需要登陆后才能下载，游客可能点击时会出现无权限访问的错误提示) 那么是怎么实现的呢, 当利用上述方法进行查找替换时，你会发现并不能完替换完全，还是 有很多空行，为什么呢,如果细心些会发现原文档中一部分换行符前其实有一个看不见的 小空格，所以在处理前就先将小空格删掉后再用上面方法处理。那么看不见的小空格怎么删除呢,当然你可以说直接在查找替换处输入小空格然后在替换为处 什么也不输后点全部替换即可，其实这样你会发现文档中其它地方的空格也被删掉了。所以这样显然不可行，那么应该怎么做呢，其实也很简单，因为我们要 删除的是在换行符之前的空格所以我们可以将小空格加换行符即小空格加^p替换为^p即可，至于小空格的输入因为有全角与半角之分所以不妨直接复制后按 CTRL+V粘贴在查找替换处处理。 你在整理版中也会发现一些文字被标成了黑体了，其实这些也不是手动查找的，因为那些要标的黑体字都有一个共同的特点，那就是在首位，所以直接可以 用^p要标黑的字查找即可。