X
تبلیغات
رایتل
جمعه 22 خرداد‌ماه سال 1388 ساعت 09:18 ب.ظ
برای این منظور شما باید قسمتی از متن رو جدا کنید. این کار توسط توابع 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)
del.icio.us  digg  newsvine  furl  Y!  smarking  segnalo