查找,替换。
使用Instr(),mid()的函数,自己写。

解决方案 »

  1.   

    你的问题可不可以具体一点。编一个查找,替换功能不就行了吗?
     Text.Find(TextFind.Text, Text.SelStart +Text.SelLength) 可一实现
    查找功能。
     RichText.SelText = TextReplace.Text 这是替换。
      

  2.   

    Sub fileName(Fname, Fpath, gsF, gsRep)
        Dim gsString As String
        Open Fpath & Fname For Input As #1
        Open Fpath & "new" & Fname For Output As #2
        Do While Not EOF(1)
            Input #1, gsString
            Call Replace(gsString, gsF, gsRep)
            Print #2, gsString
        Loop
        Close #1, #2
        Call FileCopy(Fpath & "new" & Fname, Fpath & Fname)
        Kill Fpath & "new" & Fname
    End Sub
      

  3.   

    你要是不会用双引号的话 
    可以这样
    call  fileName(Fname, Fpath,chr(asc(")) ,chr(asc(')))