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

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

الي اهل الخبر ممكن مثال دمج ملفات النص

مع بعض وكون شكر الك جميعة

يمكنك استخدام 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) تعني انه سيضيف الى نهاية الملف

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Ali 2020

Anas Mahmoud

Ali 2020