VB应用程序中实现“查找和替换”功能.docVIP

VB应用程序中实现“查找和替换”功能 　　下载本文源代码　　一、前言　　尽管Visual Basic并不是我最喜欢的开发工具，但我喜欢它简单而又丰富的库集。每当开发一个需要处理大量文本数据的应用程序时，需要具有拼写错误纠正功能，例如，微软的Word程序，当运行拼写检查时，将提供给你一个改正错误的机会（尽管是建议），它同时也提供了查找替换工具，用以进行用户定义的单词替换。这篇文章我将解释如何在VB应用程序中实现查找替换功能。 　　二、前提条件　　在解释代码的时候，我假定读者朋友们已经有使用Visual Basic的经验，熟悉Visual Studio开发环境中各种内置的控件及库函数（尽管我使用的不多）。我已经尝试着尽可能地简化程序代码，用不了多久你就可以明白程序的逻辑。如果想对一些库函数（如参数，语法）进一步详细地理解，可以参阅MSDN。图一是程序运行后的效果图： 图一、程序实现查找替换功能时的效果图 　　三、基础工作　　首先创建一个标准的EXE类型的VB工程，将默认窗体更名为frmMainForm ，在默认窗体上增添一个菜单，具体设置如下（符号用于加速键，单词mnu后的名字用来说明菜单项的名字（在代码中使用））： Edit...Find and Replace mnuFindandreplaceExit mnuExit 　　向默认窗体添加一个TextBox控件，命名为txtClientArea。使用鼠标调整控件位置和尺寸，使它覆盖窗体的整个客户区，在属性窗口将这个TextBox控件的 MultiLine属性设置为True。　　使用Project Add Form菜单向工程中添加另外一个窗体，将这个窗体命名为frmFindReplace，并在属性窗口中将它的BorderStyle属性设置为4 - FixedToolWindow。现在，添加两个TextBox控件，并分别命名为txtSearchTerm和txtReplaceWithString。添加一个复选框，命名为chkCaseSense。最后，添加一个命令按钮控件，命名为cmdReplace。　　在frmMainForm窗体中添加如下代码： Private Sub mnuExit_Click()　EndEnd SubPrivate Sub mnuFindandreplace_Click()　frmFindReplace.FindnReplace txtClientAreaEnd Sub 　　从上面代码中可以非常明显地看出， 当点击Exit菜单时，我们想终结应用程序，当点击Find and Replace菜单时，想通过共用接口frmFindReplace及FindnReplace()方法来激活frmFindReplace窗体。这个公用的接口使查找算法具有普遍性，使用这个接口时，需要提供一个TextBox作为参数（在这里面，搜寻将被执行）。通过使用你自己的TextBox的名字来代替txtClientArea的名字，可以在多个文本框内执行查找替换功能，而不用更改代码。查找和替换的实现代码主要是在frmFindReplace窗体内，这个模块的代码如下： This variable is used for making the algorithm generic.Dim txtClient As TextBox This method is the public interface to SnR functionality.Public Sub FindnReplace(ByRef Tb As TextBox)　Set txtClient = Tb　Me.Show , txtClient.ParentEnd SubPrivate Sub cmdReplace_Click()　Dim CaseSense As Integer　Dim SourceText As String　Dim SourceTextCopy As String　Dim Cnt As Integer　 Check for the case sensitivity options　If (chkCaseSense.Value = vbChecked) Then　　CaseSense = 0　Else　　CaseSense = 1　End If　 One contains the original text and another contains replaced　 (updated) one.　 Used to check whether a replacement was done or not.