VFP编辑框自动更正词组

　　系统原理

　　为了能够实现正误文字资料的互相替换功能，可以按照Word2000中实现更正方法的方式建立一个更正内容数据库，这个数据库将收集整理那些在进行文字书写时容易发生错误写法的词组资料。但我们能够想到，如果由用户收集整理这个数据库，受个人知识水平及应用领域限制，收集整理工作量将会非常巨大，在实际中能够真正实现并不容易。其实这一点完全可以利用Word2000系统中所收集整理的正误对照资料内容，把这一部分内容转换到实际需要生成的数据库中，这样可以大大提高收集整理工作的效率。这样首先要把Word2000中存储这些正误对照资料的存放文件找出来，通过查找能够知道这个文件存放文件夹C:\Windows\Application\Microsoft\office\下，文件名字为ms01033.acl，为了不影响Word2000的正确使用，可以把这个文件拷贝到C盘根目录下并将该文件后缀名改为DOC，变成Word2000的文档文件类型，然后使用Word2000打开这个文件，这里一般要提示插入OFFICE2000的安装盘，用户可以插入这个安装盘进行安装编码内容，然后选择一个合适的打开该文件的编码，在这里需要选择的是Unicode编码，然后打开这个文件，可以看到打开的这个文档中在后面部分存在着全部的汉字正误对照文字资料，可以把这部分文字资料全部拷贝出来存放到一个纯文本文件中，并把这个纯文本文件命名为ZL.TXT，在这个文本文件中存放着Word2000中的全部中文词语更正资料，然后就需要把这个文本资料中的内容转换到一个数据库中去，在这里可以借助一个小程序实现这种数据的转换功能。

　　新建一个数据表文件命名为ABC.DBF，这个数据表文件只包括两个字段NR1，NR2字段都为字符型，宽度为30，建立这个数据表后，建立一个程序文件MAIN.PRG，程序内容如下：

USE ABC
WJNR=FILETOSTR ("C:\ZL.txt")
WJNR=WJNR+" "
DO WHIL LEN (ALLT (WJNR))>0
NR11=SUBS (WJNR, 1,AT (" ", WJNR))
WJNR=SUBS (WJNR, at (" ", WJNR)+2)
NR22=SUBS (ABC, 1,AT (" ", WJNR))
WJNR=SUBS (ABC, AT (" ", WJNR)+2)
SELE ABC
APPE BLAN
REPL NR1 WITH NR11, NR2 WITH NR22
ENDDO

　　运行这个程序后打开ABC.DBF数据表，我们可以看出Word2000下的全部的汉字更正资料都转换到这个数据中，其中NR1中存放的是错误资料的内容，NR2中存放的是对应的正确资料的内容，然后就可以利用这个正误对照数据表中的内容来实现文档资料的自动更正功能了。