+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حلقة التكرار إلى ملف txt (/showthread.php?tid=29509)
حلقة التكرار إلى ملف txt - sads - 28-04-19
السلام عليكم ورحمة الله وبركاته
أحبابي / لتفرض أن لدي حلقة تكرار تقوم بالعد من 1 إلى 10 على سبيل المثال - ومن ثم أردنا عمل كود يقوم بحفظ النتائج مباشرة داخل ملف txt بحيث تكون النتيجة كل رقم في سطر فكيف يكون ذلك.
سؤال أخر / كود يقوم بجساب حجم ملف txt عند عملية التنفيذ للكود السابق أي في الوقت الذي جاري فيه الحفظ حتى اقوم بعمل شرط أن لا يتجاوز حجم ملف txt الحجم المطلوب
RE: حلقة التكرار إلى ملف txt - alsouf - 28-04-19
السؤال الاول :
يمكنك الاطلاع على المشاركة التالية للاستاذ: عمر مكاوي
http://vb4arb.com/vb/showthread.php?tid=967
==========================================
اما الشطر الثاني من السؤال فيمكنك الانتقال للصفحة التالية
http://vb4arb.com/vb/showthread.php?tid=1364
RE: حلقة التكرار إلى ملف txt - sads - 28-04-19
(28-04-19, 08:02 PM)alsouf كتب : يمكنك الاطلاح على الموضوع التالي للاستاذ عمر مكاوي
http://vb4arb.com/vb/showthread.php?tid=967
شكراً لك أخي / ولاكن ليس هذا طلبي بالضبط فأنا على دراية في عمل جمل التكرار ولاكن طلبي كان في طريقة الحفظ
RE: حلقة التكرار إلى ملف txt - alsouf - 28-04-19
كود :
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يمكنك تصميم الواجهة المختصرة او اضافة اكثر من زر و تقسيم الشفرات حسب الحاجة