vb查找txt中有text1内容的行进行修改

Question

不是问过了吗？Dim strLine As String, strItem() As String
Open "1.txt" For Input As #1
Open "2.txt" For Output As #2
Do Until EOF(1)
    Line Input #1, strLine
    If InStr(strLine, Text1) Then
        strItem = Split(strLine, ":")
        If 4 <= Ubound(strItem) Then strItem(4)  = Text2
        strLine = Join(strItem, ":")
    End If    Print #2, strLine
Loop
Close #2
Close #1

Answer 1

加上文件替换，实现“修改”：
Private Sub Command1_Click()
Dim strLine As String, strItem() As String    Open "c:\1.txt" For Input As #1
    Open "c:\2.txt" For Output As #2
    Do Until EOF(1)
        Line Input #1, strLine
        If InStr(strLine, Text1) Then
            strItem = Split(strLine, ":")
            If 4 <= UBound(strItem) Then strItem(4) = Text2
            strLine = Join(strItem, ":")
        End If
    
        Print #2, strLine
    Loop
    Close #2
    Close #1    Kill "c:\1.txt"
    Name "c:\2.txt" As "c:\1.txt"
End Sub运行结果
1235张三54567:123:8:41:替换:1713
412456李四12:j456:9841:1:替换:45