كيف استطيع فلترة النصوص الموجود فى ملف html بدون علامات ال html او ال xml ?
كيف يمكن استخلاص النصوص من بين رموز Html او Xml ؟
السلام عليكم...
ربما يكون من الصعب معالجة الملف بشكل مباشر لإزالة علامات الـ HTML أو XML. لكن يمكن اللجوء إلى خدعة بسيطة فيما يتعلق بملفات الـ HTML (لا أدري إن كان ينطبق على ملفات XML لأني لم أجربه):
1. أضف إلى البرنامج المكون WebBrowser (يمكنك جعله مخفياً إذا لم ترغب بإظهاره).
2. حمل ملف HTML المطلوب في الـ WebBrowser:
- WebBrowser1.Navigate2 "file://" & App.Path & "Test001.htm"
3. نكون كائن TextRange على مستوى الـ Document بأكمله و نقرأ النص الذي يحتوي عليه:
- Private Sub Command1_Click()
- Dim Rng As String
- Rng = WebBrowser1.Document.body.createTextRange().Text
- MsgBox Rng
- End Sub
إن الكائن TextRange يتكون تلقائياً من النصوص فقط و لا يحتوي على تعريفات العناصر التي لا تحتوي على نص (مثل الصور)، لكنه قد يحتوي على نصوص لا تريدها، مثلا يشمل عناوين الأزرار المعرفة بالعلامة button:
- <button>Click Me</button>
لكن أعتقد أنها طريقة جيدة.
نرجو الاستفادة و السلام.
تم تعديل هذه المشاركة بواسطة najy_zl في 19 يوليو 2008 في 02:27
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم