[sooriaty03]

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
هذا الكود سيقوم بتحميل الملف النصي وسيقوم بالبحث في جميع الأسطر فإن وجد أن السطر يحتوي على الكلمة المطلوبة قام بحذفه

كود :

Dim TextFile As String() = IO.File.ReadAllLines("اسم الملف النصي", System.Text.Encoding.Default)
        Dim Result As String() = (From Line In TextFile Where Line.Contains("كلمة البحث") = False Select Line).ToArray

أما بالنسبة لحجم الملف فسوف تعاني من بعض التعليق لأن أداة النص ستعجز عن تحمل هذا الحجم الضخم
ولكن أعطيك فكرة وقم بتطبيقها :
قم بتحميل 60 سطرا على سبيل المثال داخل أداة التكست وضع أداة VScoll كلما حركها إلى الأسفل قام البرنامج بتحميل 60 سطرا وهكذا

بالتوفيق