[دموع الوطن]

كود :

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
على كل حال اكيد انك وجدت الحل.

[دموع الوطن]

(19-03-20, 12:33 AM)ابراهيم ايبو كتب : السلام عليكم اخي دموع الوطن
والله عيناي انهارت بالدموع من فرظ مارايت 
هذا مثال مرفق معه ملف نص اضغط على فتح الملف لاحظ بالاخر يوجد اسطر فارغة وبعضها فيها مسافات
اضغط على حذف الاسطر الفارغة وتاكد ثم اعمل حفظ للملف وافتحه مجددا ولاحظ
دع الملف جانبا اكتب اي نص تريد وفي الاخير ضع اسطر فارغة او مسافات وجرب
....................!!!!!!

يسلمووو يا اخي الله يسعدك

---

(19-03-20, 07:19 AM)سعود كتب :

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

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

يسلمو الله يسعدك يارب