+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب حل المشكلة (/showthread.php?tid=27360)
الصفحات:
1
2
RE: طلب حل المشكلة - دموع الوطن - 17-03-20
كود :
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)
{
}
}
}
}
اانا اريد اخر السطر فقط ااذا كان يوجد مسافه يحذفها
RE: طلب حل المشكلة - ابراهيم ايبو - 17-03-20
السلام عليكم ورحمة الله وبركاته
استغرب من كثرة المشاركات ولا حل لهذه المشكلة البسيظة جدا ظننت انها محلولة لكن تفاجأت انها في انتظار الحل
ابسط مما تتوقعوا
كود سي شارب
كود :
// فتح المبف النصي
// ثم ننفذ الكود التالي
private void button1_Click(object sender, EventArgs e)
{
string AA ;
AA= textBox1.Text.Trim();
textBox1.Text=null;
textBox1.Text = AA;
}
// اعادة حفظ الملفكود :
' فتح المبف النصي
' ثم ننفذ الكود التالي
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
' اعادة حفظ الملفتوجد حلول اخرى لكن هذه ابسطها بدون اي تعقيد
دمت بخير
RE: طلب حل المشكلة - دموع الوطن - 18-03-20
(17-03-20, 06:19 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
استغرب من كثرة المشاركات ولا حل لهذه المشكلة البسيظة جدا ظننت انها محلولة لكن تفاجأت انها في انتظار الحل
ابسط مما تتوقعوا
كود سي شارب
كود VB.Netكود :
// فتح المبف النصي
// ثم ننفذ الكود التالي
private void button1_Click(object sender, EventArgs e)
{
string AA ;
AA= textBox1.Text.Trim();
textBox1.Text=null;
textBox1.Text = AA;
}
// اعادة حفظ الملف
فقط استبدال اسم التكست بوكس بالذي عندككود :
' فتح المبف النصي
' ثم ننفذ الكود التالي
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
RE: طلب حل المشكلة - سعود - 18-03-20
ممكن سبب هذه الرسالة؟
RE: طلب حل المشكلة - دموع الوطن - 18-03-20
(18-03-20, 09:30 AM)سعود كتب :ممكن يا اخي المشكلة من عندكممكن سبب هذه الرسالة؟
مركز الخليج-------------
مركز الخليج-----------------
مركز الخليج------------------
تم تحميل مشروع عندي ما في اي مشكلة يا اخي
RE: طلب حل المشكلة - سامي محمد - 18-03-20
جهازك به فايرس يرفض الكمبيوتر تحميله
انظر الى هذه الطريقة ربما تفي بالغرض وهي وقت الكتابة ولا تحتاج الى ان التعديل
كود :
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")اذا لم يفي بالغرض ضع كودك هنا و اكيد أحد الأخوان سيساعدك
RE: طلب حل المشكلة - دموع الوطن - 18-03-20
(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")
اذا لم يفي بالغرض ضع كودك هنا و اكيد أحد الأخوان سيساعدك
RE: طلب حل المشكلة - ابراهيم ايبو - 19-03-20
السلام عليكم اخي دموع الوطن
والله عيناي انهارت بالدموع من فرظ مارايت
هذا مثال مرفق معه ملف نص اضغط على فتح الملف لاحظ بالاخر يوجد اسطر فارغة وبعضها فيها مسافات
اضغط على حذف الاسطر الفارغة وتاكد ثم اعمل حفظ للملف وافتحه مجددا ولاحظ
دع الملف جانبا اكتب اي نص تريد وفي الاخير ضع اسطر فارغة او مسافات وجرب
....................!!!!!!
RE: طلب حل المشكلة - سعود - 19-03-20
إقتباس :ممكن يا اخي المشكلة من عندكأكيد مش ممكن وبس لاني استخدم متصفح قوقل كروم .ولو سكت قوقل كروم مش حيسكت kaspersky
على كل حال اكيد انك وجدت الحل.
RE: طلب حل المشكلة - دموع الوطن - 19-03-20
(19-03-20, 12:33 AM)ابراهيم ايبو كتب : السلام عليكم اخي دموع الوطن
والله عيناي انهارت بالدموع من فرظ مارايت
هذا مثال مرفق معه ملف نص اضغط على فتح الملف لاحظ بالاخر يوجد اسطر فارغة وبعضها فيها مسافات
اضغط على حذف الاسطر الفارغة وتاكد ثم اعمل حفظ للملف وافتحه مجددا ولاحظ
دع الملف جانبا اكتب اي نص تريد وفي الاخير ضع اسطر فارغة او مسافات وجرب
....................!!!!!!
يسلمووو يا اخي الله يسعدك
(19-03-20, 07:19 AM)سعود كتب :إقتباس :ممكن يا اخي المشكلة من عندكأكيد مش ممكن وبس لاني استخدم متصفح قوقل كروم .ولو سكت قوقل كروم مش حيسكت kaspersky
على كل حال اكيد انك وجدت الحل.
يسلمو الله يسعدك يارب