28-04-13, 10:35 PM
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
هذا الكود سيقوم بتحميل الملف النصي وسيقوم بالبحث في جميع الأسطر فإن وجد أن السطر يحتوي على الكلمة المطلوبة قام بحذفه
أما بالنسبة لحجم الملف فسوف تعاني من بعض التعليق لأن أداة النص ستعجز عن تحمل هذا الحجم الضخم
ولكن أعطيك فكرة وقم بتطبيقها :
قم بتحميل 60 سطرا على سبيل المثال داخل أداة التكست وضع أداة VScoll كلما حركها إلى الأسفل قام البرنامج بتحميل 60 سطرا وهكذا
بالتوفيق
تفضل أخي الكريم
هذا الكود سيقوم بتحميل الملف النصي وسيقوم بالبحث في جميع الأسطر فإن وجد أن السطر يحتوي على الكلمة المطلوبة قام بحذفه
كود :
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 سطرا وهكذا
بالتوفيق

