+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] حفظ النص المكتوب داخل listBox (/showthread.php?tid=18024)
حفظ النص المكتوب داخل listBox - فارس جراح - 14-11-16
السلام عليكم ورحمة الله
لو سمحتم طلبي هو كود حفظ النص المكتوب داخل listBOX
جربت كود حفظ من TextBox عم يحفظ بس المستند يطلع فارغ
ارجوا منكم مساعدتي
وشكرا
RE: حفظ النص المكتوب داخل listBox - dark1459 - 14-11-16
تفضل اخي الكريم
ListBox1.Items.Add(TextBox2.Text)
RE: حفظ النص المكتوب داخل listBox - فارس جراح - 14-11-16
(14-11-16, 11:37 PM)dark1459 كتب : تفضل اخي الكريم
ListBox1.Items.Add(TextBox2.Text)
مشكور اخي ولكن ليس هذا ماطلبت
طلبي هو حفظ النص منListBox الى مستند نصي
RE: حفظ النص المكتوب داخل listBox - سعود - 14-11-16
ممكون تشوف الرابط
http://stackoverflow.com/questions/27322808/writing-content-of-listbox-to-a-txt-file-and-then-opening-it
RE: حفظ النص المكتوب داخل listBox - dark1459 - 15-11-16
تفضل اخي الكريم :
Dim x As Long
For x = 0 To ListBox1.Items.Count - 1
TextBox2.Text = ListBox1.Items(x).ToString
Next
وهكذا عندما تريد اضافة اكثر من text
RE: حفظ النص المكتوب داخل listBox - ابو ليلى - 15-11-16
كما اشار لك الاخ سعود
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim SaveFD As New SaveFileDialog()
SaveFD.Filter = "TXT Files (*.txt*)|*.txt"
If SaveFD.ShowDialog() = DialogResult.OK Then
Dim sb As New System.Text.StringBuilder()
For Each o As Object In ListBox1.Items
sb.AppendLine(o)
Next
System.IO.File.WriteAllText(SaveFD.FileName, sb.ToString())
End If
End Sub
RE: حفظ النص المكتوب داخل listBox - فارس جراح - 15-11-16
(14-11-16, 11:55 PM)سعود كتب : ممكون تشوف الرابط
http://stackoverflow.com/questions/27322808/writing-content-of-listbox-to-a-txt-file-and-then-opening-it
بارك الله فيك اخي الكود الي في الرابط ينقصو امتداد txt وقد قمت بالتعديل عليه وتم بنجاح
جزاك الله عني خيرا
وهذا الكود لكي يستفيد منه غيري
كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim dz As New SaveFileDialog
dz.Filter = "TEXT File|*.txt"
dz.FileName = "new list.txt"
If dz.ShowDialog() = DialogResult.OK Then
Using Writer = New StreamWriter(dz.FileName)
For Each o As Object In ListBox1.Items
Writer.WriteLine(o)
Next
End Using
End If
End Sub(15-11-16, 12:19 AM)ابو ليلى كتب : كما اشار لك الاخ سعود
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim SaveFD As New SaveFileDialog()
SaveFD.Filter = "TXT Files (*.txt*)|*.txt"
If SaveFD.ShowDialog() = DialogResult.OK Then
Dim sb As New System.Text.StringBuilder()
For Each o As Object In ListBox1.Items
sb.AppendLine(o)
Next
System.IO.File.WriteAllText(SaveFD.FileName, sb.ToString())
End If
End Sub
مشكور اخي ابو ليلى بارك الله فيك وجزاك الله خير
RE: حفظ النص المكتوب داخل listBox - LoveVb - 15-11-16
كود اخر
كود :
Io.File.writealltext("c:\a.txt",string.join(vbnewline,listbox1.items.cast(of string).toarray))