كود :
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
على كل حال اكيد انك وجدت الحل.
يسلمو الله يسعدك يارب
