استخراج از سورس سایت

[niksalehi]

سلام دوستان!
من سورس سایت رو با اینت میگیرم، یه قسمت هاییش رو میخوام جدا کنم و بریزم توی یه تکستباکس که به صورت زیر هستن:



<span class="s9" style="width: 50%;">
تلفن : 09301234567
</span>
میخوام این قسمت: تلفن : 09301234567 جدا بشه!
در ضمن s9 هم متغیره.
قبلا اقای واژدی یه کد گذاشته بودن برامون که بشه اینکارو کرد اما با اون کد نمیشه ..!
ممنونم

[niksalehi]

دوستان کسی نظری نداره؟

[majidbahrami]

ببین به دردت میخوره


Private Sub Command1_Click()
Text1.Text = WebBrowser1.Document.All("test").Value
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate ("http://for--test.mihanblog.com/")
End Sub

[niksalehi]

ممنون اما این اونی که من میخواستم نبود!
من میخوام مقدار تلفن : 09301234567 از کدی که بالا گذاشتم جدا بشه.

[vbhamed]

سلام

اگر اون عباراتي كه نوشتي بينشون Enter خورده با كدي شبيه زير مي‌توني جدا كني، اون عباراتت رو در متغير s قرار بده، من به صورت نمونه s رو مقدار دادم
s = "<span class=s9 style=width: 50%;>" & vbCrLf & " تلفن : 09301234567" & vbCrLf & "</span>"

t = Split(s, vbCrLf)

x = Replace(t(1), "تلفن :", "")
x = Replace(x, " ", "")

MsgBox x

[niksalehi]

ممنونم بابت کد..
اما مشکل من اینه که چطوری اون قسمت رو از توی سورس سایت جدا کنم؟
یعنی توی سورس یک صفحه که من به دست اوردم، 10 تا شماره مثل کد بالا هست که من میخوام 10 تا شماره رو هم به دست بیارم!

[vbhamed]

سلام

يك ليست باكس روي فرم بزاريد و فرض كنيد كل سورس سايت در متغير s قرار گرفته
Dim s$, t$(), i&, x$

s = "<span class=s9 style=width: 50%;>" & vbCrLf & " تلفن : 09301234567" & vbCrLf & "</span>"


t = Split(s, vbCrLf)

For i = 0 To UBound(t)
If InStr(t(i), "تلفن :") Then
x = t(i)
x = Replace(t(i), "تلفن :", "")
x = Replace(x, " ", "")
List1.AddItem x
x = ""
End If
Next