[elgokr]

الامر ابسط ما يكون اخى الفاضل

للاسف رابط تحميل السورس المدرج بالاعلى لا يعمل 

حتى اقوم بتعديل على الكود واعادة ارفاق المشروع مجدداً

ولا يوجد اى كود فى الموضوع عن الطريقة المستخدمة لديك حتى اوضح لك اى جزء ستقوم بالتعديل عليه

لكن خليني ابسط الامور لديك اكثر

لنقول انك فى الكود تستخدم طريقة For

وليكن الكود على هذا الشكل

كود :

       For ii As Integer = 0 To 10

       Next

الان الحد الاقصى لعدد الاسطر هو 10 كم فى الصورة وبداية العد هو 0

الان يفترض عند ادراج الارقام ستكون التالى 

كود :

1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - ؟؟

حيث ان من 0 : 10 هو 11 رقم ولاتمام تقليل ذلك

فكل ما عليك فعله هو جعل الكود على هذا النحو

كود :

       For ii As Integer = 0 To 10 - 1

       Next

طيب لو كان الكود المستخدم فعلياً يحتوى على -1 فهنا ستحتاج الى ان تجعله -2 حسب قيمة الحدث التى تشير الى رقم 10

الامر الاخر الذى يمكنك فعله هو من خلال القيم لعدد الاسطر المرسلة للحفظ فى ملف Notepad

فالامر يمكنك قبل ارساله ان تعفى عدد سطر من القيمة او عمل استبدال السطر الفارغ بلا شئ

وهنا حتى يتم شرحه سيعتمد على طريقة استخدامك للكود حتى لا يتم التشتيت او جعلك فى متاهة

فى انتظار اعادة رفع المشروع ويفضل ان ترفقه هنا بالمرفقات بدلاً من مراكز الرفع

تحياتى لك

وتمنياتى لك التوفيق

[دموع الوطن]

كود :

private static void Main(string[] args)
      {
          try
          {
              string str = File.ReadAllText("filename.txt").Trim();
              string path = "large.txt";
              string format = str + "{0}.txt";
              int num = Convert.ToInt32(File.ReadAllText("perfile.txt"));
              using (StreamReader streamReader = new StreamReader(path))
              {
                  int num2 = 0;
                  StreamWriter streamWriter = new StreamWriter(string.Format(format, num2 + 1));
                  try
                  {
                      int num3 = 0;
                      string value;
                      while ((value = streamReader.ReadLine()) != null)
                      {
                          if (num3 >= num)
                          {
                              num3 = 0;
                              num2++;
                              streamWriter.Dispose();
                              streamWriter = new StreamWriter(string.Format(format, num2 + 1));
                          }
                          streamWriter.WriteLine(value);
                          num3++;
                      }
                  }
                  finally
                  {
                      streamWriter.Dispose();
                  }
              }
          }
          catch (Exception var_9_E2)
          {
          }
      }
  }
}

اانا اريد اخر السطر فقط ااذا كان يوجد مسافه يحذفها

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
استغرب من كثرة المشاركات ولا حل لهذه المشكلة البسيظة جدا ظننت انها محلولة لكن تفاجأت انها في انتظار الحل
ابسط مما تتوقعوا
كود سي شارب

كود :

// فتح المبف النصي
       // ثم ننفذ الكود التالي
       private void button1_Click(object sender, EventArgs e)
       {
          string AA ;
           AA= textBox1.Text.Trim();
           textBox1.Text=null;
           textBox1.Text = AA;
       }
       // اعادة حفظ الملف

كود VB.Net

كود :

  ' فتح المبف النصي
   ' ثم ننفذ الكود التالي
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim AA As String
       AA = textBox1.Text.Trim()
       TextBox1.Text = ""
       TextBox1.Text = AA
   End Sub
   ' اعادة حفظ الملف

فقط استبدال اسم التكست بوكس بالذي عندك
توجد حلول اخرى لكن هذه ابسطها بدون اي تعقيد
دمت بخير

