تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف تقرأ بيانات في ملف TXT
#1
مرحبا إخواني ..

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


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

كود :
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
الكود مجرب

موفقين
متغيب
الرد
تم الشكر بواسطة: ربيع
#3
الله يعطيك ألف ألف ألف ألف عافية ..

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

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

حقيقة تسلم واكثر مما توقعت ..
الرد
تم الشكر بواسطة: الطالب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند الاتصال مع قاعدة بيانات sqlserver nooralcown 2 103 13-07-19, 10:01 AM
آخر رد: nooralcown
  [VB.NET] رسالة غريبة بعد إضافة بيانات (ظهرت و إختفت) sniperjawadino 7 233 09-07-19, 03:49 AM
آخر رد: sniperjawadino
  ربط الفورم بقاعدة بيانات اكسل ابو العلاء 2 88 09-07-19, 01:16 AM
آخر رد: ابو العلاء
  محتاج كود ضغط وإصلاح قاعدة بيانات Access 2010 princelovelorn 12 769 05-07-19, 06:13 PM
آخر رد: elgokr
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 4 306 12-06-19, 11:41 AM
آخر رد: new2016
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 239 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 420 04-06-19, 03:12 PM
آخر رد: elgokr
  [سؤال] طلب مساعدة كود التحكم بعرض بيانات حقل حسابية في التكست بكس على ان لا يظهر لاصفار essawq 12 828 29-05-19, 10:43 PM
آخر رد: egbest2
Rainbow [VB.NET] حذف بيانات الجلسة لل WebBrowser1 DK-x 0 124 03-05-19, 11:03 AM
آخر رد: DK-x
  [مثال] قاعدة بيانات SQL DK-x 2 206 03-05-19, 12:38 AM
آخر رد: اسامه الهرماوي

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


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