Dim Funktion bei mehreren subs zulassen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von n1nja.

    Dim Funktion bei mehreren subs zulassen

    Hey VB-Paradise Com.

    Hier mein Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    2. Imports System.IO
    3. Imports System.Text
    4. Public Class Form1
    6. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    8. End Sub
    9. Private Sub quellcode_auslesen()
    10. Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(webrequest_url)
    11. Dim response As System.Net.HttpWebResponse = request.GetResponse
    13. Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
    15. Dim rssourcecode As String = sr.ReadToEnd
    16. Dim r As New System.Text.RegularExpressions.Regex("<a href=""/release/(.*)"" style=(.*)""color: #FFFFFF"">(.*)(.*)<")
    17. Dim matches As MatchCollection = r.Matches(rssourcecode)
    18. For Each itemcode As Match In matches
    19. ListBox1.Items.Add(itemcode.Value.Split(CChar(">(.*)""(.*)<")).GetValue(1).ToString.Substring(0, itemcode.Value.Split(CChar(">(.*)""(.*)<")).GetValue(1).ToString.Length - 1))
    20. ListBox1.SelectedIndex = (0)
    21. Next
    22. End Sub
    24. Private Sub get_quellcode()
    25. ListBox1.Items.Clear()
    26. If ComboBox1.SelectedItem = "Google" Then
    27. Dim webrequest_url = "www.google.de"
    29. End If
    30. If ComboBox1.SelectedItem = "Youtube" Then
    31. Dim webrequest_url = "www.youtube.de"
    33. End If
    34. End Sub
    35. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    36. get_quellcode()
    37. End Sub
    38. End Class


    Ich möchte einmal die funktion (regex: Private Sub quellcode_auslesen()) festlegen und dann anhand einer combobox den URL der angefordert werden soll ändern.
    Bsp.: Private Sub quellcode_auslesen()
    Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(webrequest_url)
    ...
    End Sub


    ----
    If ComboBox1.SelectedItem = "Google" Then
    Dim webrequest_url = "www.google.de"

    End If
    If ComboBox1.SelectedItem = "Youtube" Then
    Dim webrequest_url = "www.youtube.de"

    End If

    Ich weiß nicht wie ich das hinbekommen.

    Mfg Regular_vb_user

    Ich hoffe, dass ich Dich richtig verstanden habe.
    Du musst eine If- oder Select Case-Konstruktion bauen, um auf mehrere Möglichkeiten zu verweisen:

    VB.NET-Quellcode

    1. If i = 1 Then
    2. ' ToDo 1
    3. Else If i = 2 Then
    4. ' ToDo 2
    5. Else
    6. ' ToDo sonst
    7. End If
    8. ' ----
    9. Select Case i
    10. Case 1
    11. ' ToDo 1
    12. Case 2
    13. ' ToDo 2
    14. Case Else
    15. ' ToDo sonst
    16. End Select
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    trenne Daten und Gui.
    Modularisiere Verantwortlichkeiten.

    DAs führt dahin, eine Methode zu schreiben, die einen String analysiert und eine List(Of String) zurückgibt. Die Methode könnte "ParseWebContent" heißen, und würde die Regex-Geschichten erledigen.

    Eine annere Methode könnte "GetWebContent" heißen, und man gibt ihr eine Url As String, und sie returnt den Inhalt der runtergeladenen Datei, ebenfalls As String.

    Nun kannst du ein paar Urls in eine List(Of String) packen, und diese Liste der Combobox als Datasource andrehen.
    Im SelectedIndexChanged der Combo greifst du dir die angewählte Url, rufst damit GetWebContent auf, und das Ergebnis übergibste an ParseWebContent.
    Die Rückgabe von ParseWebContent kann dann als Datasource etwa einer Listbox dienen und fertig.

Facebook