Hi,
ich möchte ein Konsolenprogramm schreiben, das alle YT-Suchresultate in einer Konsole auflistet, und zuvordest eine Numer schreibt, damit ich z.B. für den direkten Download einfach "Video: 1" eingeben muss.
Jedoch habe ich schon beim auflisten ein problem:
Die Fehlermeldung: Der Wert des Typs 1-dimensonales Array von String. kann nicht in System.Collections.Generic.List(Of String) konvertiert werden.
Es kommt in der Zeile mit dem Befehl "SearchVideo(x, y)"
brauche hilfe
mfg
gfc
ich möchte ein Konsolenprogramm schreiben, das alle YT-Suchresultate in einer Konsole auflistet, und zuvordest eine Numer schreibt, damit ich z.B. für den direkten Download einfach "Video: 1" eingeben muss.
Jedoch habe ich schon beim auflisten ein problem:
VB.NET-Quellcode
- 'TYP=ConsoleApplication
- 'LANGUAGE=VISUALBASIC
- #Region "Imports"
- Imports System
- Imports System.Collections
- Imports System.Collections.Generic
- Imports System.Diagnostics
- Imports System.Net
- Imports System.IO
- Imports System.Text.RegularExpressions
- Imports System.Text
- Imports Microsoft.VisualBasic
- #End Region
- Public Class Main
- Public Shared Sub Main()
- Console.Title = "YouTube SearchVideo"
- Dim x as String
- x = Console.ReadLine()
- Dim y as String()
- SearchVideo(x, y)
- Console.ReadLine()
- End Sub
- Public Shared Sub SearchVideo(ByVal search_query As String, ByVal List as List(Of String))
- Dim ReadHTML As String
- Dim subquery As String = "http://www.youtube.com/results?search_query=" + search_query
- Dim query As String = Replace(subquery, "+", " ", 1, -1, CompareMethod.Text)
- Dim httpRequest As HttpWebRequest = CType(HttpWebRequest.Create(query), HttpWebRequest)
- Dim httpResponse As HttpWebResponse = CType(httpRequest.GetResponse(), HttpWebResponse)
- Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
- ReadHTML = reader.ReadToEnd()
- reader.Close()
- Dim Pattern As String = ""
- Dim MyMatches As MatchCollection = Regex.Matches(ReadHTML, Pattern)
- For Each successfulMatch As Match In MyMatches
- List.Add("/w" + successfulMatch.Groups(1).Value)
- Next
- End Sub
- End Class
Die Fehlermeldung: Der Wert des Typs 1-dimensonales Array von String. kann nicht in System.Collections.Generic.List(Of String) konvertiert werden.
Es kommt in der Zeile mit dem Befehl "SearchVideo(x, y)"
brauche hilfe
mfg
gfc