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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف اعمل حفظ تلقائي لمحتوي الtextbox ... e-coder 0 31 20-04-18, 08:40 PM
آخر رد: e-coder
  مساعده في كود عرض عدد معين من صفوف الداتا جريد فيو emamtron2014 9 265 11-04-18, 01:00 AM
آخر رد: emamtron2014
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 3 192 27-03-18, 03:12 PM
آخر رد: ssayed111
  [VB.NET] كيف اعمل بالون بجاور الساعه كما في الماسنجر e-coder 4 125 14-03-18, 01:11 AM
آخر رد: e-coder
  [VB.NET] قراءة بيانات محددة من ملف text hani78 2 65 08-03-18, 09:40 AM
آخر رد: وائل القطاوي
Rainbow تظليل نص معين داخل RichTextBox ابو روضة 4 150 06-03-18, 02:53 AM
آخر رد: ابو روضة
  [VB.NET] قراءة بيانات محددة من ملف text hani78 0 22 23-02-18, 08:27 PM
آخر رد: hani78
  code speach to text in vb.net ebrahim yahya 0 25 22-02-18, 12:58 AM
آخر رد: ebrahim yahya
  [VB.NET] طلب كود الاتصال بجدول معين فى قاعدة البيانات MOSTAFA.KAMEL 0 37 14-02-18, 06:16 PM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] عاوز اعمل برنامج يفعل البرنامج بتاعى MOSTAFA.KAMEL 7 44 11-02-18, 09:10 PM
آخر رد: MOSTAFA.KAMEL

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


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