منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
Save ListBox To Text File - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : Save ListBox To Text File (/showthread.php?tid=14992)

الصفحات: 1 2

Save ListBox To Text File - أسامة - 05-03-16

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

RE: Save ListBox To Text File - سعود - 05-03-16

شوف طريقة بسيطة
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.FileName, b, False)
            Next
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        savetotxt()
    End Sub
End Class 


RE: Save ListBox To Text File - أسامة - 05-03-16

(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.FileName, b, False)
            Next
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 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=

RE: Save ListBox To Text File - hassan - 05-03-16

(05-03-16, 04:47 PM)khodor1985 كتب : أخي العزيز، أرسل لنا مشروعك أو مثال مصغر عن مشروعك للتعديل عليه وشكرا.

+++++++++++

RE: Save ListBox To Text File - أسامة - 05-03-16

اسف على التأخير

RE: Save ListBox To Text File - ad1000 - 05-03-16

وهذه طريقة أخرى أيضا :

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

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


RE: Save ListBox To Text File - أسامة - 05-03-16

(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

RE: Save ListBox To Text File - ad1000 - 05-03-16

لم أفهم المقصد من (المشكلة انى اريد اضافة كلمة Name= قبل ال listbox item)

RE: Save ListBox To Text File - أسامة - 05-03-16

(05-03-16, 09:41 PM)ad1000 كتب : لم أفهم المقصد من (المشكلة انى اريد اضافة كلمة Name= قبل ال listbox item)

بمعنى ان ال list فيها احمد محمد ...... اما تيجى تتعملها حفظ على هذا الشكل Name=احمد

RE: Save ListBox To Text File - ad1000 - 05-03-16

هل تقصد مثل هذا:
PHP كود :
IO.File.WriteAllLines("textfile.txt", ListBox1.Items.Cast(Of String)().Select(Function(s As String) "Name=" & s))