myGully.com

myGully.com (https://mygully.com/index.php)
-   Programmierung (https://mygully.com/forumdisplay.php?f=67)
-   -   VB Textdatei aus dem Internet auslesen (https://mygully.com/showthread.php?t=2158980)

logan517 09.11.10 19:08

VB Textdatei aus dem Internet auslesen
 
Hallo,

ich möchte gerne, dass mein Programm eine Textdatei von meinem Webserver herunterlädt und den Inhalt in einer If Abfrage vergleicht und geg. eine MsgBox öffnet.


Das Problem dabei ist, ich bekomme es nur hin, dass Visual Basic lokale Dateien öffnet und keine Datei, welche sich auf meinem Webserver befindet.

Hier mal mein Code
Code:

Imports System.IO
Public Class Form1


    Private Sub cmdLesen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLesen.Click
        Dim fs As New FileStream("C:\version.txt", FileMode.Open)
        Dim sr As New StreamReader(fs)
        Dim zeile As String

        Do Until sr.Peek() = -1
            zeile = sr.ReadLine()
            If zeile <> "1.0" Then
                MsgBox("Veränderung erkannt")
                Exit Sub
            End If
            MsgBox("Keine Veränderung")
        Loop
        sr.Close()
    End Sub
End Class

Nun wollte ich einfach das "C:\version.txt" mit "http://xy.z/version.txt" ersetzen, also so:
Code:

Dim fs As New FileStream("http://xy.z/version.txt", FileMode.Open)
Dies funktioniert leider nicht, könnt ihr mir da halfen und sagen was ich vllt. falsch machen.

Mfg. Logan517

Xalir 09.11.10 23:50

Dafür gibt es die Webclient-Klasse.

Code:

Imports System.Net
Imports System.IO

Private Sub Irgendwas

Dim Client as New Webclient()

Client.Headers.Add("user-agent", "Mozilla/4.0; Windows NT 6.1")

Dim txt As Stream = Client.OpenRead("http://example.org/testfile.txt")

Dim sr As New StreamReader(txt)
...
'Dein weiterer Code hier


logan517 10.11.10 15:38

perfekt Danke


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:30 Uhr.

Powered by vBulletin® (Deutsch)
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.