[الماجيك مسعد]

(03-04-16, 02:33 PM)mawad كتب :

(03-04-16, 01:00 PM)الماجيك مسعد كتب :

(03-04-16, 11:10 AM)mawad كتب :

(03-04-16, 10:43 AM)الماجيك مسعد كتب :

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       savedata(DataGridView1, "myfile.txt")
       loaddata("myfile.txt", DataGridView2)

   End Sub


   Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
       Dim mList As New List(Of String)
       For Each mRow As DataGridViewRow In dg.Rows
           mList.Add(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
       Next
       Dim mSB As New System.Text.StringBuilder
       For Each mItem In mList
           mSB.AppendLine(mItem.Replace(vbNewLine, vbBack))
       Next
       IO.File.WriteAllText(filename, mSB.ToString)
   End Sub


   Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
       For Each mLN As String In IO.File.ReadLines(filename)
           Dim mList As New List(Of String)
           For Each mItem In mLN.Split(vbTab)
               mList.Add(mItem.Replace(vbBack, vbNewLine))
           Next
           dg.Rows.Add(mList.ToArray)
       Next
   End Sub

معلش يا غالى عايز تعمل الفاصل بين العناصر هذه العلامة  |

كود :

   Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
       Dim mList As New List(Of String)
       For Each mRow As DataGridViewRow In dg.Rows
           mList.Add(String.Join("|", From mCell In mRow.Cells Select mCell.Value))
       Next
       Dim mSB As New System.Text.StringBuilder
       For Each mItem In mList
           mSB.AppendLine(mItem.Replace(vbNewLine, Chr(0)))
       Next
       IO.File.WriteAllText(filename, mSB.ToString)
   End Sub


   Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
       For Each mLN As String In IO.File.ReadLines(filename)
           Dim mList As New List(Of String)
           For Each mItem In mLN.Split("|")
               mList.Add(mItem.Replace(Chr(0), vbNewLine))
           Next
           dg.Rows.Add(mList.ToArray)
       Next
   End Sub

تسلم ايدك يا غالى

اتحلت المشكلة

ولكن بقى اخر شئ بسيط

وهو تكرار العناصر

بمعنى لو الداتا فيها عنصر
عند استدعاء الملف من تانى
العنصر يصير عنصرين
واذا كان عنصرين يصير 4

يعنى انه يتكرر اثناء الحفظ والاستدعاء

هل يوجد حل لهذه المشكلة

والف مليون شكر ليك يا غالى

بجد تسلم ايدك