منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] طريقة عمل برنامج دمج ملفات التيكس بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] طريقة عمل برنامج دمج ملفات التيكس بوكس (/showthread.php?tid=36361)

طريقة عمل برنامج دمج ملفات التيكس بوكس - Ali 2020 - 11-09-20

السلام عليكم ورحمة الله وبركاتة

الي اهل الخبر ممكن مثال دمج ملفات النص
مع بعض وكون شكر الك جميعة

[صورة مرفقة: p_1714p9azj1.gif]


RE: طريقة عمل برنامج دمج ملفات التيكس بوكس - Anas Mahmoud - 11-09-20

يمكنك استخدام StreamReader لقراءة الملف و StreamWriter للكتابة في ملف جديد :

كود :
       Dim file1Path As String = "E:\1.txt"
       Dim file1 As String
       Using reader As New IO.StreamReader(file1Path)
           file1 = reader.ReadToEnd
       End Using

       Dim file2Path As String = "E:\2.txt"
       Dim file2 As String
       Using reader As New IO.StreamReader(file2Path)
           file2 = reader.ReadToEnd
       End Using

       Dim outFilePath As String = "E:\out.txt"
       Using writer As New IO.StreamWriter(outFilePath, True)
           writer.Write(file1)
           writer.Write(file2)
       End Using

True في StreamWriter(outFilePath, True) تعني انه سيضيف الى نهاية الملف

RE: طريقة عمل برنامج دمج ملفات التيكس بوكس - Ali 2020 - 11-09-20

مشكور اخي علي الرد الجميل



وسمحني اذ غلبتك


[صورة مرفقة: p_1715wl6tq1.gif]