[starosta]

مرحبا إخواني ..

0306771180720120937F1
0303294180720121058F1
0306391180720121114F1
0306771180720121141F2
0303321180720121150F3
0304251180720121158F1
0307419180720121206F1
0301616180720121237F3


البيانات أعلاه في ملف TXT مربوط بجهاز حضور وإنصراف عن طريق ((بصمة)) الموظفين ..
أريد بناء برنامجي وتقاريري بناء على هذا هذه الرموز .. بحيث ..
-
كل سطر عبارة عن عملية بصم ..
أول رقمين ((رقم الجهاز))
بعدهما خمسة أرقام ((رقم الموظف))
بعدها رقمين ((اليوم))
بعدها رقمين ((السهر))
بعدها أربعة أرقام ((السنة))
بعدها رقمين ((الساعة))
بعدها رقمين ((الدقيقة))
بعدها حرف F ورقم ((العملية - دخول - خروج - استئذات وخلافه ))
-
كيف اجعل برنامجي يقرأ يحلل هذه الأشياء .. بصورة عامة ..

[الطالب]

سلام

كود :

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

    Dim lines() As String = IO.File.ReadAllLines("w.txt")

    For Each line As String In lines

        If line.Length = 21 Then
            Dim رقم_الجهاز As Integer = line.Substring(0, 2)
            Dim رقم_الموظف As Integer = line.Substring(2, 5)
            Dim اليوم As Integer = line.Substring(7, 2)
            Dim السهر As Integer = line.Substring(9, 2)
            Dim السنة As Integer = line.Substring(11, 4)
            Dim الساعة As Integer = line.Substring(15, 2)
            Dim الدقيقة As Integer = line.Substring(17, 2)
            Dim العملية As String = line.Substring(19, 1)
            Dim رقم_العملية As Integer = line.Substring(20, 1)

            Dim s As String
            s = "رقم الجهاز: " & رقم_الجهاز & vbNewLine
            s &= "رقم الموظف: " & رقم_الموظف & vbNewLine
            s &= "التاريخ: " & اليوم & "/" & السهر & "/" & السنة & vbNewLine
            s &= "الوقت: " & الساعة & ":" & الدقيقة & vbNewLine
            s &= "العملية: " & العملية & vbNewLine
            s &= "رقم العملية: " & رقم_العملية

            MsgBox(s, MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight)
        End If

    Next

End Sub

الكود مجرب

موفقين

[starosta]

الله يعطيك ألف ألف ألف ألف عافية ..

شئ رااااااااااااااااااااااااااااائع اقسم بالله ..

بس المؤلم في الأمر أن الواحد لما يشوف حلولكم للمشاكل يحس انه عمره ما راح يصير مبرمج 

حقيقة تسلم واكثر مما توقعت ..