تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Save ListBox To Text File
#1
كود :
       For i = 0 To ListBox1.Items.Count - 1
           list.IniWriteValue("List", "name", ListBox1.Items(i))
       Next i

       For Each value As String In ListBox1.Items
           list.IniWriteValue("List", "name", value)
       Next
الطريقة كانت تعمل معى من قبل لاكن لا اعلم السبب لا تريد ان تعمل
الرد }}}}
تم الشكر بواسطة:
#2
شوف طريقة بسيطة
PHP كود :
Public Class Form1
    Private Sub savetotxt
()
 
       Dim b As String ""
 
       Dim ofd As New SaveFileDialog
        If ofd
.ShowDialog Windows.Forms.DialogResult.OK Then
            If ofd
.FileName.ToString.Trim "" Then Exit Sub
            For a 
0 To ListBox1.Items.Count 1
                b 
&= ListBox1.Items.Item(a).ToString vbNewLine
                My
.Computer.FileSystem.WriteAllText(ofd.FileNamebFalse)
 
           Next
        End 
If
 
   End Sub
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        savetotxt
()
 
   End Sub
End 
Class 
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: khodor1985 , khodor1985 , ad1000
#3
وهذه طريقة أخرى أيضا :
PHP كود :
Dim s As StreamWriter = New StreamWriter("D:\txt1.txt")
        For 
0 To ListBox1.Items.Count 1
            s
.WriteLine(ListBox1.Items.Item(i))
        
Next
        s
.Close() 

أتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة: hassan , hassan , ad1000
#4
(05-03-16, 03:51 PM)سعود كتب : شوف طريقة بسيطة
PHP كود :
Public Class Form1
    Private Sub savetotxt
()
 
       Dim b As String ""
 
       Dim ofd As New SaveFileDialog
        If ofd
.ShowDialog Windows.Forms.DialogResult.OK Then
            If ofd
.FileName.ToString.Trim "" Then Exit Sub
            For a 
0 To ListBox1.Items.Count 1
                b 
&= ListBox1.Items.Item(a).ToString vbNewLine
                My
.Computer.FileSystem.WriteAllText(ofd.FileNamebFalse)
 
           Next
        End 
If
 
   End Sub
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        savetotxt
()
 
   End Sub
End 
Class 

(05-03-16, 04:04 PM)khodor1985 كتب : وهذه طريقة أخرى أيضا :
PHP كود :
Dim s As StreamWriter = New StreamWriter("D:\txt1.txt")
 
       For i 0 To ListBox1.Items.Count 1
            s
.WriteLine(ListBox1.Items.Item(i))
 
       Next
        s
.Close() 

أتمنى لك التوفيق

شكرآ لاكن لا يمكننى اضافة Name=
الرد }}}}
تم الشكر بواسطة: hassan , hassan
#5
أخي العزيز، أرسل لنا مشروعك أو مثال مصغر عن مشروعك للتعديل عليه وشكرا.
الرد }}}}
تم الشكر بواسطة: hassan , ad1000
#6
(05-03-16, 04:47 PM)khodor1985 كتب : أخي العزيز، أرسل لنا مشروعك أو مثال مصغر عن مشروعك للتعديل عليه وشكرا.

+++++++++++
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة: khodor1985 , khodor1985 , ad1000
#7
اسف على التأخير


الملفات المرفقة
.rar   test.rar (الحجم : 42.05 ك ب / التحميلات : 21)
الرد }}}}
تم الشكر بواسطة:
#8
وهذه طريقة أخرى أيضا :

للحفظ:
PHP كود :
IO.File.WriteAllLines("textfile.txt"ListBox1.Items.Cast(Of String)()) 

للقراءة:
PHP كود :
ListBox1.Items.AddRange(IO.File.ReadAllLines("textfile.txt")) 
الرد }}}}
تم الشكر بواسطة:
#9
(05-03-16, 08:09 PM)ad1000 كتب : وهذه طريقة أخرى أيضا :

للحفظ:
PHP كود :
IO.File.WriteAllLines("textfile.txt"ListBox1.Items.Cast(Of String)()) 

للقراءة:
PHP كود :
ListBox1.Items.AddRange(IO.File.ReadAllLines("textfile.txt")) 

المشكلة انى اريد اضافة كلمة Name= قبل ال listbox item
الرد }}}}
تم الشكر بواسطة:
#10
لم أفهم المقصد من (المشكلة انى اريد اضافة كلمة Name= قبل ال listbox item)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة كتابة نص في text box kofa 3 36 أمس, 09:24 PM
آخر رد: kofa
  [VB.NET] كيف اجعل صف في listbox ملون 3asfa~mdmra 1 92 26-11-16, 01:00 PM
آخر رد: silverlight
  تقسيم text الى عدة listbox rabeh.ram 4 107 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  [VB.NET] http file upload dubai.eig 3 84 16-11-16, 09:50 PM
آخر رد: dubai.eig
  مساعدة بخصوص Listbox CLARO 3 84 16-11-16, 06:15 PM
آخر رد: silverlight
  [سؤال] حفظ النص المكتوب داخل listBox فارس جراح 7 120 15-11-16, 04:00 AM
آخر رد: LoveVb
  [VB.NET] قاعدة بيانات و listbox rabeh.ram 2 122 05-11-16, 02:51 AM
آخر رد: rabeh.ram
Bug [VB.NET] مـساعدة بخـصوص Listbox 3asfa~mdmra 6 91 04-11-16, 07:33 PM
آخر رد: silverlight
  الكتابة فى ملف text Mohamed20 1 66 31-10-16, 11:39 PM
آخر رد: silverlight
  عندما TextBox1.DataBinding.Add("text" , DataSet1 , Table.Field) Text كيف للصور thevirus 2 80 29-10-16, 06:31 PM
آخر رد: thevirus

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم