Сохранить части текста между тэгами

Товарищи, ткните пожалуйста в примерчик, наверняка уже было. Есть необходимость в большом ХТМЛ файле между определенными тегами текст сохранить в разные файлики.
Причем, - вот это сложное место , текст от <h1> до </h1> отдать новому фалику в <title></title>, а остальной текст, от того же <h1> до следующего <h1> - в текст. И так весь файл
Файлы большие, книжки, могут быть и 600 кил и метр. Если просто курсор "водить" и курсор позишн считать - это ж черт знает сколько времени займет...
А даже если и так - я, дурак, не соображаю как из каждого куска текста одновременно и заголовок (<h1></h1>) отдельно забрать и весь этот же текст от одного открывающего <h1> до другого <h1>.
Может уже придумано кем-нибудь? Я просто не нашел.

а пример такого файла(не очень большого) можно? из твоих объяснений ничего не понятно

Сдается мне, автора спасут Mid и InStr

А еще поиск...

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
 
 
Private Sub Form_Load()
Dim strData As String
Dim strStartTime As Date
 
Me.Show
strStartTime = Now
 
    strData = "<h1>Тут твой нтмл файл</h1><h2>и дальше по строчкам его анализируешь</h2><h3>и делай с ним что хочешь</h3>"
 
LockWindowUpdate List1.hWnd
Call analise(strData, List1)
LockWindowUpdate 0&
 
Me.Caption = Abs(DateDiff("s", Now, strStartTime)) & " СЕК."
End Sub
 
Public Function analise(text As String, list As ListBox)
Dim DugkiOpen As Boolean
Dim temp As String
 
 
For i = 1 To Len(text)
    If Mid(text, i, 1) = ">" Then
        DugkiOpen = True
        GoTo 10
    End If
    If Mid(text, i, 1) = "<" Then
        DugkiOpen = False
        If Len(temp) > 0 Then
            list.AddItem temp
        End If
        temp = ""
    End If
    
    If DugkiOpen = True Then
        temp = temp + Mid(text, i, 1)
    End If
DoEvents
 
10
Next i
End Function

я решал эту проблему так

Сообщение отредактировано: GRAFF - 08.01.09, 11:55