[أسامة]

كود :

       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

الطريقة كانت تعمل معى من قبل لاكن لا اعلم السبب لا تريد ان تعمل

[سعود]

شوف طريقة بسيطة

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, 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=

[hassan]

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

+++++++++++

[أسامة]

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

[ad1000]

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

للحفظ:

PHP كود :

IO.File.WriteAllLines("textfile.txt", ListBox1.Items.Cast(Of String)()) 


للقراءة:

PHP كود :

ListBox1.Items.AddRange(IO.File.ReadAllLines("textfile.txt")) 


[أسامة]

(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

[ad1000]

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

[أسامة]

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

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

[ad1000]

هل تقصد مثل هذا:

PHP كود :

IO.File.WriteAllLines("textfile.txt", ListBox1.Items.Cast(Of String)().Select(Function(s As String) "Name=" & s))