أستخلاص النصوص من عنصر التحكم WebBrowser و حفظها فى ملف نصى

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

أستخلاص النصوص من عنصر التحكم WebBrowser و حفظها فى ملف نصى

مُساهمة من طرف السنى في الأربعاء أغسطس 07, 2013 8:52 am

بسم الله الرحمن الرحيم 

كل عام وانتم بخير أخوانى الكرام ....وإليكم طريقة سريعة لاسترداد المحتويات النصية ( دون أي علامة أو وسوم HTML) من عنصر التحكم WebBrowser  و ذلك بأستخدام الكود التالى :

الرمز:
Dim Text As String
Text = WebBrowser1.Document.Body.InnerText

فى الكود أعلاه قمنا بحفظ المحتويات النصية للعنصر  WebBrowser فى المتغير text .....أما اذا اردنا الحصول على هذا المحتوى لكن بتنسيق html .....نستخدم الكود التالى :


الرمز:
Dim Text As String
Text = WebBrowser1.Document.documentElement.OuterHTML

 
  و اليكم إجراء كامل لاستخلاص النصوص من عنصر التحكم WebBrowser سواء بصيغة نصية أو بصيغة html وحفظها فى ملف نصى ....على النحو التالى :

الرمز:
Sub SaveWebBrowser(WB As WebBrowser, ByVal FileName As String, _
    Optional SaveAsPlainText As Boolean)
    Dim Text As String, fnum As Integer

    If SaveAsPlainText Then
        Text = BW.Document.Body.innerHTML
    Else
        Text = BW.Document.documentElement.OuterHTML
    End If

    ' لحفظ الملف
    fnum = FreeFile
    Open FileName For Output As #fnum
    Print #fnum, Text;
    Close #fnum
End Sub   

فى النهاية ارجوا أن يكون الموضوع سهل 

السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى