.txt auslesen(internet)

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von andre161292.

    Oder einfach mittels WebClient abrufen und in die Textbox schreiben:

    VB.NET-Quellcode

    1. Public Class Form1
    2. ' Benötigt werden:
    3. ' 1 BackgroundWorker, 1 Button und 1 TextBox
    4. Dim url As String
    5. Dim webr As New Net.WebClient
    6. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. BackgroundWorker1.RunWorkerAsync()
    8. End Sub
    9. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    10. url = "http://raptox.bplaced.net/Commandos/Command.txt"
    11. e.Result = webr.DownloadString(url)
    12. End Sub
    13. Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    14. If e.Result <> Nothing Then
    15. TextBox1.Text = e.Result
    16. End If
    17. End Sub
    18. End Class


    mfg, Andre
    @ andre161292: Wieso speicherst du in der Variable url einen Wert ein, nur um dann in der nächsten Zeile sie gleich wieder auszulesen. Die brauchst du doch gar nicht:

    VB.NET-Quellcode

    1. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    2. e.Result = webr.DownloadString("http://raptox.bplaced.net/Commandos/Command.txt")
    3. End Sub


    Dann kannst du aber auch die Definition von der Variable weg lassen.

    Alteran
    Eben wegen dem einfrieren hab ich es in einen BackgroundWorker gesteckt, denn nach diesem Thema wird bestimmt nicht nur RAPTOX suchen.
    Und was den DownloadStringAsynch angeht:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim WithEvents webr As New Net.WebClient
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. webr.DownloadStringAsync(New Uri("http://raptox.bplaced.net/Commandos/Command.txt"))
    5. End Sub
    6. Private Sub webrDownloadStringCompleted(ByVal sender As Object, ByVal e As Net.DownloadStringCompletedEventArgs) Handles webr.DownloadStringCompleted
    7. If e.Result.ToString <> Nothing Then
    8. TextBox1.Text = e.Result.ToString
    9. Else
    10. MessageBox.Show(e.Error.Message.ToString)
    11. End If
    12. End Sub
    13. End Class

    Wär in dem Fall wirklich einfacher gewesen, die Url direkt einzufügen.. :pinch: