编程语言

img GnuDoyng

查找替换RTF格式的文本时对锁定文本的处理问题

发表于2004/10/22 19:04:00  1762人阅读

分类: 涕淌技術區

我想,做过文字处理的网友们一定不会对RichTextBox控件感到陌生。这是个封装了几乎所有的RTF文档的编辑显示功能,我们可以完全基于此控件来编写一个强大的文本编辑器。也许你会想,RichTextBox控件的所有功能早就在M$ Word下实现了,而且人家的东东做的那么酷,何必自己再去费神开发一个文本编辑器呢?其实,我们写程序并不都是为了实用性,通过做一个程序,哪怕只是个简单的计算器,也能学到不少知识的。何况,你居然可以用RichTextBox控件实现一个Word没有的功能——把一个特定的文本锁定使在解锁前无法对其进行任何更改~呵呵,你试过了吗?

你一定会很满意这个功能的,因为RichTextBox可以自行阻止用户对已锁定的文本进行任何更改,而你不需要再添加任何多余的代码(至少大多数情况下是如此的)。但是无论控件的功能封装得多好,它的智商还是有限,比如当你试图在你的软件里实现查找替换文本功能时,RichTextBox呆头呆脑的特性就暴露无遗了——一旦试图对已锁定的文本进行替换,文件的指针就会被强行退回到该被锁定的文本的前一个未锁定的字符上,然后继续下一步,继续再次被退回……于是你的程序就这样陷入了死循环中~呵呵,急得人一头汗哪……

没关系,其实我们只不过必须亲自教导一下RichTextBox罢了,让它知道怎样聪明地处理锁定文本的替换问题。我们的目标是,能够让RichTextBox的被保护文本不被替换并保证指针顺利前进,并在替换完成后通知用户被替换的文本有多少处以及被保护而无法替换的文本有多少处。

下面是我提供的解决方案,你可以参考一下,效率并不是很高,但是很直观。      

If MyReplaceForm.ShowDialog = DialogResult.OK Then
    '这两个变量记录要被替换的文本和替换成的文本
    Dim FindText As String = MyReplaceForm.TextBoxFind.Text
    Dim ReplaceText As String = MyReplaceForm.TextBoxReplace.Text
    '此变量用于标记是否找到了被锁定的文本
    Dim ProtectedThisTimeFound As Boolean
    '此变量用于标记被替换的数量
    Dim ReplaceCount As Integer
    '此变量用于标记被保护的文本的数量
    Dim ProtectedCount As Integer
    '以下是替换时在文档内移动的指针
    Dim NextPos As Integer
    Dim ProbePos As Integer
    Dim i As Integer
    With RichTextBox
        If .Find(FindText, FindStyle) = -1 Then
            MessageBox.Show("未找到要被替换的内容!", "替换失败", _
                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            MyReplaceForm.TextBoxFind.Focus()
        Else
            If FindText = ReplaceText Then
                MessageBox.Show("做这样的替换是没有意义的!", "拒绝替换",  _
                    MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                MyReplaceForm.TextBoxReplace.Focus()
            Else
                '把指针指向开头
                NextPos = 0
                Do
                    '定位至第一个待替换点
                    'FindStyle是一个RichTextBoxFinds的全局变量,记录的是查找方式
                    '例如严格区分大小写、全字查找等等。

                    NextPos = .Find(FindText, NextPos, FindStyle)
                    '开始使用探测指针,一一判断每个字符是否被锁定
                    ProbePos = NextPos
                    ProtectedThisTimeFound = False
                        For i = 0 To FindText.Length - 1
                            ProbePos = .Find(FindText.Substring(i, 1),  _
                                ProbePos, RichTextBoxFinds.None)
                            If .SelectionProtected = True Then
                                '看当前查找字符是否被锁定
                                '如果发现的话
                                ProtectedThisTimeFound = True   '发现!
                                ProtectedCount += 1             '计数
                                If ProbePos + FindText.Length - i > _
                                    RichTextBox.TextLength - 1 Then
                                    '如果此字符串是文档末尾
                                    Exit Do
                                Else
                                    '不是的话
                                    NextPos += (FindText.Length - i)
                                    Exit For
                                End If
                            End If
                        Next i
                        If ProtectedThisTimeFound = False Then
                            
'如果循环探测下来发现该字符串未被锁定
                            NextPos = .Find(FindText, NextPos, FindStyle)
                            .SelectedText = ReplaceText
                            ReplaceCount += 1   '计数
                        End If
                    Loop Until .Find(FindText, NextPos, FindStyle) = -1
                    If ProtectedCount = 0 Then
                        MessageBox.Show("统统替换完毕。总共替换了" _
                            & CStr(ReplaceCount) & "处。", "替换成功", _
                            MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Else
                        If ReplaceCount <> 0 Then
                            MessageBox.Show("统统替换完毕。总共替换了" _
                                & CStr(ReplaceCount) & "处。" & vbCrLf & vbCrLf & _
                                "仍存在" & CStr(ProtectedCount) & _
                                "处文字因被锁定而无法替换。", "替换完毕", _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
                        Else
                            MessageBox.Show("文中搜索到符合替换条件的文本共" & _
                                ProtectedCount & "处,但因被锁定而无法替换。", _
                                "统统替换无果", MessageBoxButtons.OK,  _
                                MessageBoxIcon.Exclamation)
                    End If
               End If
           End If
       End If
   End With
End If


图1 红笔标注出的字母S都被锁定了。


图2 现在,用户想把RTF文档中的字母S替换成字母P。


图3 呵呵,轻松搞定!把数据告诉用户。


图4 看看结果吧,我用绿笔圈出的P是被成功替换的,那些被锁定的文本,还是原模原样呢!

阅读全文
0 0

相关文章推荐

img
取 消
img