[sharo.azad]

سلام  عليكم 

اريد  كود AutSave   لي  فايل text  بدون  FileDialog     

عندي loop   اريد يحفظ  line كل مرة يعمل loop

[silverlight]

PHP كود :

   Private Function GetItems(lb As ListBox) As String()
        Dim list As List(Of String) = New List(Of String)()
        For Each item As Object In lb.Items
            Dim txt As String = item.ToString()
            list.Add(txt)
        Next
        Return list.ToArray()
    End Function 


PHP كود :

 Private Sub WriteValues(values As IEnumerable(Of String), fileName As String)
        Dim action As Action(Of System.IO.BinaryWriter, IEnumerable(Of String)) = (Sub(writer As System.IO.BinaryWriter, s As IEnumerable(Of String))
                                                                                       Using writer
                                                                                           For Each value As String In s
                                                                                               writer.Write(value)
                                                                                               writer.Write(Environment.NewLine)
                                                                                           Next

                                                                                       End Using
                                                                                   End Sub)


        action(New System.IO.BinaryWriter(System.IO.File.Open(fileName, System.IO.FileMode.Create)), values)
    End Sub 


أضف الكود اعلاه الي الفورم ثم استخدم الكود بالشكل التالي

PHP كود :

Dim filePathAndName As String = ".\ListBox1.bin"
        WriteValues(GetItems(ListBox1), filePathAndName)