VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 数据库 > VF教程 >
  • vfp教程之VFP编辑框中实现自动更正的方法

 摘 要:本文用实例介绍在VFP编制应用系统时,通过特殊的技巧实现汉字词组自动更正功能的方法。

  主题词:VFP 自动更正 编辑

  引言

  我们在使用Word2000编辑一篇文档时,可以在Word2000的工具菜单项中设置自动更正功能,这种功能的主要作用是在当用户编辑某一文档时,当输入的某一词组资料不正确时,Word2000将会自动将输入不正确的该词组更正为正确的词组内容,这样就大大提高了汉字输入时正确性。在自动更正功能窗口时,可以看出自动更正窗口包括了一个正误对照数据资料内容,使用过程中用户既可以使用系统中默认的更正数据内容,同时也可以增加或修改某一更正数据内容,这样在进行文档编辑操作时,利用这种功能使用起来非常方便。根据这种实现的原理,我们可以将这种功能运用到由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中存放的是对应的正确资料的内容,然后就可以利用这个正误对照数据表中的内容来实现文档资料的自动更正功能了。

  具体实现的程序

  下面以一个简单的例子,介绍这种更正功能在程序中的具体实现方法:

  新建一个表单,将数据表ABC加入该表单的数据环境中,然后在这个表单中放置一个文本编辑框EDIT1,调整这个编辑框到合适的位置,在这个编辑框中的数据源可以是一个数据表中的备注字段名称,也可以是一个变量,用户可以在这个编辑框中输入一些的文字内容,然后在这个编辑框EDIT1中的KEYPRESS事件中输入如下程序代码: 

GBWZ=THISFORM.EDIT1.SELSTART&&取当前光标所在位置
IF GBWZ>4 &&
 THISFORM.LockScreen = .T.
 CXNR1=SUBS (THISFORM.EDIT1.VALUE, GBWZ-7,8)
 CXNR2=SUBS (THISFORM.EDIT1.VALUE, GBWZ-9, 10)
 CXNR3=SUBS (THISFORM.EDIT1.VALUE, GBWZ-11, 12)
 CXNR4=SUBS (THISFORM.EDIT1.VALUE, GBWZ-13, 14)
 CXNR5=SUBS (THISFORM.EDIT1.VALUE, GBWZ-15, 16)
 CXNR6=SUBS (THISFORM.EDIT1.VALUE, GBWZ-17, 18)
 CXNR7=SUBS (THISFORM.EDIT1.VALUE, GBWZ-19, 20)
 CXNR8=SUBS (THISFORM.EDIT1.VALUE, GBWZ-21, 22)
 &&以上程序代表取当前光标前4-11个汉字为到不同的变量中,因为生成的数据表中的正误资料字数从4个到11个,所以要分别进行比较。
 SELE ABC
  LOCA FOR ALLT (CXNR1)= =ALLT (NR1) OR ALLT (CXNR2)= =ALLT (NR1) OR; ALLT (CXNR3)= =ALLT (NR1) OR ALLT (CXNR4)= =ALLT (NR1) OR;
  ALLT (CXNR5)= =ALLT (NR1) OR ALLT (CXNR6)= =ALLT (NR1) OR;
  ALLT (CXNR7)= =ALLT (NR1) OR ALLT (CXNR8)= =ALLT (NR1)
  &&在正误对照数据库进行查找
  IF FOUND()&&如果找到了就执行替换操作
   ZDZ=LEN (ALLT (NR1))
   THISFORM.EDIT1.VALUE=SUBS (THISFORM.EDIT1.VALUE, 1,GBWZ-ZDZ)+;
    ALLT(ABC.NR2)+SUBS(THISFORM.EDIT1.VALUE,GBWZ+1)&&接上一行
   THISFORM.EDIT1.REFRESH
   THISFORM.EDIT1.SELSTART=GBWZ
  ELSE
   THISFORM.EDIT1.SELSTART=GBWZ
  ENDIF
 THISFORM.LockScreen = .F.
ENDIF 

  全部内容设置输入完毕后,运行这个表单,并在表单中的编辑框中输入文本信息,当用户输入一个错误词组资料时,编辑框中的内容将会被自动更正为正确的词组资料,使用方法同Word中的使用方法相同,这样就我们就实现了在编辑框中输入的汉字自动更正功能。当然在系统中还可以增加对更正数据的修改、添加等操作,这样系统功能使用起来会更加方便。

  结束语

  本文提供了在VFP编辑框中实现文字资料错误内容自动更正的实现方法,例程并没有考虑容错性,根据这种原理可以编写出更加完善实用的应用系统,有兴趣的读者可以一试。
相关教程