求教：在html和xml中字符查找替换的问题？

Question

急求，在html和xml文件中字符查找替换的问题。

Answer 1

可以用 INSTR 函数来进行查找，用 REPLACE 函数来进行替换呀。

Answer 2

还可以用正则表达式来操作。
关于如何在 Microsoft Visual Basic 6.0 中使用正则表达式，请参见：
http://blog.csdn.net/VBDN/archive/2005/03/16/321378.aspx

Answer 3

请各位高手帮忙看看下面代码哪有问题啊，急，在线等
Private Sub Command2_Click()Dim FileNames() As String
Dim FileCount As Long 
Dim i As Long
Dim y As Long
Dim z As Long
Dim SearchString As String 
Dim ReplaceString As String
Dim StartPosition As Long
Dim SearchLength As Long
    SearchString = Trim("*/bannerinc/*.inc")
    ReplaceString = Trim("*/bannerinc/*_famline.inc")
        SearchLength = Len(SearchString)
        With RichTextBox1
           ' For i = 1 To FileCount
            If .FileName = "index.htm" Then
                RichTextBox1.LoadFile FileNames(i), rtfText
                StartPosition = .Find(SearchString)
                    If StartPosition <> -1 Then
                        .SelStart = StartPosition
                        .SelLength = SearchLength
                        .SelText = ReplaceString1
                        .SaveFile FileNames(i), rtfText
                    Else
                       StartPosition = .Find(ReplaceString)
                       If StartPosition <> -1 Then
                      ' Next i
                       End If
                    End If
                'Next i
            Else
                    RichTextBox1.LoadFile FileNames(i), rtfText
                    StartPosition = .Find(SearchString) 
                    If StartPosition <> -1 Then 
                        'Next i
                    Else
                        StartPosition = .Find(ReplaceString)
                            If StartPosition <> -1 Then 
                                .SelStart = StartPosition
                                .SelLength = SearchLength
                                .SelText = SearchString
                                .SaveFile FileNames(i), rtfText
                            'Next i
                            End If
                    End If
                    
            End If
        End With
  
    
MsgBox "change over" vbExclamation