الاستبدال من ملف نصي - نسخة قابلة للطباعة

كود :
On Error Resume Next

        '\\\ فتح الملف المصى الاول

        Dim str1 As String = System.IO.File.ReadAllText("مسار الملف الاول")

        '\\\ استبدال السطور برمز # 

        str1 = Replace(str1, vbCrLf, "#")

        '\\\ فتح املف النصى الثانى

        Dim str2 As String = System.IO.File.ReadAllText("مسار الملف الثانى")

        '\\\ استبدال السطور برمز # 

        str2 = Replace(str2, vbCrLf, "#")



        Dim vba1() As String

        Dim vba2() As String

        '\\\ عمل سبلت للرمز # لتحديد عدد الكلمات ف كلا الملفين

        vba1 = str1.Split("#")

        vba2 = str2.Split("#")

        '\\ بدا البحث عن كلمات الملف الاول ف التكست بوكس

        Dim word As String

        For i As Integer = 0 To vba1.Length - 1

            '\\\ تحديد الكلمة 

            word = vba1(i)

            '\\\ البحث عن الكلمة ف التكست بوكس

            If TextBox1.Text.Contains(word) Then

                '\\\\ اذا تم ايجاد الكلمة

                Dim word2 As String

                '\\\ تحديد الكلمة المقابلة للكلمة ف الملف الثانى

                word2 = vba2(i)

                '\\\استبدال الكلمة الموجودة ف الملف الاول ب الكلمة الموجودة ف الملف الثانى

                TextBox1.Text = Replace(TextBox1.Text, word1, word2)

            End If

        Next