تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طريقة عمل برنامج دمج ملفات التيكس بوكس
#1
السلام عليكم ورحمة الله وبركاتة

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

[صورة مرفقة: p_1714p9azj1.gif]
الرد
تم الشكر بواسطة: حريف برمجة
#2
يمكنك استخدام 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) تعني انه سيضيف الى نهاية الملف
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة , WaeLx
#3
مشكور اخي علي الرد الجميل



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


[صورة مرفقة: p_1715wl6tq1.gif]
الرد
تم الشكر بواسطة: WaeLx , WaeLx , حريف برمجة



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم