Лист бокс => хтмл

[Kremlin]

Срочно необходима ваша помощь:
Мне нужно заменить в файле хтмл с помощью программы небольшой кусок кода. Необходимый кусок кода выделен в
хтмл файле разметкой "//begin" и "//end". А код между ними заменить полностью фрагментом, который записан в
Лист боксе (построчно). Предполагается, что кол-во строк кода и строк в лист боксе одинаковое.

[alibek]

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

Sub MakeHTML()
Dim FI As Long, FO As Long, I As Long, S As String, fMode As Boolean
FI = FreeFile
Open "C:\sample.htm" For Input As #FI
FO = FreeFile
Open "C:\output.htm" For Output As #FO
fMode = False
While Not EOF(FI)
  Line Input #FI, S
  Select Case S
    Case "//begin"
      fMode = True
    Case "//end"
      fMode = False
      For I = 0 To List1.ListCount - 1
        Print #FO, List1.List(I)
      Next I
    Case Else
      If Not fMode Then Print #FO, S
  End Select
Wend
Close #FI, #FO
End Sub