|
我们当然不会在Ｗｏｒｄ 中重新输入已在ＷＰＳ 系统中录入的文件资料。因此，将ＷＰＳ 文件格式转换为Ｗｏｒｄ格式，是低版本的ＷＰＳ（ＷＰＳ９７的文件转换功能要强得多）与Ｗｏｒｄ
共享资源的必然要求。
采用手工转换方法，不仅要将每个需要转换的ＷＰＳ文件转换为文本文件，而且需要在Ｗｏｒｄ 中完成各种繁琐的查找、替换操作。
当设定的左边界不为１、或者段落中有连续的两个空格（确实需要）、或者存在因ＷＰＳ 排版形成的软空格时，这种方法就会产生错误的结果，必须进行修正。
上述方法显然比较费时费力，且不太可靠，有没有更好的解决办法呢？其实，利用可视化编程工具Ｄｅｌｐｈｉ ３强大的低级文件处理功能，编写一个小程序，就能很轻松将ＷＰＳ
文件转换为Ｗｏｒｄ 能够正确读写的文本文件格式。
编程思路
分析一下ＷＰＳ 文件格式和Ｗｏｒｄ 能够正确读写的文本文件格式，就会明白，ＷＰＳ 文件不仅有１ＫＢ的文件头，而且还包含有字体、字号、软硬回车符、分页符、软空格（因自动排版产生）等控制符，在所有这些符号中，Ｗｏｒｄ
仅能正确读取硬回车，其他符号都将变为乱码。
为了避免出现上述问题，我们在编制程序时，可以采用以下设计思路：读入ＷＰＳ 文件，跳过文件的１ＫＢ文件头，忽略除硬回车外的各类控制符，将其余的字节写入新文件。
具体方法
在Ｄｅｌｐｈｉ ３中新建一个窗体，在窗体中加入两个编辑框和一个Ｃａｐｔｉｏｎ为“转换”的位图按钮，其中编辑框Ｅｄｉｔ１用于输入源文件名，另一个编辑框Ｅｄｉｔ２用于输入转换的结果文件名，在“转换”按钮的Ｏｎｃｌｉｃｋ
事件中输入以下代码：
ｐｒｏｃｅｄｕｒｅ ＴＭａｉｎＢｏｘ．ＢｉｔＢｔｎ１Ｃｌｉｃｋ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；
ｖａｒ ｓｏｕｒｃｅ ，ｔａｒｇｅｔ ：ｉｎｔｅｇｅｒ ；
ｆｉｌｅｓｉｚｅｓ ：ｌｏｎｇｉｎｔ ；
ｉ ：ｉｎｔｅｇｅｒ ；
ｘ，ｘ１，ｘ２：ｂｙｔｅ ；
ｓｓ ：ｓｔｒｉｎｇ ；
ｂｅｇｉｎ ｓｏｕｒｃｅ ：＝ｆｉｌｅＯｐｅｎ（Ｅｄｉｔ１．Ｔｅｘｔ ，０）；
ｉｆ ｓｏｕｒｃｅ ＝－１ｔｈｅｎ ｂｅｇｉｎ
ＭｅｓｓａｇｅＤｌｇ（′打开源文件出错，请核对！′，ｍｔ Ｗａｒｎ—
ｉｎｇ ，［ｍｂＯｋ］，０）；
Ｅｘｉｔ ；
ｅｎｄ ；
ｆｉｌｅｒｅａｄ（ｓｏｕｒｃｅ ，ｘ１，１）；｛判断ＷＰＳ 版本号｝
ｆｉｌｅｒｅａｄ（ｓｏｕｒｃｅ ，ｘ２，１）；
ｉｆ （（ｘ１＜＞＄１）ａｎｄ （ｘ１＜＞＄２））ｏｒ （ｘ２＜＞＄ｆｆ）
ｔｈｅｎ ｂｅｇｉｎ
ＭｅｓｓａｇｅＤｌｇ（′不是ＷＰＳ 文件，请核对！′，ｍｔ Ｗａｒｎ—
ｉｎｇ ，［ｍｂＯｋ］，０）；
ｆｉｌｅｃｌｏｓｅ（ｓｏｕｒｃｅ）；Ｅｘｉｔ ；
ｅｎｄ ；
ｉｆ ＦｉｌｅＥｘｉｓｔｓ（Ｅｄｉｔ２．Ｔｅｘｔ）ｔｈｅｎ ｂｅｇｉｎ
ｉ ：＝ＭｅｓｓａｇｅＤｌｇ（′目标文件已存在，是否覆盖之？′，
ｍｔ Ｗａｒｎｉｎｇ ，ｍｂＯｋＣａｎｃｅｌ ，０）；
ｉｆｉ ＝ｍｒＣａｎｃｅｌ ｔｈｅｎ ｂｅｇｉｎ
ＦｉｌｅＣｌｏｓｅ（ｓｏｕｒｃｅ）；
Ｅｘｉｔ ｅｎｄ ；
ｅｎｄ ；
ｔａｒｇｅｔ ：＝ｆｉｌｅＣｒｅａｔｅ（Ｅｄｉｔ２．Ｔｅｘｔ）；
ｉｆｔａｒｇｅｔ ＝－１ｔｈｅｎ ｂｅｇｉｎ
ＭｅｓｓａｇｅＤｌｇ（′建立目标文件出错，请核对！′，ｍｔ—
Ｗａｒｎｉｎｇ ，［ｍｂＯｋ］，０）；
ＦｉｌｅＣｌｏｓｅ（ｓｏｕｒｃｅ）；
Ｅｘｉｔ ；ｅｎｄ ；ｆｉｌｅｓｉｚｅｓ ：＝ｆｉｌｅｓｅｅｋ（ｓｏｕｒｃｅ ，０，
２）；ｆｉｌｅｓｅｅｋ（ｓｏｕｒｃｅ ，＄４００，０）；
｛跳过１ＫＢ文件头｝
ｗｈｉｌｅ ｆｉｌｅｓｅｅｋ（ｓｏｕｒｃｅ ，０，１）
＜ｆｉｌｅｓｉｚｅｓ ｄｏ ｂｅｇｉｎ
ｆｉｌｅｒｅａｄ（ｓｏｕｒｃｅ ，ｘ，１）；
ｉｆ （ｘ＝＄０ｃ）ｏｒ （ｘ＝＄８ｄ）ｏｒ
（（ｘ＞＝＄９０）ａｎｄ （ｘ＜＝＄９ｆ））
ｔｈｅｎ ｛屏蔽分页符、
软回车和各类控制符号｝
ｆｉｌｅｒｅａｄ（ｓｏｕｒｃｅ ，ｘ，１）
ｅｌｓｅ ｛屏蔽软空格｝
ｉｆ ｘ＜＞＄７ｆｔｈｅｎｆｉｌｅｗｒｉｔｅ（ｔａｒｇｅｔ ，ｘ，１）；
ｅｎｄ ；
ｆｉｌｅｃｌｏｓｅ（ｓｏｕｒｃｅ）；
ｆｉｌｅｃｌｏｓｅ（ｔａｒｇｅｔ）；
Ｅｄｉｔ１．Ｔｅｘｔ ：＝′′；
Ｅｄｉｔ２．Ｔｅｘｔ ：＝′已转换完成′；
ｅｎｄ ；最后，按Ｆ９编译，即可得到一个可执行文件，用它来进行转换，一般的文件仅需要几秒钟就可完成。
（湖北省枝江市委办公室曹祖权４４３２００）
|