منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اريد كود يقوم بالبحث عن جملة معينة في ملف text ... التفاصيل في الداخل

السلام لكم

اريد كود يقوم بالبحث في جهاز الكمبيوتر عن ملف له اسم متغير لكن به سطور معينه

يبحث داخل كل الملفات التي من نوع كذا [ txt or doc ]
عن سطر مكتوب داخل الملف " open my file "
إذا وجد هذا الجملة مكتوبة في أي سطر من سطور الملف يقوم بتنبيهي احذف الملف ام لا

إذا ضغطت نعم يتم حذف الملف اذا ضغطت لا ... لا يقوم بحذف الملف

وشكراً مقدماً لكل من سيساعدني ... ربنا يباركه ويفرح قلبه .

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

لو مثلاً حبيت تطلب طلب مثل طلبك هذا إتبع الآتي :

لا تطرح كل أسألتك دفعة واحدة وكأنك تريد عمل برنامج من ألف إلى الياء
من وجهة نظري إطرح سؤال بسؤال
مثلاً :
1 - كيف أقوم بالإلتفاف على جميع ملفات الجهاز من نوع txt or doc

2 - كيف أقوم بتحميل النص الموجود في كل ملف لإجراء عملية بحث عن نص معين

3 - كيف أتأكد إذا كانت كلمة البحث " open my file " موجودة في الملف

4 - كيف أقوم بإظهار تنبية

5 - كيف أقوم بحذف ملف

كل هذة الأسئلة أطرحها بشكل مفرد لتجد سرعة الإستجابة من الأعضاء

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

تحياتي لك وتمنياتي لك بالتوفيق

شكرا لك اخي الكريم عبد الله الدوسري علي نصيحتك .

استخدم FileSystemWatcher لمراقبة الملفات

هذا الكود يراقب ملفات من نوع txt على المحرك :C بجميع مجلداته الفرعية
فإذا وجد أن الملف يحتوي الجملة "open my file" يظهر رسالة بمسار الملف

PHP كود :

Private WithEvents watcher As New IO.FileSystemWatcher With {
    .Path = "C:\", .Filter = "*.txt",
    .IncludeSubdirectories = True, .EnableRaisingEvents = True}
Private Sub watcher_Changed(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs) Handles watcher.Changed
    On Error Resume Next
    If IO.File.ReadAllText(e.FullPath).ToLower.Contains("open my file".ToLower) Then
        Me.Invoke(Sub() MsgBox(e.FullPath))
    End If
End Sub 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

DanyGhost2010

عبدالله الدوسري

DanyGhost2010

طالب برمجة