تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حلقة التكرار إلى ملف txt
#1
السلام عليكم ورحمة الله وبركاته

أحبابي / لتفرض أن لدي حلقة تكرار تقوم بالعد من 1 إلى 10 على سبيل المثال - ومن ثم أردنا عمل كود يقوم بحفظ النتائج مباشرة داخل ملف txt بحيث تكون النتيجة كل رقم في سطر فكيف يكون ذلك.

سؤال أخر / كود يقوم بجساب حجم ملف txt عند عملية التنفيذ للكود السابق أي في الوقت الذي جاري فيه الحفظ حتى اقوم بعمل شرط أن لا يتجاوز حجم ملف txt الحجم المطلوب
الرد }}}
تم الشكر بواسطة:
#2
السؤال الاول :
يمكنك الاطلاع على المشاركة التالية للاستاذ: عمر مكاوي

http://vb4arb.com/vb/showthread.php?tid=967
==========================================
اما الشطر الثاني من السؤال فيمكنك الانتقال للصفحة التالية
http://vb4arb.com/vb/showthread.php?tid=1364
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
الرد }}}
تم الشكر بواسطة: sads , sads , DK-x
#3
(28-04-19, 08:02 PM)alsouf كتب : يمكنك الاطلاح على الموضوع التالي للاستاذ عمر مكاوي
http://vb4arb.com/vb/showthread.php?tid=967

شكراً لك أخي / ولاكن ليس هذا طلبي بالضبط فأنا على دراية في عمل جمل التكرار ولاكن طلبي كان في طريقة الحفظ
الرد }}}
تم الشكر بواسطة: DK-x
#4
كود :
Imports System.IO.FileStream
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Computer.FileSystem.WriteAllText("G:\Test.txt", TextBox1.Text & ChrW(13), True)
        Dim Open As New OpenFileDialog
        Open.Filter = "AllFiles |*.*"
        If Open.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim FilesInfo As FileInfo = New FileInfo(Open.FileName)
            Label4.Text = (Open.FileName)
            Label2.Text = String.Format("Size : ") &
                 Math.Round(FilesInfo.Length / 1024, 1) & "  KB  " &
                 Math.Round(FilesInfo.Length, 1) & "   Bytes  "
        End If
    End Sub
End Class

يمكنك تصميم الواجهة المختصرة او اضافة اكثر من زر و تقسيم الشفرات حسب الحاجة


الملفات المرفقة صورة/صور
       
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
الرد }}}
تم الشكر بواسطة: DK-x , DK-x , حريف برمجة



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


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