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

[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]