[aftfm]

السلام عليكم ورحمة الله وبركاته

البرنامج فكرته قراءة ملف نصي الى الداتا قريد ومن ثم تحليل للسجلات المكررة وفق معطيات وبعد ذلك يتم حفظها الى جدول بقاعدة بيانات اكسس

ولكن هل من طريقة لتسريع القراءة الي القريد
وإيظاً الحفظ يأخذ اكثر وقت

هناك ملف نصي للسجلات المطلوب قراءتها في مجلد File

ارجوا ايجاد حل مناسب لتسريع القراءة والحفظ

[vbnet]

.....


إختصار كود Button1 من 250 سطر إلى 10 أسطر (طبعاً غير صحيح أن الأسطر القليلة تزيد في السرعة وإنما استخدام الأكواد الصحيحة)

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim op As New OpenFileDialog
    op.Filter = "الملفات النصية(*.txt)|*.txt"
    op.Title = "قراءة الملفات"
    If op.ShowDialog = Windows.Forms.DialogResult.OK Then
        Dim rows As String() = IO.File.ReadAllLines(op.FileName)
        For Each row As String In rows
            Me.DataGridView1.Rows.Add(Split(row, "@"))
        Next
        MsgBox("عدد السجلات المقروءة : " & Me.DataGridView1.Rows.Count, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "السجلات")
    End If
End Sub

[aftfm]

الف شكر اخي العزيز vbnet

صحيح كلامك لكن هناك ترتيب معين اريدة وهو تقسيم النص وتوزيعه بشكل غير الذي كان عليه
لذلك قمت بتقسيمه وتوزيعه ووضعه على القريد ومن ثم الحفظ بشرط التكرار في عدد 5 حقول إذا تطابقت يعبر السجل مكرر فقط في حال تكررت الخمس حقول
المطلوبه وإلا يكون السجل غير مكرر
وفي حال التكرار يتم ارسال المكرر الى مجلد محدد
وفي حالة أن السجل ليس به اجراء يعتبر جديد
وفي حال لو قراءنا سجل به اجراء ولم يوجد له سجل سابق مكرر في الحقول الخمس المطلوبة يعتبر ليس له اساس

لان المفروض أن يتم قراءة السجلات التي ليس بها اجراء أولاً ومن ثم قراءة السجلات التي تم اتخاذ فيها اجراء معين

هذه فكرة البرنامج
و
هذه فكرة الكود الطويل