Salve a tutti, il titolo non è molto concreto ma sinceramente non sapevo come scrivere, poichè è un problema che non riesco a risolvere
Allora, c'è una pagina con vari video(Non Youtube), e ognuno di questi ha un proprio ID. Io ottengo l'ID e tramite questo poi prendo le varie informazioni(Durata-numero di visite-punti che si guadagnano ecc.); ma c'è un piccolo problema, ci sono alcuni video che hanno un ID strutturato diverso, cioè invece di iniziare "pid_" iniziano per "pid__"
Screen:![]()
Il codice che uso è questo:
Ovviamente poi mi restituisce errore NullReference perchè quando incontra "pid__" il programma usa"pid_" e non so come prevenire questo errore, ho provato con un replace e return, mi funziona, ma poi invece di prendermi 48 video(Come dovrebbe) me ne prende molti di meno(25 circa)...codice:Dim finale As String Dim finale2 As String Dim num As Integer Dim categorie As String Dim PageElement As HtmlElementCollection = WebBrowser1.Document.GetElementById("browse-video-catalog").GetElementsByTagName("ul") Dim CurElement As HtmlElement = WebBrowser1.Document.GetElementById("browse-video-catalog").GetElementsByTagName("li").Item(0) For Each CurElement In PageElement categorie = CurElement.InnerHtml num = categorie.IndexOf(":") 'Link video finale = categorie.Substring(num, 33) finale2 = "http://lockerz.com/p/watch/" & finale 'informazioni video tramite ID(Titolo-Durata-Punti ecc) finaleID = finale.Replace(":", "pid_") titolo = BrowserIE.Document.GetElementById(finaleID).GetElementsByTagName("li").Item(0).InnerText ptz = BrowserIE.Document.GetElementById(finaleID).GetElementsByTagName("li").Item(4).InnerText watched = BrowserIE.Document.GetElementById(finaleID).GetElementsByTagName("li").Item(5).InnerText durata = BrowserIE.Document.GetElementById(finaleID).GetElementsByTagName("li").Item(2).InnerText End If Next
Qualche idea??
grazie mille


Rispondi quotando