سلا به همه
یه برنامه می خوام که قسمتی از شماره رو بگیره و هرچی شماره بعدش بود رو برام پیدا کنه.
به عبارتی اگر من بهش مثلا 8866 بدم هرچی از ....8866 هست رو بهم بده.
فکر می کنم نیاز به توضیح بیشتر نداشته باشه.
Printable View
سلا به همه
یه برنامه می خوام که قسمتی از شماره رو بگیره و هرچی شماره بعدش بود رو برام پیدا کنه.
به عبارتی اگر من بهش مثلا 8866 بدم هرچی از ....8866 هست رو بهم بده.
فکر می کنم نیاز به توضیح بیشتر نداشته باشه.
یعنی هیچ کس بلد نیست ؟
بچه ها کمک کنید.
لازمش دارم.
یعنی کسی نیست که بتونه بنویسه؟
بزار ببینم برات چیکار میتونم بکنم .
اینم فکر کنم چیزیه که میخوای یه قسمتی از یه عدد رو میگیره هرچی بعد اون عدد هست رو برمیگردونه . میتونید از مقادیر Integer یا double هم جای استرینگ استفاده کنید فرقی نداره فقط Overflow نشه .
کد:Dim strNum As String = "52552512631754142342" 'Sample Number
Dim strNum2 As String = ""
DoUntil strNum2.Contains("25126") = True Or strNum2.Length = strNum.Length
Dim i As Integer = i + 1
strNum2 = Mid(strNum, 1, i)
Loop
Dim strResult As String = Mid(strNum, strNum2.Length + 1) ' = 31754142342
آقا می خوام یه Url بهش بدم بره از سایت مورد نظر شماره ها رو دربیاره.
یه برنامه می خوام.
مثال بزن Url ت چطوریه , شماره ها ؟نقل قول:
url:phone:09120000000کد:www.cloob.com
کلا شماره ها نباید 11 رقم بیشتر بشه.
بر فرص من بهش 091245 رو میدم میره میگرده تویه cloob و هر شماره که 091245 آغازگرش بود رو ذخیره می کنه.