山地步兵呼叫版主(第三集群002-关于空行的删除)

sdbbsdbb

我对电子书处理的第一步骤往往是删除只有全、半角空格的空行，这就不是《代码集》第二例所能解决的了，以前我用的是第三方软件的正则表达式来达到这一目的（如在EDITPLUS中用 ^[ \t]*\n 的正则表达式来删除空行），但自从发现了这块宝地，我坚信一定能用VBA这个简单而高效的工具来实现这个功能。 由于对象文件往往是一行一段，故我的解决方案是，先在各个段落实行遍历，用《代码集》第七例的方法将各段落（各行）的不重复数据找出来；由于回车符代表二个值，全、半角符号各代表一个值，故把不重复数据在五个以上的段落先行排除，留下四个及以下(characters)的段落。进行第二步处理 但有个问题,万一该行中没有全、半角空格，而是有任意二个(其他)字符呢？那用什么来区别呢？我目前的思路是将这些段落中的各个CHARACTER赋值一个数组变量，然后让这个数组（以下简称A数组）与一个只有全、半角空格以及表示回车的二个符号值的四数据数组（以下简称B数组）进行比较，如A包含于B，则可删除该段落，如否则保留。 目前的困境在于，我没找到任何有关二个数组比较的源程序，版主能否帮忙？ 另外，我这个处理空行的思路能否改进，有无更好的解决方案？我只想解决问题，决不在乎方法！（当然是在VBA的框架内）

守柔

全角也好，半角也罢，在WORD中，只是一种格式。

简单一点，你在CTRL+F中，可以看到，是否区分全角/半角的选项，同样，你也可以返加该段落中，是否包含全半角空格（具体如何情况，我没有看到附件，不可臆测），然后，进行处理，大可不必兴师动众，使用数组，这是一种资源浪费。

由于VBA是一种面向对象的编程方法，具体问题，还得具体分析，希望楼主能一如既往，上传附件，好让大家更好地明白。

sdbbsdbb

老大，能否先告诉我在回复时贴上附件的方法，否则多发贴你我都不爽。

守柔

以下是引用sdbbsdbb在2005-4-24 13:14:00的发言：

老大，能否先告诉我在回复时贴上附件的方法，否则多发贴你我都不爽。

请参：

http://club.excelhome.net/viewthread.php?tid=45649