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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad [سؤال] شباب اتمنى تساعدوني امانه عليكم تساعدوني دموع الوطن 2 28 منذ 2 ساعة مضت
آخر رد: دموع الوطن
  ازاى يبقى الصفوف فى الداتا جريد فيو مترتبة زى اللى فى الداتا بيز اكسس بالظبط araxis 2 63 01-12-16, 07:04 AM
آخر رد: araxis
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 3 66 27-11-16, 07:13 PM
آخر رد: ابراهيم النعيمي
  تقسيم text الى عدة listbox rabeh.ram 4 98 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  [VB.NET] كيف اعمل برنامجي اصدار تجريبي... 3asfa~mdmra 0 46 16-11-16, 01:58 AM
آخر رد: 3asfa~mdmra
  الكتابة فى ملف text Mohamed20 1 64 31-10-16, 11:39 PM
آخر رد: silverlight
  عندما TextBox1.DataBinding.Add("text" , DataSet1 , Table.Field) Text كيف للصور thevirus 2 77 29-10-16, 06:31 PM
آخر رد: thevirus
Bug أستفسـار جلب أسماء ملجد معين ..؟ adel27 6 111 27-10-16, 10:24 PM
آخر رد: adel27
  [VB.NET] كيفه نسخ صف معين من listview 3asfa~mdmra 4 119 25-10-16, 02:18 AM
آخر رد: silverlight
  [VB.NET] كيفية عمل كود ب vb.net يعمل على تحديث جميع السجلات في الداتا بيز بشرط معين thevirus 2 122 24-10-16, 06:45 AM
آخر رد: thevirus

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


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