如何用VB6取代txt檔內的字－lowe16的部落格

==============此為廣告欄位，與文章內容無關==============

OPEN 小將暖暖蛋- 藍

訂購網址：http://www.7net.com.tw/7net/rui005.faces?ID=111200142850&catid=13587&visit_chn=02&vid=ivip&mid=ivip_01&user=af000017132

==============此為廣告欄位，與文章內容無關==============

'專案>設定引用項目>Windows Script Host Object Model

Option Explicit

Private FSO As New FileSystemObject

Private Sub Command1_Click()
    Dim myStr As String

    myStr = FSO.OpenTextFile("D:\txt.txt", ForReading, False).ReadAll
    myStr = Replace(myStr, "張三", "李四")
    Call FSO.CreateTextFile("D:\txt2.txt", True).Write(myStr)
End Sub

Private Sub Command2_Click()
    'MsgBox Cut("ABCDEFGHIJKLMNOPQRSTUVWXYZ", 3, 5) 'Cut 第 3~5 個字
    'MsgBox Cut("ABCDEFGHIJKLMNOPQRSTUVWXYZ", 5) 'Cut 第 5 個字以後
    MsgBox Cut("ABCDEFGHIJKLMNOPQRSTUVWXYZ", "HIJ") 'Cut HIJ
End Sub

Private Function Cut(ByVal myStr As String, ByVal Start As String, Optional ByVal Ends = "") As String
    If IsNumeric(Start) = True And IsNumeric(Ends) = True Then
        Clipboard.Clear
        Clipboard.SetText Mid(myStr, Val(Start), Val(Ends) - Val(Start) + 1)
        Cut = Left(myStr, Val(Start) - 1)
        Cut = Cut & Right(myStr, Len(myStr) - Val(Ends))
    ElseIf IsNumeric(Start) = True Then
        Clipboard.Clear
        Clipboard.SetText Right(myStr, Len(myStr) - Val(Start) + 1)
        Cut = Left(myStr, Val(Start) - 1)
    Else
        Clipboard.Clear

        If InStr(myStr, "HIJ") <> 0 Then
            Clipboard.SetText Start
            Cut = Replace(myStr, Start, "")
        End If
    End If
End Function