Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[PYTANIE] pomoc w kode


Rekomendowane odpowiedzi

Opublikowano

witam proszę o pomoc
używam tego kody


        Dim sr As New IO.StreamReader ("data/patch.txt")
        Dim line As String = sr.ReadLine()

        Dim req As Net.WebRequest
        Dim resp As IO.Stream
        Dim out As IO.BinaryWriter

        Do While line IsNot Nothing
            req = Net.HttpWebRequest.Create("http://amica.no-ip.org/download/data/" & line)
            resp = req.GetResponse().GetResponseStream()

            out = New IO.BinaryWriter(New IO.FileStream("data\" & line, IO.FileMode.OpenOrCreate))

            Dim buf(4096) As Byte
            Dim k As Int32 = resp.Read(buf, 0, 4096)

            Do While k > 0
                out.Write(buf, 0, k)
                k = resp.Read(buf, 0, 4096)
            Loop

            resp.Close()
            out.Close()

            line = sr.ReadLine()
        Loop

i chciałem przerobić

Dim sr As New IO.StreamReader ("data/patch.txt")

żeby czytał ze strony plik.txt a nie z dysku lokalnego

Opublikowano

Użyj klasy FileStream aby mieć strumień pliku który możesz odczytać przez StreamReader.

 

@EDIT A sory. Ty chcesz ze strony plik czytać. Musisz go najpierw ściągnąć np. przez HttpWebRequest.

Opublikowano

żeby nie robić nowego tematu zapytam się tu
czy jest kod który pozwala na otwierania pliku z archiwum ??

Opublikowano

Przepisz potrzebne rzeczy z mojego kodu

Public Class Form1
    Private WithEvents Downloader As New Net.WebClient
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim sr As New IO.StringReader(Downloader.DownloadString("http://google.pl"))


    End Sub
End Class
 

 

7j66.png

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...