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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود او اداة بسيطة جداً (/showthread.php?tid=8694)

طلب كود او اداة بسيطة جداً - الفلسطيني - 28-04-13

السلام عليكم
اخواني عايز كود او اداة بسيطة جداًً

اداة احطلها ملف تكست واكتب كلمة موجودة بالتكست
ويحذف كل الاسطر الي موجوده فيها الكلمة

يا ريت الاداة تكون بتستوعب حجم تكست كبير اهم شي

وشكراً

طلب كود او اداة بسيطة جداً - 3booody - 28-04-13

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

اخي العزيز اضف واحد بوتون وواحد تكست بوكس
بحدث النقر لبوتون اكتب الكود

كود :
Dim txt As String = TextBox1.Text
        txt = Replace(txt, "الكلمه التي تريد حذفها", "")
        TextBox1.Text = txt


طلب كود او اداة بسيطة جداً - الفلسطيني - 28-04-13

اخي الكريم ممكن تعمل المشروع وترفقه لي
لانه الفيجول عندي فيه مشكله
لاكن اخي اعتقد انو اذا كان حجم التكست 20 mb هيعلق كيف نحل المشكلة هذه
غلبتك معي الف شكر لك يا غالي

طلب كود او اداة بسيطة جداً - الفلسطيني - 28-04-13

وهل هذا الكود يحذف الكلمة ام السطر كله الموجود به الكلمة ؟ اريد حذف السطر

طلب كود او اداة بسيطة جداً - الفلسطيني - 28-04-13

؟؟؟؟؟؟؟؟؟؟؟؟

طلب كود او اداة بسيطة جداً - sooriaty03 - 28-04-13

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

كود :
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 سطرا وهكذا

بالتوفيق

طلب كود او اداة بسيطة جداً - 3booody - 28-04-13

اعتذر لأني فهمت طلبك خطأ لأن كودي كان حذف جزء من تكست بوكس وليش ملف نصي

طلب كود او اداة بسيطة جداً - الفلسطيني - 29-04-13

شكر لك يا غالي هذا هوا المطلوب
عبودي ما قصرت الف شكر