تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيفية استيراد وتصدير عناصر الداتا جريد فيو من والى ملف نصى TXT FILE
#1
كيفية استيراد وتصدير عناصر الداتا جريد فيو من والى ملف نصى TXT FILE

رابط تحميل المشروع للتعديل

ومشكورين مقدما

http://up.dev-point.com/download263657.html

الرد }}}}
تم الشكر بواسطة:
#2
(03-04-16, 08:03 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 mSB As New System.Text.StringBuilder
        For Each mRow As DataGridViewRow In dg.Rows
            mSB.AppendLine(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
        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)
            dg.Rows.Add(mLN.Split(vbTab))
        Next
    End Sub
الرد }}}}
تم الشكر بواسطة: الماجيك مسعد
#3
(03-04-16, 09:55 AM)mawad كتب :
(03-04-16, 08:03 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 mSB As New System.Text.StringBuilder
       For Each mRow As DataGridViewRow In dg.Rows
           mSB.AppendLine(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
       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)
           dg.Rows.Add(mLN.Split(vbTab))
       Next
   End Sub

السلام عليكم

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

ولكن يوجد مشكلة بسيطة وارجومساعدتك فى تعديلها

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

يعنى احيانا سطرين او 5 او اكتر

وعند الاستدعاء بيضاف السطور التانية لrow جديد
الرد }}}}
تم الشكر بواسطة:
#4
(03-04-16, 10:43 AM)الماجيك مسعد كتب :
(03-04-16, 09:55 AM)mawad كتب :
(03-04-16, 08:03 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 mSB As New System.Text.StringBuilder
       For Each mRow As DataGridViewRow In dg.Rows
           mSB.AppendLine(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
       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)
           dg.Rows.Add(mLN.Split(vbTab))
       Next
   End Sub
كود :
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
الرد }}}}
تم الشكر بواسطة: الماجيك مسعد
#5
(03-04-16, 11:10 AM)mawad كتب :
(03-04-16, 10:43 AM)الماجيك مسعد كتب :
(03-04-16, 09:55 AM)mawad كتب :
(03-04-16, 08:03 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 mSB As New System.Text.StringBuilder
       For Each mRow As DataGridViewRow In dg.Rows
           mSB.AppendLine(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
       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)
           dg.Rows.Add(mLN.Split(vbTab))
       Next
   End Sub
كود :
   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("|", 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("|")
mList.Add(mItem.Replace(vbBack, "|"))
Next
dg.Rows.Add(mList.ToArray)
Next
End Sub

يريت تعدله انه يضيف العنصر كما كان

يعنى لو كان العنصر الاول مثلا 5 سطور
يبقا عند استدعاء الملف
يتم اضافة ال5 اسطر للعنصر الاول كما كان

وهكذا

معلش انا عارف انى تعبتك معايا

جعله الله فى ميزان حسناتك
الرد }}}}
تم الشكر بواسطة:
#6
(03-04-16, 01:00 PM)الماجيك مسعد كتب :
(03-04-16, 11:10 AM)mawad كتب :
(03-04-16, 10:43 AM)الماجيك مسعد كتب :
(03-04-16, 09:55 AM)mawad كتب :
(03-04-16, 08:03 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 mSB As New System.Text.StringBuilder
       For Each mRow As DataGridViewRow In dg.Rows
           mSB.AppendLine(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
       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)
           dg.Rows.Add(mLN.Split(vbTab))
       Next
   End Sub
كود :
   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
الرد }}}}
تم الشكر بواسطة:
#7
(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

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

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

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

بجد تسلم ايدك
الرد }}}}
تم الشكر بواسطة:
#8
(03-04-16, 04:54 PM)الماجيك مسعد كتب :
(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

العنصر يصير عنصرين

كود :
       DataGridView2.Rows.Clear()
       loaddata("myfile.txt", DataGridView2)
الرد }}}}
تم الشكر بواسطة: الماجيك مسعد , الماجيك مسعد
#9
اتمنى مرورك على هذه المشكلة يا غالى لحد ما اجرب الحل بتاعك

http://vb4arb.com/vb/thread-15328.html
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 37 منذ 4 ساعة مضت
آخر رد: ممدوح الخطيب
  [VB.NET] كيفية استخدام مكتبة TLSharp الماجيك مسعد 1 35 اليوم, 03:06 AM
آخر رد: الماجيك مسعد
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 22 أمس, 04:34 PM
آخر رد: Ayman97
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 30 05-12-16, 07:53 PM
آخر رد: kofa
  ازاى يبقى الصفوف فى الداتا جريد فيو مترتبة زى اللى فى الداتا بيز اكسس بالظبط araxis 2 69 01-12-16, 07:04 AM
آخر رد: araxis
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 61 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 179 29-11-16, 07:26 AM
آخر رد: amgad525
  كيفية تخفيض مستوي الامان في الاكسل atefkhalf2004 7 89 28-11-16, 06:48 PM
آخر رد: atefkhalf2004
Question [VB.NET] كيفية ربط أى حقل IFieldObject بعمود بجدول برمجياً Crystal Reports newvbdev 4 116 23-11-16, 08:51 PM
آخر رد: newvbdev
  الداتا ببتلغبط لما الكمبيوتر بيتفطع عنة الكهربا مرة واحدة araxis 5 129 22-11-16, 06:42 PM
آخر رد: zinom

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


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