تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 222 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 83 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 309 21-02-24, 11:44 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي

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


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