[دموع الوطن]

(17-03-20, 06:19 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
استغرب من كثرة المشاركات ولا حل لهذه المشكلة البسيظة جدا ظننت انها محلولة لكن تفاجأت انها في انتظار الحل
ابسط مما تتوقعوا
كود سي شارب

كود :

// فتح المبف النصي
       // ثم ننفذ الكود التالي
       private void button1_Click(object sender, EventArgs e)
       {
          string AA ;
           AA= textBox1.Text.Trim();
           textBox1.Text=null;
           textBox1.Text = AA;
       }
       // اعادة حفظ الملف

كود VB.Net

كود :

  ' فتح المبف النصي
   ' ثم ننفذ الكود التالي
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim AA As String
       AA = textBox1.Text.Trim()
       TextBox1.Text = ""
       TextBox1.Text = AA
   End Sub
   ' اعادة حفظ الملف

فقط استبدال اسم التكست بوكس بالذي عندك
توجد حلول اخرى لكن هذه ابسطها بدون اي تعقيد
دمت بخير

اخي والله مازبط معي هي مشروع
اتفضل يا اخي
الله يسعدك يارب

https://mrkzgulfup.com/download269574.html

[سعود]

ممكن سبب هذه الرسالة؟

[دموع الوطن]

(18-03-20, 09:30 AM)سعود كتب :

ممكن سبب هذه الرسالة؟

ممكن يا اخي المشكلة من عندك
مركز الخليج
-------------
مركز الخليج
-----------------
مركز الخليج
------------------
تم تحميل مشروع عندي ما في اي مشكلة يا اخي

[سامي محمد]

جهازك به فايرس يرفض الكمبيوتر تحميله 
انظر الى هذه الطريقة ربما تفي بالغرض وهي وقت الكتابة ولا تحتاج الى ان التعديل

كود :

 For x As Integer = 0 To 20
            If x = 20 Then
                My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\1.txt", x, True) 'حفظ التيكست بوكس1
            Else
                My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\1.txt", x & vbNewLine, True) 'حفظ التيكست بوكس1
            End If
        Next
        Process.Start(Application.StartupPath & "\1.txt")

----
اذا لم يفي بالغرض ضع كودك هنا و اكيد أحد الأخوان سيساعدك

[دموع الوطن]

(18-03-20, 02:03 PM)سامي محمد كتب : جهازك به فايرس يرفض الكمبيوتر تحميله 
انظر الى هذه الطريقة ربما تفي بالغرض وهي وقت الكتابة ولا تحتاج الى ان التعديل

كود :

 For x As Integer = 0 To 20
            If x = 20 Then
                My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\1.txt", x, True) 'حفظ التيكست بوكس1
            Else
                My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\1.txt", x & vbNewLine, True) 'حفظ التيكست بوكس1
            End If
        Next
        Process.Start(Application.StartupPath & "\1.txt")

----
اذا لم يفي بالغرض ضع كودك هنا و اكيد أحد الأخوان سيساعدك

والله يا اخي ما زبط ياريت شرح علي المشروع

[ابراهيم ايبو]

السلام عليكم اخي دموع الوطن
والله عيناي انهارت بالدموع من فرظ مارايت 
هذا مثال مرفق معه ملف نص اضغط على فتح الملف لاحظ بالاخر يوجد اسطر فارغة وبعضها فيها مسافات
اضغط على حذف الاسطر الفارغة وتاكد ثم اعمل حفظ للملف وافتحه مجددا ولاحظ
دع الملف جانبا اكتب اي نص تريد وفي الاخير ضع اسطر فارغة او مسافات وجرب
....................!!!!!!

[سعود]

إقتباس :ممكن يا اخي المشكلة من عندك

أكيد مش ممكن وبس لاني استخدم متصفح قوقل كروم .ولو سكت قوقل كروم مش حيسكت kaspersky
على كل حال اكيد انك وجدت الحل.