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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاتصال بقاعدة بيانات SQL SEVER موجودة بجهاز اخر كفاح 5 135 15-01-17, 10:46 PM
آخر رد: كفاح
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 108 15-01-17, 06:11 PM
آخر رد: khodor1985
  [VB.NET] سوال مشكلة في اخذ نسخة احتياطية من قاعدة بيانات SQL كفاح 4 94 14-01-17, 08:19 PM
آخر رد: كفاح
  طلب طريقه عمل الصلاحيات للمستخدمين بقاعده بيانات sql مبرمج أوتار 23 7,055 10-01-17, 01:58 PM
آخر رد: solbi
  منع تسجيل بيانات علي جدول الحركات بقاعدة بيانات sql خلال فترة زمنية (اقفال الفترة ا) السيد الجوهري 4 151 09-01-17, 07:22 PM
آخر رد: السيد الجوهري
Rainbow طباعة بيانات في DGV باستخدام VB EXPRESS وليس V STUDIO فاطمة غ 5 136 26-12-16, 04:24 PM
آخر رد: محمد كريّم
  [كود] كود الاتصال بقاعدة بيانات access 2013 yemen1 4 177 24-12-16, 06:07 PM
آخر رد: ابراهيم النعيمي
  كيفية نقل بيانات من داتاجريد في فورم الى داتاجريد في فورم اخر قناص المدينة 0 82 22-12-16, 06:52 PM
آخر رد: قناص المدينة
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 6 245 13-12-16, 06:14 PM
آخر رد: thevirus
  [سؤال] مطلوب كود ربط combo box بقاعدة بيانات (اكسيس) BLACKBROWN5 5 198 13-12-16, 12:08 PM
آخر رد: tryold

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


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