[محمد اسماعيل]

(25-09-18, 10:26 PM)elgokr كتب :

مرحباً اخى الغالي

اسف اولاً على التاخير بسبب يادوب جالس على جهازى

بالمرفقات السورس + برنامج للاختبار

السورس (2015)

مع برنامج الاختبار ملف من نوع csv

يحتوى على عدد 10 قيم من البيانات

لكل قيمة مكرر 5 مرات يتم اختبار التشابق من حيث التاريخ + نص الرسالة

ليبقي الناتج للعرض هما 2 من الـ 10 الموجود بالملف

تم معالجة التاريخ ليعرض طبقاً لما طلب وهو

التاريخ | اسم اليوم | الوقت | صباحاً - مساءاً

اتمنى الان ان السورس يكون ملخص كل ما تريده

الكود مسيط وبدون تعقيد وبدون اكواد مبالغ بها

محتوى كود الفورم كاملاً ...

كود :

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       DataGridView1.Rows.Clear()
       DataGridView1.Columns.Clear()
       Dim OFD_ As New OpenFileDialog
       Dim RdVal As IO.StreamReader
       Dim TxVal As String
       Dim SpVal As String()
       OFD_.DefaultExt = "csv"
       OFD_.FileName = Nothing
       OFD_.InitialDirectory = Application.StartupPath
       OFD_.Filter = "File [CSV]|*.csv"
       OFD_.Title = "Select file"
       If OFD_.ShowDialog() <> DialogResult.Cancel Then
           RdVal = IO.File.OpenText(OFD_.FileName)
           TxVal = RdVal.ReadToEnd()
           RdVal.Close()
           TxVal = TxVal.Replace(vbNewLine, ",")
           SpVal = TxVal.Split(",")
       Else
           Exit Sub
       End If

       DataGridView1.ColumnCount = 5
       For ii As Integer = 0 To 4
           DataGridView1.Columns(ii).Name = SpVal(ii)
       Next

       DataGridView1.Columns(0).Width = 30
       DataGridView1.Columns(1).Width = 240
       DataGridView1.Columns(2).Width = 100
       DataGridView1.Columns(3).Width = 50
       DataGridView1.Columns(4).Width = 750

       For i As Integer = 1 To Val(SpVal.Length / 5) - 1
           For ii As Integer = 0 To DataGridView1.RowCount - 1
               If DataGridView1.Rows(ii).Cells(1).Value = SpVal(Val(i * 5) + 1) And DataGridView1.Rows(ii).Cells(4).Value = SpVal(Val(i * 5) + 4) Then GoTo GoNextNow_
           Next
           Dim row As String() = New String() {SpVal(Val(i * 5)), SpVal(Val(i * 5) + 1), SpVal(Val(i * 5) + 2), SpVal(Val(i * 5) + 3), SpVal(Val(i * 5) + 4)}
           DataGridView1.Rows.Add(row)
GoNextNow_:
       Next

       DataGridView1.Refresh()
       DataGridView1.SelectAll()

       For ii As Integer = 0 To DataGridView1.RowCount - 1
           DataGridView1.Rows(ii).Cells(1).Value = DataGridView1.Rows(ii).Cells(1).Value.ToString.Replace(" at", Nothing)
           Dim SpDate As String() = DataGridView1.Rows(ii).Cells(1).Value.ToString.Split(Space(1))
           DataGridView1.Rows(ii).Cells(1).Value = SpDate(1) & SpDate(0) & SpDate(2) & SpDate(3)
       Next
   End Sub
End Class

الادوات المستخدمة عدد [ 1 ] Button1 و [ 1 ] DataGridView

تحياتى لك

وتمنياتى لك التوفيق

مرحبا بك اخي elgokr

بخصوص التاخير   ===>   ان تاتي متاخر خيرا من ألا تاتي

لي طلب اخر اعز الله قدرك

انا عايز ابحث بعمود التاريخ السابق انشائة  من الداتا تايمر مباشرة

استخدمت الكود التالي للبحث والفلترة ولكن لايعمل علي الرغم من ان نفس الكود يعمل عند اقتصاص التاريخ فقط من خلايا الداتا جريد فيو ويعمل نفس الكود التالي علي اي عمود بالداتا جريد فيو للبحث عن اي شيء

كود :

   On Error Resume Next
       For i As Integer = DATAGRID_NAME.Rows.Count - 1 To 0 Step -1
           If Not DATAGRID_NAME.Rows(i).Cells(1).Value.ToString.Contains(DATETIM_START.Value.ToShortDateString) Or DATAGRID_NAME.Rows(i).Cells(1).Value = Nothing Then
               DATAGRID_NAME.Rows.RemoveAt(i)
           End If
       Next