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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف تفريغ رقم التاريخ (اليوم فقط) في Text Box من Data Time Picker abomo3ath 2 79 13-10-17, 10:33 AM
آخر رد: abomo3ath
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 4 390 13-10-17, 10:03 AM
آخر رد: مصطفي الشكلي
  خطأ في Open File Dialog ibraheam 3 86 03-10-17, 04:49 AM
آخر رد: HASAN6.0
  [VB.NET] كيفية جلب مستند نصي من Resources الي Listbox e-coder 3 108 04-09-17, 07:28 AM
آخر رد: سعود
  نقل عناصر listbox الى textbox بـــكوما مفصولة srca100050 13 344 26-08-17, 06:33 PM
آخر رد: سعود
  file resource ddemed 5 135 01-08-17, 03:46 AM
آخر رد: سعود
  [VB.NET] كيف اوقف التايمر بعد تحديد الكل في listbox ? e-coder 9 249 31-07-17, 01:53 AM
آخر رد: ابو ليلى
  remove file.exe ddemed 6 197 13-07-17, 02:50 AM
آخر رد: الماجيك مسعد
  [VB.NET] كود جلب id الجروبات الى listbox A-R 2 142 02-07-17, 02:54 PM
آخر رد: A-R
  [VB.NET] Settings Save CheckBox1.Checked e-coder 4 168 20-06-17, 12:55 AM
آخر رد: e-coder

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


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