جدا سازی لینک با توابع string

[amir386 39]

با سلام خدمت دوستان انجمن من میخوام لینک رو از متن زیر جدا کنم

 

(Intent)  dim s as string  = Intent { act=android.intent.action.VIEW dat=http://cld2.cdn.p30download.com/p30dl-software/Android.SDK.Tools.Bundle.v24.4.1.Windows_p30download.com.part02.rar?1477678075 typ=application/rar cmp=b4a.example/.main }

 

این متن بالا وارد متغیر استرینگ میشه و من با استفاده از تابع زیر تا حدی جداسازیشو انجام میدم

 

Dim m As Matcher
        m = Regex.Matcher("dat=(\S+)",s)
        If m.Find Then
            Return m.Group(1)
        End If

 

چیزی که بر میگردونه اینه :

 

http://cld4.cdn.p30download.com/p30dl-software/Android.SDK.Tools.Bundle.v24.4.1.Windows_p30download.com.part08.rar?1477678585

 

ابن اعداد آخر و علامت سوال "?1477678585" نباید باشن تا لینک درست در بیاد چیکار کنم اونام جدا بشن

این لینک مثال بود من میخوام برای تمامی لینک های دانلود طبق متن اول بتونم لینک رو جدا کنم

هر جور شده کمک کنید با تشکر از دوستان..

[amir386 39]

سلام با تشکر از آقای ایزدی عزیز این کد شما کار کرد ولی برای بقیه لینک ها خطا میده من میخوام کلا هر نوع لینکی داخل این متن بود رو بهم برگردونه ممنون میشم ازتون...

[مهدی ایزدی 9,203]

درود

این رو تست کنید :

	Dim myst As String = "(Intent)  Dim s As String  = Intent { act=android.intent.action.VIEW dat=http://cld2.cdn.p30download.com/p30dl-software/Android.SDK.Tools.Bundle.v24.4.1.Windows_p30download.com.part02.rar?1477678075 typ=Application/rar cmp=b4a.example/.main }"
	Dim str() As String = Regex.Split("dat=",myst)
	Msgbox(str(1).SubString2(0,str(1).IndexOf("?")-0),"")