السلام عليكم
لو سمحتم ممكن اعرف كود يمكنني به البحث داخل ملف نص txt عن كلمة محددة واستبدالها باخرى غيرها
مشكوورين مقدما
ملفات ال txt كيفية البحث والتعديل
مغلق
السلام عليكم ورحمة الله وبركاته
اولا يجب عليك تحميل الملف الى RichText عن طريق الامر RichText.LoadFile ثم البحث والاستبدال عن طريق الامر Replace ثم الحفظ داخل الملف مرة اخرى عن طريق الامر Open File For Output.
انا اسف لن اتمكن من تحضير مثال لان الجهاز معطل لكن اذا لم تستطع الوصول للحل بهذه الاوامر فاخبرنى حتى اساعدك وانا معك حتى نهاية المشكلة ان شاء الله.
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
طيب وش الكود المطلوب؟؟
اولا كود تحميل الملف
Private Sub Form_Load() RichText.LoadFile "c:\test.txt" End Sub
ثانيا كود البحث والاستبدال
Private Sub Command1_Click()
Dim i As String, ii As String
i = InputBox("ادخل الكلمة التى تبحث عنها", "بحث", i)
If Len(i) Then ii = InputBox("ادخل الكلمة التى ستستبدل بها","استبدال", ii)
RichText.Text = Replace(RichText.Text, i, ii, , , vbTextCompare)
End Subثالثا كود حفظ الملف
Private Sub Command2_Click() Open "c:\test.txt" For Output As #1 Print #1, RichText.Text Close #1 End Sub
ارجو ان تعمل معك الاكواد بطريقة صحيحة.
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
يعطيك الف عافية
اخي ghost اضيفني عندك في الماسنجر XkakashiX_1@hotmail.com
لى الشرف ان اضيفك عندى لكن هل عملت الاكواد معك؟:rolleyes:
تم تعديل هذه المشاركة بواسطة GHOST2010 في 20 مايو 2005 في 22:45
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
انا في صدد تجريب الكود
شكرا للسائل
وشكرا للمجيب
يا رسول الله عفوا
اهل فلسطين يحاربون ونحن نيام
ليقم كل منا بواجبه تجاه فلسطين وارض الاسراء والمعراج
يا امة المليار شعب باكمله يباد وانتم تنظرون الى متى تنتظرون
واعلموا ان التاريخ لا يرحم ولن يغفر ولن ينسى
الكود richtext.loadfile لا يعمل؟؟؟؟
اقتباسالكود richtext.loadfile لا يعمل؟؟؟؟
اخى هذه ليست المرة الاولى التى استعمل فيها هذا الكود فقد استخدمته كثيرا ويعمل بصورة ممتازة فقط اضف اداة RichTextBox وغير اسمها الى RichText وان لم تعمل فجرب هذا الكود
Private Sub Form_Load() Dim F As String F="C:\Test.txt" Open F For Input As #1 RichText.Text=Input(Lof(1),1) Close #1 End Sub
وان شاء سيعمل مع انى متاكد ان الكود الاول يعمل جيداً.....جرب واخبرنى :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
*************************************************
**************************************************
مصطفى زيداني
يوجد رابط في الاسفل ضمن توقيعي الى موضوع عن التعامل مع الملفات ارجوا ان يفيدك ،،
بنت اليمن ،،
لا اله الا الله .. محمد رسول الله
(* ربِ اجعلني مقيم الصلاة و من ذريتي ، ربنا و تقبل دعـاء *)
يا حيّ يا قيـوم ... برحمتك استغيث ... اصلح لي شأني كله و لا تكلني الى نفسي طرفة عين
هذا الموضوع مغلق.