تقييم الموضوع :
  • 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 Server ghias 2 149 28-02-21, 08:57 AM
آخر رد: العتيق
  [VB.NET] كيفية حفظ ملف pdf الي قاعدة بيانات اكسس واسترجاعها Lathe1 5 212 20-02-21, 12:47 AM
آخر رد: Lathe1
  كيفية حفظ ملف pdf الي قاعدة بيانات اكسس واسترجاعها Lathe1 0 90 19-02-21, 10:04 AM
آخر رد: Lathe1
  تثبيت قاعدة بيانات SQL على جهاز العميل Owz 3 216 18-02-21, 11:04 PM
آخر رد: ابو انس
  [سؤال] سؤال كيفية حفظ بيانات مع تشفيرها alims 8 583 18-02-21, 10:54 PM
آخر رد: سعيد كنيمو
  [VB.NET] كود البحث في قاعدة بيانات Necro PC 14 810 05-02-21, 03:06 PM
آخر رد: Necro PC
Wink [سؤال] استخراج بيانات موجودة في RichTextBox وعرضها في TextBox ana ali 3 272 01-02-21, 02:55 AM
آخر رد: سعود
  [سؤال] عايز كود اضافه بيانات اخليه من نوع كومبوبوكس حسن الجلب 3 201 01-02-21, 12:56 AM
آخر رد: fghj3
  استفسار ونقاش: كيف أقوم بعمل connection ب قاعدة بيانات على server لشبكة خارجية mmaalmesry 3 318 30-01-21, 09:15 AM
آخر رد: mmaalmesry
  تصدير بيانات DataGridView1 الى ملف Excel mr_hso 5 444 24-01-21, 12:48 AM
آخر رد: mr_hso

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


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