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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] [تم الحل] تخطي حفظ الملف (/showthread.php?tid=34930)

[تم الحل] تخطي حفظ الملف - Sorax - 25-05-20

كيف اتخطى حفظ الملف على الجهاز بهذا الكود 
كود :
   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


RE: تخطي حفظ الملف - AbdoDabak - 25-05-20

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

RE: تخطي حفظ الملف - ابراهيم ايبو - 25-05-20

السلام عليكم ورحمة الله وبركاته
احي الكريم هذا السطر هو الحفظ اجعله كومانت
كود :
IO.File.WriteAllText(Application.StartupPath & "\tx.txt", x.DownloadString(TextBox2.Text))


RE: تخطي حفظ الملف - Sorax - 25-05-20

اقصد ان اكمل الكود دون حفظ اي ملف على الجهاز يعني ينزل كود 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"))
 
لكن هنا المشكلة اني ما اريد اترك اي مخلفات ما اريد احفظ اي ملف على الجهاز 
ف اكو حل؟

RE: تخطي حفظ الملف - AbdoDabak - 25-05-20

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

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 


RE: تخطي حفظ الملف - Sorax - 25-05-20

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

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

RE: تخطي حفظ الملف - DK-x - 25-05-20

جرب هذا

كود :
ls.Items.AddRange(Split(x.DownloadString(TextBox2.Text), vbLf))


RE: تخطي حفظ الملف - Sorax - 25-05-20

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