تقييم الموضوع :
  • 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 ك ب / التحميلات : 50)
الرد
تم الشكر بواسطة:
#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 تم تعبئة البيانات من خلال قاعدة البيانات dametucorazon 3 65 08-07-18, 03:05 AM
آخر رد: elgokr
  كود تحويل ما في ListBox ل TextBox YousefOkasha 2 59 30-06-18, 11:50 AM
آخر رد: YousefOkasha
  كيف يمكنني طباعة محتوي ال TEXT maram2423 1 77 22-06-18, 08:28 PM
آخر رد: عبد العزيز البسكري
  [مثال] كيفيه عمل Random Text للفورم YousefOkasha 5 130 21-06-18, 02:32 PM
آخر رد: YousefOkasha
  التكرار في Listbox عن طريق Regex aftfm 22 2,676 03-06-18, 06:14 PM
آخر رد: mrnooo2000
  [VB.NET] قراءة بيانات محددة من ملف text hani78 3 153 09-05-18, 02:38 AM
آخر رد: mrnooo2000
  [VB.NET] كيف اجعل listbox تستوعب اكبر عدد ممكن من الكلمات او الارقام e-coder 3 134 06-05-18, 12:53 PM
آخر رد: viv
  استخدام file upload montser 0 80 17-04-18, 06:41 PM
آخر رد: montser
  خطأ في Open File Dialog ibraheam 5 252 21-03-18, 12:28 AM
آخر رد: محمود صالح
  طلب بخصوص حساب عدد الصفوف في listbox ahmedfa71 2 152 08-03-18, 05:11 PM
آخر رد: ahmedfa71

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


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