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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  HScrollBar1 و listbox dasktop 0 45 07-10-18, 06:13 PM
آخر رد: dasktop
  [VB.NET] كود حفظ محتويات listbox Aminsoft 3 97 07-10-18, 08:43 AM
آخر رد: elgokr
  [VB.NET] استفسار :- Speech To Text تحويل الصوت الى حروف dubai.eig 1 91 05-10-18, 07:08 PM
آخر رد: alsouf
Smile [VB.NET] مشكلتي مع البحث في listbox rizakflash8 9 198 24-09-18, 02:13 PM
آخر رد: elgokr
  [سؤال] كيفيه عمل split لملف من نوع تيكست وتصديره داخل LISTBOX dametucorazon 5 106 02-09-18, 10:24 AM
آخر رد: elgokr
  طريقة حساب عدد الاسماء الموجودة في listbox ahmedmansour 1 101 30-07-18, 11:33 PM
آخر رد: elgokr
  كود تحويل ما في ListBox ل TextBox YousefOkasha 6 243 24-07-18, 02:49 PM
آخر رد: معاذ العامري
  [سؤال] كيف اقوم بعمل فلتر لبيانات في LISTBOX تم تعبئة البيانات من خلال قاعدة البيانات dametucorazon 3 169 08-07-18, 03:05 AM
آخر رد: elgokr
  كيف يمكنني طباعة محتوي ال TEXT maram2423 1 131 22-06-18, 08:28 PM
آخر رد: عبد العزيز البسكري
  [مثال] كيفيه عمل Random Text للفورم YousefOkasha 5 206 21-06-18, 02:32 PM
آخر رد: YousefOkasha

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


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