youtube video

Public Structure YouTubeVideo
        Dim name As String
        Dim url As String
        Dim length As String
    End Structure
    Function getvideos(ByVal URL As String) As YouTubeVideo()
        Dim reader As New System.IO.StreamReader("c:\users\james\desktop\1.xml")
        Dim file As String = reader.ReadToEnd
        Dim videos() As String = Split(file, "<livideo")
        For i = 0 To videos.GetLength(0) - 3
            videos(i) = videos(i + 1)
        Next
        ReDim Preserve videos(videos.GetLength(0) - 2)
        Dim video(videos.GetLength(0) - 2) As YouTubeVideo
        For i = 0 To video.GetLength(0) - 1
            'extracting the video name
            video(i).name = Mid(videos(i), InStr(videos(i), "h3"))
            video(i).name = Mid(video(i).name, InStr(video(i).name, ">") + 1)
            video(i).name = Mid(video(i).name, 1, InStr(video(i).name, "<") - 1)
            'extracting the video url
            video(i).url = Mid(videos(i), InStr(videos(i), "<a href="))
            video(i).url = Mid(video(i).url, InStr(video(i).url, "/"))
            video(i).url = "http://www.youtube.com" & Mid(video(i).url, 1, InStr(video(i).url, Chr(34)))
            'extracting the video length
            video(i).length = Mid(videos(i), InStr(videos(i), "<spanvideo-time"))
            video(i).length = Mid(video(i).length, InStr(video(i).length, ">") + 1)
            video(i).length = Mid(video(i).length, 1, InStr(video(i).length, "<") - 1)
        Next
        getvideos = video
    End Function