Замена строк в текстовом файле

replace(s, """", """Hello!!!""")

Private Sub Command1_Click()
Dim s As String, v As Variant, i As Long, l As Long
    Open "C:\testfile.txt" For Input As #1
    s = Input(LOF(1), 1)
    Close #1
    v = Split(s, vbCrLf)
     Open "C:\testfile1.txt" For Output As #2
 For i = 0 To UBound(v) - l
    s = v(i)
    s = Replace(s, "#4 """, "#4 Hello")
    s = Replace(s, "#5 """, "#5 Hello")
        Print #2, s
 Next
    Close #2
End Sub

Private Sub Command1_Click()
  Dim s As String, v As Variant, i As Long, l As Long
  Open "D:\1234\1.txt" For Input As #1
  s = Input(LOF(1), 1)
  Close #1
  v = Split(s, vbCrLf)
  Open "D:\1234\2.txt" For Output As #2
  For i = 0 To UBound(v) - l
    s = v(i)
    s = Replace(s, """""", """Hello""")
    Print #2, s
  Next
  Close #2
End Sub

Private Sub Command1_Click()
Dim s As String
Open "C:\testfile.txt" For Input As #1
s = Input(LOF(1), 1)
Close #1
Open "C:\testfile1.txt" For Output As #2
s = Replace(s, "#4 """"", "#4 ""Hello""")
s = Replace(s, "#5 """"", "#5 ""Hello""")
Print #2, s
Close #2
End Sub

Private Sub Command1_Click()
Open "C:\testfile.txt" For Input As #1
Open "C:\testfile1.txt" For Output As #2
Print #2, Replace(Input(LOF(1), 1), """""", """Hello""")
Close
End Sub

Private Sub Command1_Click()
Dim s As String
Open "C:\testfile.txt" For Input As #1
Open "C:\testfile1.txt" For Output As #2
Do Until EOF(1)
    Line Input #1, s
    s = Replace(s, "#4 """"", "#4 ""Hello""")
    s = Replace(s, "#5 """"", "#5 ""Hello""")
    Print #2, s
Loop
Close
End Sub

Sub Test1()
  Dim s As String, v As Variant, i As Long, l As Long
  Open "C:\test.ini" For Input As #1
  s = Input(LOF(1), 1)
  Close #1
  v = Split(s, vbCrLf)
  Open "C:\test.ini" For Output As #2
    s = Replace(s, "File=C:\12\test.xlsx", "File=C:\34\test.xlsx")
    Print #2, s
  Close #2
End Sub