تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] شباب ازاى اعمل check على سطر معين فى ملف text
#1
بسم الله الرحمن الرحيم
السلام عليكم شباب
عاوز اعمل check على سطر فى ملف text
بمعنى اذا كان السطر الاول = تاريخ اليوم ازا
قم بكتابة تاريخ الغد
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}
تم الشكر بواسطة:
#2
سلام


بشرط يكون السطر ما فيه غير التاريخ
كود :
Dim lines As String() = IO.File.ReadAllLines("filename.txt")
For i = 0 To lines.Length - 1
    If IsDate(lines(i)) AndAlso CDate(lines(i)) = Today Then
        lines(i) = CDate(lines(i)).AddDays(1)
    End If
Next
IO.File.WriteAllLines("filename.txt", lines)


موفقين
متغيب
الرد }}}
تم الشكر بواسطة: احمد عبد الحكيم
#3
اخى الكريم الطالب
شكرا على المشاركة لقد قمت باضافة الكود ضمن الاكواد التى وضعها
ارجو منك تصحيح الخطأ
PHP كود :
Private Sub cd()
'هذا الكود لحفظ اول تاريخ تم فتح به البرنامج 
        If My.Computer.FileSystem.ReadAllText("D:\aka\aka.png").ToString.Trim = "" Then
            savdate()
        Else
'
وهذا الكود لقراءة التاريخ واذا كان التاريخ قديم يضع الجديد
            Using sw 
As StreamWriter File.AppendText("D:\aka\aka.txt")
 
               Dim lines As String() = IO.File.ReadAllLines("D:\aka\aka.txt")
 
               For i 0 To lines.Length 1
                    If IsDate
(lines(i)) AndAlso CDate(lines(i)) = Today Then
                        lines
(i) = CDate(lines(i)).AddDays(1)
 
                   End If
 
               Next
                IO
.File.WriteAllLines("D:\aka\aka.txt"lines)
 
           End Using
        End 
If
 
   End Sub
'وهذا كود لحفظ التاريخ الحالى 
    Private Sub savdate()
        My.Computer.FileSystem.WriteAllText("D:\aka\aka.png", Now.Date, False)

    End Sub 
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}
تم الشكر بواسطة:
#4
سلام


مدري ايش قصدك D:\aka\aka.png
كود :
Private Sub cd()
    'هذا الكود لحفظ اول تاريخ تم فتح به البرنامج
    If My.Computer.FileSystem.ReadAllText("D:\aka\aka.png").ToString.Trim = "" Then
        savdate()
    Else
        'وهذا الكود لقراءة التاريخ واذا كان التاريخ قديم يضع الجديد
        Dim lines As String() = IO.File.ReadAllLines("D:\aka\aka.txt")
        For i = 0 To lines.Length - 1
            If IsDate(lines(i)) AndAlso CDate(lines(i)) = Today Then
                lines(i) = CDate(lines(i)).AddDays(1)
            End If
        Next
        IO.File.WriteAllLines("D:\aka\aka.txt", lines)
    End If
End Sub


موفقين
متغيب
الرد }}}
تم الشكر بواسطة: احمد عبد الحكيم
#5
(22-08-15, 09:54 PM)الطالب كتب : سلام


مدري ايش قصدك D:\aka\aka.png
كود :
Private Sub cd()
   'هذا الكود لحفظ اول تاريخ تم فتح به البرنامج
   If My.Computer.FileSystem.ReadAllText("D:\aka\aka.png").ToString.Trim = "" Then
       savdate()
   Else
       'وهذا الكود لقراءة التاريخ واذا كان التاريخ قديم يضع الجديد
       Dim lines As String() = IO.File.ReadAllLines("D:\aka\aka.txt")
       For i = 0 To lines.Length - 1
           If IsDate(lines(i)) AndAlso CDate(lines(i)) = Today Then
               lines(i) = CDate(lines(i)).AddDays(1)
           End If
       Next
       IO.File.WriteAllLines("D:\aka\aka.txt", lines)
   End If
End Sub


موفقين

اخى الكريم الطالب d/هذا مكان البارتشن
aka هذا اسم الفولدر
aka.txt هذا اسم ملف التيكست
واسف عللى هذه فقد كنت حولت txt الى png لاشاهد هل سيتم الحفظ ام لا
لاكنى قمت بتعديلها وايضا لم تعمل
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}
تم الشكر بواسطة:
#6
سلام


انت عارف انك واضع شرط
كود :
Private Sub cd()
    'هذا الكود لحفظ اول تاريخ تم فتح به البرنامج
    Dim filename As String = "D:\aka\aka.png"
    If My.Computer.FileSystem.ReadAllText(filename).ToString.Trim = "" Then
        savdate()
    Else
        'وهذا الكود لقراءة التاريخ واذا كان التاريخ قديم يضع الجديد
        Dim lines As String() = IO.File.ReadAllLines(filename)
        For i = 0 To lines.Length - 1
            If IsDate(lines(i)) AndAlso CDate(lines(i)) = Today Then
                lines(i) = CDate(lines(i)).AddDays(1)
            End If
        Next
        IO.File.WriteAllLines(filename, lines)
    End If
