پیداکردن و یافتن کلمه ای در سورس سایت

[SHD.NET]

سلام به همه بروبکس گل برنامهویس

میخواستم از طریق سورس یه سایت، یه عدد رو دریافت کنم،

اون عدد بین کلمه {"user":" و "," قرار داره

میخواستم ببینم چجوری میشه متن بین این 2 رشته رو پیداکرد ؟؟ کسی اگه کد تست شده داره بزاره، چون گشتم هیچ کدومشون کار نمیکرد

یاعلی

[SHD.NET]

کسی نبود ؟!!؟!؟!؟!؟

[h_a_m_i_d]

با سلام
Public Function GetHTML(ByVal url As Uri) 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
سورس رو بگیرید و بعد میشه کار با رشته و کلمتونو پیدا کنید

[SHD.NET]

با سلام
Public Function GetHTML(ByVal url As Uri) 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
سورس رو بگیرید و بعد میشه کار با رشته و کلمتونو پیدا کنید

مشگل من دریافت اون سورس نبود !! مشکل توی همون کار با رشته ها و پیدا کردن کلمه مورد نظر بود !!!
کسی بلد نیس ؟

[h_a_m_i_d]

Dim m_start As Integer = InStr(txt.Text, char1, CompareMethod.Text) + Len(char1)

Dim m_end As Integer = InStr(m_start, txt.Text, char2, CompareMethod.Text)
Dim char as String=Mid(txt.Text,m_start,(m_start-m_end))
ببخشید دوست عزیز فکر کردم مشکلت گرفتنه سورسه
اینم کدی که میخواستی
txt=textbox
char1=میتونن ثابت باشن به معنای علامت اول که برای شما "user:"
char2=میتونن ثابت باشن به معنای علامت دوم که برای شما ","
موفق باشید

[lootiamir]

Dim m_start As Integer = InStr(txt.Text, char1, CompareMethod.Text) + Len(char1)

Dim m_end As Integer = InStr(m_start, txt.Text, char2, CompareMethod.Text)
Dim char as String=Mid(txt.Text,m_start,(m_start-m_end))
ببخشید دوست عزیز فکر کردم مشکلت گرفتنه سورسه
اینم کدی که میخواستی
txt=textbox
char1=میتونن ثابت باشن به معنای علامت اول که برای شما "user:"
char2=میتونن ثابت باشن به معنای علامت دوم که برای شما ","
موفق باشید
سلام من از این کد استفاده کردم خطا گرفت کد رو به شکل زیر تغییر دادم درست شد :

Dim m_start As Integer = InStr(txt.Text, char1, CompareMethod.Text) + Len(char1)

Dim m_end As Integer = InStr(m_start, txt.Text, char2, CompareMethod.Text)
Dim char as String=Mid(txt.Text,m_start,(m_end-m_start))

[h_a_m_i_d]

:بامزه::چشمک::تشویق: