السلام عليكم ورحمة الله وبركاته
أحبابي / لتفرض أن لدي حلقة تكرار تقوم بالعد من 1 إلى 10 على سبيل المثال - ومن ثم أردنا عمل كود يقوم بحفظ النتائج مباشرة داخل ملف txt بحيث تكون النتيجة كل رقم في سطر فكيف يكون ذلك.
سؤال أخر / كود يقوم بجساب حجم ملف txt عند عملية التنفيذ للكود السابق أي في الوقت الذي جاري فيه الحفظ حتى اقوم بعمل شرط أن لا يتجاوز حجم ملف txt الحجم المطلوب
كود :
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
يمكنك تصميم الواجهة المختصرة او اضافة اكثر من زر و تقسيم الشفرات حسب الحاجة