End Sub
واذا ما اشتغيل ضع نسخه من الشمروع


موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#7
اخى الطالب انا اتاسف على اى سؤ تفاهم لاكنى كنت اريد ان الاجابه تصل لك على حسب المشاركة التى وضعتها

ثانى شئ انا كنت اريد اذا كان ملف txt ليس موجود فى الفلدر يقوم بانشاء ملف جديد
وبعد ذلك يقوم بعمل الخطوات الاخرى

اخى الكريم الطالب هذا الكود لا يعمل
كود :
'وهذا الكود لقراءة التاريخ واذا كان التاريخ قديم يضع الجديد
            Dim lines As String() = IO.File.ReadAllLines(filename)
            For i = 0 To lines.Length - 1
                If IsDate(lines(i)) AndAlso CDate(lines(i)) = Today Then
                    lines(i) = CDate(lines(i)).AddDays(1)
                End If
            Next
            IO.File.WriteAllLines(filename, lines)
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}
تم الشكر بواسطة: الطالب
#8
سلام


هذا الكود فيه تعديل مثل ماطلبت اذا ما كان موجود راح ينشئه ويكمل بقيت الخطوات واستغنينا عن savdate

كود :
Private Sub cd()
    'هذا الكود لحفظ اول تاريخ تم فتح به البرنامج
    Dim filename As String = "D:\aka\aka.png"


    If Not IO.File.Exists(filename) Then
        'وهذا كود لحفظ التاريخ الحالى
        IO.File.WriteAllText(filename, Now.Date)
    End If

    If My.Computer.FileSystem.ReadAllText(filename).ToString.Trim = "" Then
        'وهذا كود لحفظ التاريخ الحالى
        My.Computer.FileSystem.WriteAllText(filename, Now.Date, False)
    Else
        'وهذا الكود لقراءة التاريخ واذا كان التاريخ قديم يضع الجديد
        Dim lines As String() = IO.File.ReadAllLines(filename)
        For i = 0 To lines.Length - 1
            If IsDate(lines(i)) AndAlso CDate(lines(i)) = Today Then
                lines(i) = CDate(lines(i)).AddDays(1)
            End If
        Next
        IO.File.WriteAllLines(filename, lines)
    End If
End Sub


موفقين
متغيب
الرد }}}
#9
اخى الطالب والله اعرف انى ازعجتك كثيرا ولاكنى هناك مشكله صغيرة فقط
اريد حلها وهكذا قد اكون ارتحت من هذه المشكلة

اولا الحمد لله الكود الذى وضعته اشتغل والحمد لله وتسلم يدك يارب
ثانيا كل ما اجرب الكود يقوم باستبدال التاريخ القديم بالتاريخ الجديد
ما اريده هو ان يتم حفظ التاريخ الجديد اسفل التاريخ القديم
وليكن مثلا يتم حفظ 10 تاريخ تحت بعضهم البعض فقط
وثانى شئ هو يقوم بحفظ تاريخ الغد انا اريده يقوم بحفظ تاريخ اليوم والغد يحفظ الغد

فا اعزرنى ان كان هناك اى ازعاجا فاعلم انى اطلت عليك كثيرا
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}
تم الشكر بواسطة: الطالب
#10
سلام


لا عليك

اعتقد هذا ما تريده بعد التوضيح - واعتذر يبدوا انني قد اسات فهم طلبك وتوهتك

كود :
Private Sub cd()

    'اسم الملف
    Dim filename As String = "D:\aka\aka.png"

    'هذا الكود لحفظ اول تاريخ تم فتح به البرنامج
    If Not IO.File.Exists(filename) Then
        'وهذا كود لحفظ التاريخ الحالى
        IO.File.WriteAllText(filename, Now.Date)

    Else
        Dim lines As List(Of String) = IO.File.ReadAllLines(filename).ToList

        If lines.Count > 0 Then
        'وهذا الكود لقراءة التاريخ واذا كان التاريخ قديم يضع الجديد
            If CDate(lines(0)) = Today Then
                lines.Insert(0, Now.Date.AddDays(1))
            End If
        End If

        IO.File.WriteAllLines(filename, lines)

    End If

End Sub


موفقين
متغيب
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
Star [VB.NET] كود لتوليد الارقام تلقائي في text box Raaf 5 619 08-11-23, 03:03 AM
آخر رد: VIP_YEMEN
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  إجبار المستخدم على إدخال عدد معين من الأرقام Ahmed.vb 6 656 20-10-23, 10:25 AM
آخر رد: atefkhalf2004
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  حفظ المشروع بامتداد معين غير معروف مسبقا Abo Louay 0 262 29-09-23, 02:55 AM
آخر رد: Abo Louay
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 695 26-07-23, 05:47 AM
آخر رد: Taha Okla

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


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