كيف اتخطى حفظ الملف على الجهاز بهذا الكود
كود :
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
ممكن توضح اكثر كيف تتخطى الحفظ (شرط او دائما تتخطاه)
السلام عليكم ورحمة الله وبركاته
احي الكريم هذا السطر هو الحفظ اجعله كومانت
كود :
IO.File.WriteAllText(Application.StartupPath & "\tx.txt", x.DownloadString(TextBox2.Text))
اقصد ان اكمل الكود دون حفظ اي ملف على الجهاز يعني ينزل كود 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"))
لكن هنا المشكلة اني ما اريد اترك اي مخلفات ما اريد احفظ اي ملف على الجهاز
ف اكو حل؟
ممكن ان تقوم باضافة حذف الملف بعد الانتهاء
او
قم بتجربة هذا
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
ما اعرف شون انك مفكرت بهذا الشي
IO.File.ReadAllLines("هنا لازم تخلي مسار الملف")
مو تخلي نص
اعتذر لكنك متساعد
مشكور جدا
ماعرف شون غابت عن بالي