تقييم الموضوع :
  • 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 ك ب / التحميلات : 23)
الرد }}}}
تم الشكر بواسطة:
#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)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة تعبئة listbox من ملف text وربطه برابط على الانترنت youssef1 10 204 11-02-17, 12:56 AM
آخر رد: hassan
  Random من listbox Mohamed20 9 177 01-02-17, 01:18 AM
آخر رد: Mohamed20
  [VB.NET] total number listbox +8 3asfa~mdmra 2 81 31-01-17, 07:54 PM
آخر رد: 3asfa~mdmra
  البحث قى listbox Mohamed20 1 88 27-01-17, 07:12 AM
آخر رد: مساعدة
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 2 94 25-01-17, 04:06 PM
آخر رد: riad21
  [VB.NET] Upload file dubai.eig 3 143 11-01-17, 10:23 AM
آخر رد: dubai.eig
  [سؤال] arabic text to speech beep 12 4,409 03-01-17, 01:40 PM
آخر رد: EnormousSoft
  [VB.NET] سؤال في text box engmedomed@gmail.com 1 113 31-12-16, 07:20 PM
آخر رد: مساعدة
  [سؤال] كود ListBox naden 2 128 28-12-16, 02:09 AM
آخر رد: naden
  [VB.NET] كيفيه تقطيع النصوص من text box or rich box engmedomed@gmail.com 4 137 27-12-16, 08:28 PM
آخر رد: مساعدة

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


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