how to get text fom html element class?

[mohamed.saber.amer 1]

السلام عليكم

من فضلتكم احاول ان استخرج النص من class ولكنى فشلت

the element

<div id="cp-0" class="caption-line" data-time="19.5">
   <div class="caption-line-time">0:19</div>
   <div class="caption-line-text">I used to bite my tongue and hold my breath Scared to rock the boat and make a mess</div>             
</div>
<div id="cp-1" class="caption-line" data-time="24.7">
   <div class="caption-line-time">0:24</div>
   <div class="caption-line-text">So I sat quietly, agreed politely</div>
</div>

بمعنى ان id بيتغير بس class value ثابته

انا اريد ان احصل على هذا

0:19

I used to bite my tongue and hold my breath Scared to rock the boat and make a mess

0:24

So I sat quietly, agreed politely

وهكذا الى ان ينتهي html element

حاولت الاتي

 

If SaveFileDialog1.ShowDialog = DialogResult.OK Then
                FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
                Dim elems As HtmlElementCollection
                elems = WebBrowser1.Document.GetElementsByTagName("div")

                For Each elem As HtmlElement In elems
                    Dim classstr As String = elem.GetElementsByTagName("class")
                    If ((classstr IsNot Nothing) And (classstr.Length <> 0)) Then
                        If classstr.ToLower().Equals(" caption-line-time ") Then
                       Dim conStr As String = elem.GetAttribute("content")
                            PrintLine(1, conStr)
                        ElseIf classstr.ToLower().Equals("caption-line-text") Then
                            Dim conStr As String = elem.GetAttribute("content")
                            PrintLine(1, conStr)
                        End If
                    End If
                Next

حتى استبدلت elem.GetAttribute("content") ب

elem.innertext

ولكن نفس المشكله

معلش طولت وشكرا

 

[KARIMSOFT 311]

جرب هذا

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim elems As HtmlDocument= WebBrowser1.Document
        Dim Div_caption_lines As IEnumerable(Of HtmlElement) = ElementsByClass(elems, "caption-line")

        For Each caption_line As HtmlElement In Div_caption_lines
            If caption_line.CanHaveChildren Then
                Dim sTime As String = caption_line.Children(0).InnerHtml
                Dim sText As String = caption_line.Children(1).InnerHtml
            End If
        Next
    End Sub
    Private Shared Iterator Function ElementsByClass(doc As HtmlDocument, className As String) As IEnumerable(Of HtmlElement)
        For Each e As HtmlElement In doc.All
            If e.GetAttribute("className") = className Then
                Yield e
            End If
        Next
    End Function

 

[mohamed.saber.amer 1]

شكرا جزيلا

والله مش عارف اقول لحضرتك ايه

انا كنت بعد ما طرحت السؤال وصلت لحل بس ما قفلتش الموضوع عشان كنت متاكد ان حضرتك هتجاوب عليه باجابه قاطعه بسيطه

انت بجد وفرت عليا 100 ميجا من استخدام الرامات

وما لا يقل عن 30 سطرمن الكود غير المشاكل الكتيره اللي قابلتني ف الحل بتاعي

شكرا

فعلا خبير

[mohamed.saber.amer 1]

هو شغال تمام بس المشكله

لو الخط عربي يعني الكلام اللي هجيبوا من

Dim sText As String = caption_line.Children(1).InnerHtml

لو عربي

بيجي ف الملف النصي علامات استفهام

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

في حل

[KARIMSOFT 311]

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

اولا نحن هنا اخوه نساعد بعض ولا شكر علي واجب

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

ثالثا بعد تشغيل البرنامج اضغط كليك يمين علي المستعرض واتبع الصوره وجرب

بالتوفيق

[mohamed.saber.amer 1]

شكرا لحضرتك

المشكله طلعت في كود اخركنت اضافتوا

[KARIMSOFT 311]

لا شكر علي واجب لقد استمتعت معك

بالتوفيق