[Sorax]

كيف اتخطى حفظ الملف على الجهاز بهذا الكود 

كود :

   Dim ls As New ListBox
   Dim x As New Net.WebClient
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       IO.File.WriteAllText(Application.StartupPath & "\tx.txt", x.DownloadString(TextBox2.Text))
       ls.Items.AddRange(IO.File.ReadAllLines(Application.StartupPath & "\tx.txt"))
   End Sub

[AbdoDabak]

ممكن توضح اكثر كيف تتخطى الحفظ (شرط او دائما تتخطاه)

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
احي الكريم هذا السطر هو الحفظ اجعله كومانت

كود :

IO.File.WriteAllText(Application.StartupPath & "\tx.txt", x.DownloadString(TextBox2.Text))

[Sorax]

اقصد ان اكمل الكود دون حفظ اي ملف على الجهاز يعني ينزل كود HTML من هذا الكود

كود :

x.DownloadString(TextBox2.Text)

 ويضيفة الى ListBox مباشرة على شكل اسطر متعددة مو بس سطر واحد

---

(25-05-20, 02:25 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
احي الكريم هذا السطر هو الحفظ اجعله كومانت

كود :

IO.File.WriteAllText(Application.StartupPath & "\tx.txt", x.DownloadString(TextBox2.Text))

اخي اعتذر منك... انت مفهمتني
هذا الكود اني كتبته..تمام 
اريد الكود يشتغل بدون حفظ اي ملف على الجهاز
على سبيل المثال عندك سطر واحد تريد تدخلة على ListBox 
بكل بساطة ح تكتب 

كود :

ListBox1.Items.Add("Line 1")

لكن اذا كان عندك اكثر من لاين ف رح تضيفها بهذا الكود على سبيل المثال

كود :

ListBox1.Items.AddRange(IO.File.ReadAllLines(Application.StartupPath & "\tx.txt"))

 
لكن هنا المشكلة اني ما اريد اترك اي مخلفات ما اريد احفظ اي ملف على الجهاز 
ف اكو حل؟

[AbdoDabak]

ممكن ان تقوم باضافة حذف الملف بعد الانتهاء

او 

قم بتجربة هذا 

PHP كود :

Dim ls As New ListBox
    Dim x As New Net.WebClient
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ls.Items.AddRange(IO.File.ReadAllLines(x.DownloadString(TextBox2.Text)))
    End Sub 


[Sorax]

ما اعرف شون انك مفكرت بهذا الشي

IO.File.ReadAllLines("هنا لازم تخلي مسار الملف")
مو تخلي نص
اعتذر لكنك متساعد

[DK-x]

جرب هذا

كود :

ls.Items.AddRange(Split(x.DownloadString(TextBox2.Text), vbLf))

[Sorax]

مشكور جدا
ماعرف شون غابت عن بالي