• 14-06-2015, 20:20:40
    #1
    Merhabalar,
    üstadlarım şimdi ben kendi sitemdeki bir txt dosyasında alt alta satırlar şeklinde bulunan site listesini projedeki listbox1'e eklemek istiyorum aşağıdaki gibi bir kod yazdım siteye ulaşıyor ve txt'i görüyor ancak sadece txt'deki son satırı görüyor. Bunu nasıl düzeltebiliriz?
    Try
                Dim istek As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(sitelistesiurl)
                Dim Cevap As System.Net.HttpWebResponse = istek.GetResponse()
                Dim okuyucu As System.IO.StreamReader = New System.IO.StreamReader(Cevap.GetResponseStream())
                Dim siteler As String
                Do While okuyucu.Peek >= 0
                    siteler = okuyucu.ReadLine()
                Loop
                ListBox1.Items.Add(siteler)
            Catch ex As Exception
                MsgBox("İşlem başarısız...")
            End Try
  • 14-06-2015, 21:22:27
    #2
    şu şekilde düzenle

    Do While okuyucu.Peek >= 0
    ListBox1.Items.Add(okuyucu.ReadLine())
    Loop

    her ne kadar aynı olsa da peek>-1 kullan genel olarak kullanımı böyledir
  • 15-06-2015, 05:46:32
    #3
    Üyeliği durduruldu
    burdanogren adlı üyeden alıntı: mesajı görüntüle
    Merhabalar,
    üstadlarım şimdi ben kendi sitemdeki bir txt dosyasında alt alta satırlar şeklinde bulunan site listesini projedeki listbox1'e eklemek istiyorum aşağıdaki gibi bir kod yazdım siteye ulaşıyor ve txt'i görüyor ancak sadece txt'deki son satırı görüyor. Bunu nasıl düzeltebiliriz?
    Try
                Dim istek As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(sitelistesiurl)
                Dim Cevap As System.Net.HttpWebResponse = istek.GetResponse()
                Dim okuyucu As System.IO.StreamReader = New System.IO.StreamReader(Cevap.GetResponseStream())
                Dim siteler As String
                Do While okuyucu.Peek >= 0
                    siteler = okuyucu.ReadLine()
                Loop
                ListBox1.Items.Add(siteler)
            Catch ex As Exception
                MsgBox("İşlem başarısız...")
            End Try
    Sorun çözüldü mü hocam?
  • 15-06-2015, 14:45:11
    #4
    ertan2002 adlı üyeden alıntı: mesajı görüntüle
    şu şekilde düzenle

    Do While okuyucu.Peek >= 0
    ListBox1.Items.Add(okuyucu.ReadLine())
    Loop

    her ne kadar aynı olsa da peek>-1 kullan genel olarak kullanımı böyledir
    teşekkür ederim hocam sorunu çözdünüz

    --R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 14:45:11 -->-> Daha önceki mesaj 14:44:27 --

    ahmet5800 adlı üyeden alıntı: mesajı görüntüle
    Sorun çözüldü mü hocam?
    evet üstad çözüldü teşekkür ederim.