split کردن متوالی

[allaf2]

من میخوام از یک صفحه اینترنتی از بین 10 تگ محتویاتش رو استخراج کنم. تگ ها یکسان هست اما محتویات متفاوت



<div style="margin:20px; margin-top:5px">
<div class="smallfont" style="margin-bottom:2px">Code:</div>
<pre class="alt2" dir="ltr" style="
margin: 0px;
padding: 6px;
border: 1px inset;
width: 640px;
height: 498px;
text-align: left;
overflow: auto">
متن اول
</pre>
</div></div>




<div style="margin:20px; margin-top:5px">
<div class="smallfont" style="margin-bottom:2px">Code:</div>
<pre class="alt2" dir="ltr" style="
margin: 0px;
padding: 6px;
border: 1px inset;
width: 640px;
height: 498px;
text-align: left;
overflow: auto">
متن دوم
</pre>
</div></div>




<div style="margin:20px; margin-top:5px">
<div class="smallfont" style="margin-bottom:2px">Code:</div>
<pre class="alt2" dir="ltr" style="
margin: 0px;
padding: 6px;
border: 1px inset;
width: 640px;
height: 498px;
text-align: left;
overflow: auto">
متن سوم
</pre>
</div></div>




حالا چطور میشه متن اول دوم و سوم رو split کرد؟

[محسن واژدی]

سلام علیکم
کد زیر را بررسی کنید:
Private Sub Command1_Click()
Dim tg, ctg
Set tg = WebBrowser1.Document.getElementsByTagName("pre")
For Each ctg In tg
MsgBox "Current value: " & ctg.innerText
Next 'ctg
End Sub

موفق باشید