Помогите с файлом

[Ира]

есть файл File.txt со следующими строками

1
127
5
HEADER
11
12

надо вместо строки HEADER записать QQQ
я написала так

Dim i As Integer
Dim str As String
Dim line As Integer

Open "c:\File.txt" For Input As #1
For i = 1 To 9
Line Input #1, str
If (StrComp(str, "HEADER", 1)) = 0 Then
Exit For
End If
Next i
line = i
Close #1

Open "c:\File.txt" For Random As #1 Len = 10
Put #1, line, "QQQ" & Chr(13) & Chr(10)
Close #1

Что-то никак Помогите, если можете, а то прямо уже наваждение

[alibek]

Мдя...

Код: Выделить всё

Dim I0 As Long, I As Long, S As String, buff As String
Open "file.txt" For Binary As #1
buff = Space$(LOF(1))
Get #1, , buff
Close #1
Open "file.txt" For Output As #1
I0 = 1
Do Until I0 > Len(buff)
  I = InStr(I0, buff, vbNewLine)
  If I = 0 Then I = Len(buff) + 1
  S = Mid$(buff, I0, I-I0)
  I0 = I + Len(vbNewLine)
  Select Case S
    Case "HEADER"
      S = "QQQ"
  End Select
  Print #1, S
Loop
Close #1

[CodeName33]

Ира, Наверное вот так:

Код: Выделить всё

Dim i As Integer
Dim str As String, sbuff As String

Open "c:\File.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, str
    If (StrComp(str, "HEADER", 1)) <> 0 Then
        sbuff = sbuff & IIf(Len(sbuff) > 0, vbCrLf, "") & str
    Else
        sbuff = sbuff & IIf(Len(sbuff) > 0, vbCrLf, "") & "QQQ"
    End If
Loop
Close #1

Open "c:\File.txt" For Output As #1
Print #1, sbuff
Close #1

[Ира]

Я пребываю в шоке, т.к. кое-как добралась-то до форума (интернет чужой) и вообще не надеялась, что кто-то снизойдет до меня.
И вдруг все получилось!!!!!! Я человек нервно-паралитический и сейчас у меня из глаз струится гидрохлорат натрия. Потому что я буксовала уже 3 дня. ГРАНД МЕРСИ за помощь!