• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 0
amir386

جدا سازی لینک با توابع 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 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" نباید باشن تا لینک درست در بیاد چیکار کنم اونام جدا بشن

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

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تا کنون داده شده است

  • 0

1- لینک که برات برگردوند قابل دانلود هست که. مشکلی هست آیا؟

2- http://cld4.cdn.p30d....rar?1477678585 این لینک رو همیشه میتونی خودت بیرونش بیاری؟ و فقط میخای کدی بهت بدیم که از علامت سوال به بعدش رو ازش جدا کنه؟ یعنی شما از http میخای تا rar.

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
Dim str As String="http://cld4.cdn.p30download.com/p30dl-software/Android.SDK.Tools.Bundle.v24.4.1.Windows_p30download.com.part08.rar?1477678585"
Dim str2() As String
str2=Regex.Split(".rar",str)
ToastMessageShow(str2(0)&".rar",True)

لینک رو توی توست مسج نشونت دادم

پسند شده توسط nasim و Sina

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

سلام ممنون ولی اینجوری نمیشه.

من میخوام هر گونه لینکی رو از این متن استخراج کنه

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

سلام ممنون ولی اینجوری نمیشه.

من میخوام هر گونه لینکی رو از این متن استخراج کنه

 

Dim m As Matcher

m = Regex.Matcher("dat=(\S+)",s)
If m.Find Then
     Dim result as String = Regex.("?", m.Group(1))
     Return result(0)
End If

 
پسند شده توسط Sina و salmana

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری

  • مطالب مشابه

    • توسط batman1
      سلام به همه.
      دوستان،من داخل برنامم یه لینکی دارم که میخوام به محض لمس کردن اون،یک کادر کوچیک باز بشه و بهم نرم افزارهایی رو که میتونن اون لینک رو باز کنن،نشون بده.
      مثلا به محض لمس لینک،یه کادری باز شه که آیا میخواید این لینک با مرورگر موزیلا بازشه یا کروم.
      (دقت کنید،از وب ویو نمیخوام استفاده کنم.)
      ممنون.