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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up [سؤال] كود تخطي فتح رابط معين لتشغيل البرنامج Mk 22353 2 74 أمس, 12:56 PM
آخر رد: Master Hacker
  ازاى اصمم جدول فى قاعدة بيانات 2D noway 5 112 20-02-17, 04:27 AM
آخر رد: khodor1985
  [VB.NET] how can i check if my program opened by another program الماجيك مسعد 2 109 19-02-17, 06:02 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 137 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  تثبيت الفورم على امر معين anes 8 164 12-02-17, 02:07 AM
آخر رد: مساعدة
  [سؤال] طريقة تعبئة listbox من ملف text وربطه برابط على الانترنت youssef1 10 253 11-02-17, 12:56 AM
آخر رد: hassan
  جعل الجريد ترقيم تلقائي بورمات معين abdulla2 4 96 06-02-17, 05:55 PM
آخر رد: abdulla2
  [VB.NET] ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو الماجيك مسعد 10 243 31-01-17, 07:03 AM
آخر رد: الماجيك مسعد
  اريد select check item --- alwasela 4 97 31-01-17, 02:08 AM
آخر رد: محمد كريّم
  [VB.NET] check box tifagreet 1 64 26-01-17, 01:15 PM
آخر رد: مساعدة

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


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