کپی کردن قسمتی از متن تکست باکس

[hackershz]

با سلام و خسته نباشید به شما دوستان گرامی
دوتان من و تا تکست باکس دارم
یکیش توشآدرس یه وبلاگه از بلاگفا و دیگری هم خالی
من میخوام کاری کنم که در تکست دوم نام کاربری بلاگفا ثبت بشه

عکس زیر رو نگاه کنید دوستان


http://upload.iranblog.com/1/1207037120.gif
به جایی xxxx میخوام اسم کاربری وبلاگ ثبت بشه باید اینجا hackdoost2 ثبت بشه

من میخوام نام کاربرشو خودکار کپی کنه و بزاره توی تکست دوم حالا ممکنه نام کاربری هر چیزی باشه و تعداد نامشخصی داشته باشه لطف میکنید یه نفر اینجا به ما کمک کنه ؟

[Mbt925]

دوست عزیز ورودتون رو به سایت خودتون تبریک می گم.

ولی باید نظم بخش رو حفظ کنید.

شما اگه اس ام اس هم بدید، نباید توقع داشته باشید به این سرعت جواب بگیرید، دیگه چه برسه به دادن یه پست توی یه بخش!

بعد از دادن پست و پرسیدن سوال، باید منتظر بمونید، اگه کسی از دوستان بلد باشه، پاسخ سوالتون رو حتما میده.

دیگه تذکر ندم!

[Mbt925]

برای این منظور شما باید قسمتی از متن رو جدا کنید. این کار توسط توابع Left، Right و Mid انجام میشه.

اگه باهاشون آشنایی ندارید، جستجو کنید. مثال های زیادی زده شده.

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





Dim s As Integer, e As Integer

s = InStr(1, Text1.Text, "www.")
s = s + 4
e = InStr(1, Text1.Text, ".blogfa")

Text2.Text = Mid(Text1.Text, s, e - s)