آموزش ویژوال بیسیک و برنامه نویسی

سورس,ویژوال بیسیک,نرم افزار,باشگاه,بدنسازی,فوتبال,آنالیز,پیش بینی,کد,برنامه نویسی

آموزش ویژوال بیسیک و برنامه نویسی

سورس,ویژوال بیسیک,نرم افزار,باشگاه,بدنسازی,فوتبال,آنالیز,پیش بینی,کد,برنامه نویسی

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

برای این منظور شما باید قسمتی از متن رو جدا کنید. این کار توسط توابع 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)
نظرات 0 + ارسال نظر
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)
ایمیل شما بعد از ثبت نمایش داده نخواهد شد