Extrakce textu z HTML

Pokud máte nějaké HTML a chcete vyhledávat podle tagů určité hodnoty a máte vyhledávanou hodnotu mezi konkrétním textem? Pokud nao mám na to jednoduchou funkci.

Jde vlastně jen o osekávání textu pomocí dvou textů.

'*******************************************************************************
''Pomocná Metoda sloužící k vytáhnutí požadované hodnoty z HTMLtextu pomocí počátečního a konového "slova"
'
' @param        text - text k očištění
' @param        Tag_zacatek - tag od kterého se čistí hodnota
' @param        Tag_konec - tag do kterého se čistí hodnota
' @return       Očištěný text
'*******************************************************************************

Public Function metHodnoty(text_s As String, tagZacatek_s As String, tagKonec_s As String) As String
    Dim zacatek_l As Long
    Dim osekanejText_s As String
    Dim konec_l As Long

    text_s = Trim(text_s) 'odstranení přebytečných mezer před a za textem
    zacatek_l = InStr(1, text_s, tagZacatek_s) + (Len(tagZacatek_s)) 'počet znaků od počtáku textu do konce počátečního tagu Tag_zacatek
    osekanejText_s = Mid(text_s, zacatek_l) ' osekání textu od Tag_zacatek do konce textu
    konec_l = InStr(1, osekanejText_s, tagKonec_s) - 1 'nalezení prvního znaku koncového tagu (Tag_konec)
    If konec_l <> -1 Then 'text má alespoň nějakou délku
        metHodnoty = Left(osekanejText_s, konec_l)
    Else
        metHodnoty = ""
    End If
End Function

Napsat komentář

Vaše emailová adresa nebude zveřejněna.