استخراج قسمتی از متن تکستباکس

[niksalehi]

سلام به همه :)
میخوواستن بدونم چطوری میتونم کاری کنم که 2 خط زیر :

http://barnamenevis.org/postha/1205
/http://barnamenevis.org/postha/123

barnamenevis.org
barnamenevis.org

تبدیل بشه؟

[oYaMaa]

از split استفاده کنید.

[MohammadGh2011]

سلام عليکم


Print Mid("http://barnamenevis.org/postha/123", 8, 16)

[oYaMaa]

از این روش هم میشه:
Text1.Text = Split(Split(Text2.Text, "http://", , vbTextCompare)(1), "/postha/123")(0)

[niksalehi]

ممنونم از کد اما /123 همیشه یکشان نیست
شماره ی پست هستش ک میتونه مثلا : 123 ، 6321..... باشه...

[MohammadGh2011]

ممنونم از کد اما /123 همیشه یکشان نیست
شماره ی پست هستش ک میتونه مثلا : 123 ، 6321..... باشه...
سلام عليکم
باشه اين مهم نيست شما اگه اين رو:
Print Mid("http://barnamenevis.org/postha/123", 8, 16)


با اين کد مقايسه کني يکيه:
Print Mid("http://barnamenevis.org/postha/456 (http://barnamenevis.org/postha/123)", 8, 16)




چون اول کدش فرقي نميکنه يکي.

موفق باشيد