PDA

View Full Version : پیدا کردن دو تا تگ که بعضی از حرفاشون رو نمیدونیم



h_a_m_i_d
چهارشنبه 15 خرداد 1392, 04:27 صبح
با سلام خدمت دوستان عزیز من با این کد سورس یک سایت رو میگیرم
Private Function GetHTML(ByVal url As String) As String
Dim HTML As String
Dim Request As HttpWebRequest
Dim Response As HttpWebResponse
Dim Reader As StreamReader
Try
Request = HttpWebRequest.Create(url)
Response = Request.GetResponse
Reader = New StreamReader(Response.GetResponseStream())

HTML = Reader.ReadToEnd
Catch ex As Exception
HTML = Nothing
End Try
Return HTML
End Function
حالا میخوام برای پیدا کردن مقداری که دنبالشم عبارت بین دو تا تگ رو پیدا کنم که با این کد میشه اینکارو کرد
Private Function getname(ByVal e As String, ByVal str1 As String, ByVal str2 As String)
Dim m_start As Double = InStr(e, str1, CompareMethod.Text) + Len(str1)
Dim m_end As Double = InStr(m_start, e, str2, CompareMethod.Text)
Dim txt As String = Mid(e, m_start, m_end - m_start)
txt = txt.Replace(vbNewLine, "")
Return Trim(txt)
End Function
خوب اما مشکل من
من الان میخوام از یک سایتی دو تا تگش رو بگیرم تگش اینطوری تعریف شده
<span id="ctl00_ContentPlaceHolder1_LBLmaxBidPrice" class="؟؟؟؟؟؟"><font size="؟">
اونجاهایی که علامت سوال گذاشتم رو نمیدونم کسی میتونه بگه که چطور میتونم کاری کنم که هرچی اونجاها بود فرقی نداشته باشه و در نتیجه جستجو تاثیر نذاره

h_a_m_i_d
چهارشنبه 15 خرداد 1392, 04:29 صبح
البته باید بگم که داده ای که هر دفعه بین این تگ ها قرار میگیره فرق داره پس نمیتونم براساس داده پیدا کنم اطلاعاتمو یعنی شاید یکدفعه عدد باشه یک دفعه نوشته

Saman_12
چهارشنبه 15 خرداد 1392, 08:45 صبح
عبارت با قاعدش میشه این (البته اگه درست باشه) :


(?<=<span.*class=").*?(?=".*>)