منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] شباب ازاى اعمل check على سطر معين فى ملف text - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] شباب ازاى اعمل check على سطر معين فى ملف text (/showthread.php?tid=13018)

الصفحات: 1 2 3

شباب ازاى اعمل check على سطر معين فى ملف text - احمد عبد الحكيم - 22-08-15

بسم الله الرحمن الرحيم
السلام عليكم شباب
عاوز اعمل check على سطر فى ملف text
بمعنى اذا كان السطر الاول = تاريخ اليوم ازا
قم بكتابة تاريخ الغد

RE: شباب ازاى اعمل check على سطر معين فى ملف text - الطالب - 22-08-15

سلام


بشرط يكون السطر ما فيه غير التاريخ
كود :
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)


موفقين

RE: شباب ازاى اعمل check على سطر معين فى ملف text - احمد عبد الحكيم - 22-08-15

اخى الكريم الطالب
شكرا على المشاركة لقد قمت باضافة الكود ضمن الاكواد التى وضعها
ارجو منك تصحيح الخطأ
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 


RE: شباب ازاى اعمل check على سطر معين فى ملف text - الطالب - 22-08-15

سلام


مدري ايش قصدك 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


موفقين

RE: شباب ازاى اعمل check على سطر معين فى ملف text - احمد عبد الحكيم - 22-08-15

(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 لاشاهد هل سيتم الحفظ ام لا
لاكنى قمت بتعديلها وايضا لم تعمل

RE: شباب ازاى اعمل check على سطر معين فى ملف text - الطالب - 22-08-15

سلام


انت عارف انك واضع شرط
كود :
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
واذا ما اشتغيل ضع نسخه من الشمروع


موفقين

RE: شباب ازاى اعمل check على سطر معين فى ملف text - احمد عبد الحكيم - 22-08-15

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

ثانى شئ انا كنت اريد اذا كان ملف 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)


RE: شباب ازاى اعمل check على سطر معين فى ملف text - الطالب - 22-08-15

سلام


هذا الكود فيه تعديل مثل ماطلبت اذا ما كان موجود راح ينشئه ويكمل بقيت الخطوات واستغنينا عن 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


موفقين

RE: شباب ازاى اعمل check على سطر معين فى ملف text - احمد عبد الحكيم - 22-08-15

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

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

فا اعزرنى ان كان هناك اى ازعاجا فاعلم انى اطلت عليك كثيرا

RE: شباب ازاى اعمل check على سطر معين فى ملف text - الطالب - 23-08-15

سلام


لا عليك

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

كود :
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


موفقين