' Jeg kan sagtens finde film titlerne jeg vil have også have årstallet med, og i en anden listbox url'en "/title/..." Hvordan gør jeg det..
Kode:
'
'---Form1---
'indholder en textbox (txtFilmTitel), 1 listbox(list1) 1 internet transfer(inet1)
'Finde titler der passer på FilmTitel'en:
Private Sub HentIMDBinfo()
Dim strURL As String
Dim toParse As String
Dim temp() As String
Dim Temp2() As String
Dim Titel As String
Dim i
strURL = "
http://imdb.com/find?q=" strURL = strURL & txtFilmTitel & ";s=tt" 'URL TIL filmsøgning på titeler
toParse = Inet1.OpenURL(strURL)
If Len(toParse) > 0 Then
temp() = Split(toParse, "<h1>")
temp() = Split(temp(0), "</h1>")
Temp2() = Split(toParse, "<H2>")
Temp2() = Split(Temp2(0), "/title/")
For i = 1 To UBound(Temp2())
temp() = Split(Temp2(i), ">")
temp() = Split(temp(1), ")")
Titel = temp(0)
Titel = Replace(Titel, "</a", "")
'Titel = Replace(Titel, """, "''") <-- Fjern mærkeligetegn
'Titel = Replace(Titel, "ó", "ó") <-- Fjern mærkeligetegn
List1.AddItem Titel
Next i
Else
'intet indhold (fejl på hentning af information)
End If
End Sub
Private Sub Form_Load()
With Inet1
.AccessType = 0 'Default
.RemotePort = 80
.Protocol = 4 'HTTP
End With
End Sub
Private Sub txtFilmTitel_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
List1.Clear
Call HentIMDBinfo
End If
End Sub
