منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] لدي مشكلة في استرداد نص من ملف علي النت في listbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] لدي مشكلة في استرداد نص من ملف علي النت في listbox (/showthread.php?tid=40717)



لدي مشكلة في استرداد نص من ملف علي النت في listbox - sascoxat - 09-02-22

السلام عليكم ورحمة الله وبركاته
عندما اقوم باسترداد نص من ملف علي الانترنت في listbox اواجه هذه المشكلة

الكود اللى استعملته
كود :
   Dim txt As String = "https://pastebin.com/raw/GsRqBC3N"
       Dim WC As WebClient = New WebClient()
       Dim Read As StreamReader = New StreamReader(WC.OpenRead(txt))
       Dim STR As String = Read.ReadToEnd
       listbox1.Items.Add(STR)



RE: لدي مشكلة في استرداد نص من ملف علي النت في listbox - asmarsou - 10-02-22

(09-02-22, 08:17 PM)sascoxat كتب : السلام عليكم ورحمة الله وبركاته
عندما اقوم باسترداد نص من ملف علي الانترنت في listbox اواجه هذه المشكلة

الكود اللى استعملته
كود :
   Dim txt As String = "https://pastebin.com/raw/GsRqBC3N"
       Dim WC As WebClient = New WebClient()
       Dim Read As StreamReader = New StreamReader(WC.OpenRead(txt))
       Dim STR As String = Read.ReadToEnd
       listbox1.Items.Add(STR)
وعليكم السلام و رحمة الله
غير اداة التكست بوكس باداة ريتش تاكست بوكس و غير السطر الاخير من الكود بهذا


 RichTextBox1.Text = STR


RE: لدي مشكلة في استرداد نص من ملف علي النت في listbox - sascoxat - 10-02-22

(10-02-22, 01:57 AM)asmarsou كتب :
(09-02-22, 08:17 PM)sascoxat كتب : السلام عليكم ورحمة الله وبركاته
عندما اقوم باسترداد نص من ملف علي الانترنت في listbox اواجه هذه المشكلة

الكود اللى استعملته
كود :
   Dim txt As String = "https://pastebin.com/raw/GsRqBC3N"
       Dim WC As WebClient = New WebClient()
       Dim Read As StreamReader = New StreamReader(WC.OpenRead(txt))
       Dim STR As String = Read.ReadToEnd
       listbox1.Items.Add(STR)
وعليكم السلام و رحمة الله
غير اداة التكست بوكس باداة ريتش تاكست بوكس و غير السطر الاخير من الكود بهذا


 RichTextBox1.Text = STR
شكرا لك ولكن انا اعلم ذلك انا اريد الاسترداد من خلال listbox وليس richtextbox


RE: لدي مشكلة في استرداد نص من ملف علي النت في listbox - سعود - 10-02-22



PHP كود :
Imports System.Net
Public Class Form1
    Private Sub g
(url As String)
 
       Using wc As New WebClient
            Dim html 
As String wc.DownloadString(url)
 
           For Each h As String In html.Split(vbNewLine)
 
               ListBox1.Invoke(Sub() ListBox1.Items.Add(h))
 
           Next
            Button1
.Invoke(Sub() Button1.Enabled True)
 
           Button1.Invoke(Sub() Button1.Text "ok")
 
       End Using
    End Sub
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim th 
As New Threading.Thread(AddressOf g)
 
       If th.IsAlive False Then
            Button1
.Enabled False
            Button1
.Text "wait..."
 
           th.Start("https://pastebin.com/raw/GsRqBC3N")
 
       End If
 
   End Sub
End 
Class 



RE: لدي مشكلة في استرداد نص من ملف علي النت في listbox - sascoxat - 10-02-22

(10-02-22, 07:38 AM)سعود كتب :

PHP كود :
Imports System.Net
Public Class Form1
    Private Sub g
(url As String)
 
       Using wc As New WebClient
            Dim html 
As String wc.DownloadString(url)
 
           For Each h As String In html.Split(vbNewLine)
 
               ListBox1.Invoke(Sub() ListBox1.Items.Add(h))
 
           Next
            Button1
.Invoke(Sub() Button1.Enabled True)
 
           Button1.Invoke(Sub() Button1.Text "ok")
 
       End Using
    End Sub
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim th 
As New Threading.Thread(AddressOf g)
 
       If th.IsAlive False Then
            Button1
.Enabled False
            Button1
.Text "wait..."
 
           th.Start("https://pastebin.com/raw/GsRqBC3N")
 
       End If
 
   End Sub
End 
Class 

شكرا لك اخي الغالي الله يحفظك