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![;(](https://www.vb-paradise.de/wcf/images/smilies/crying.png)
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
![;(](https://www.vb-paradise.de/wcf/images/smilies/crying.png)
mfg
gfc