کمک برای ساخت Find and Remove or delete

[Arshavin]

سلام میگم به همه ی مهندسان عزیز، میخواستم اگه کسی میتونه منو تو ساخت این برنامه ها در VB کمک کنه؟
1. برنامه ای که یه رشته اصلی و یه زیر رشته رو دریافت کرده و در صورت وجود زیر رشته در رشته اصلی، زیر رشته از رشته اصلی حذف شه.
2. برنامه ای که توابع Str و InStr رو پیاده سازی کنه.
ممنون میشم کمکم کنید.

[babyy]

سلام میگم به همه ی مهندسان عزیز، میخواستم اگه کسی میتونه منو تو ساخت این برنامه ها در VB کمک کنه؟
1. برنامه ای که یه رشته اصلی و یه زیر رشته رو دریافت کرده و در صورت وجود زیر رشته در رشته اصلی، زیر رشته از رشته اصلی حذف شه.
2. برنامه ای که توابع Str و InStr رو پیاده سازی کنه.
ممنون میشم کمکم کنید.

سلام

اولی رو اینطوری میگین ؟؟

کد php:

Text3.Text = Replace(Text1.Text, Text2.Text, "") 


----
دومی هم متوجه نشدم دقیق چی میخوایین

[Arshavin]

یعنی یه command کار Str رو انجام بده و یه command دیگه کار InStr انجام بده.
با تشکر.

[babyy]

یعنی یه command کار Str رو انجام بده و یه command دیگه کار InStr انجام بده.
با تشکر.

من اینطور متوجه شدم !

کد php:

Private Sub Command1_Click()
If (IsNumeric(Text1.Text)) Then
    Text1.Text = Str(Text1.Text)
    MsgBox "ok"
End If
End Sub

Private Sub Command2_Click()
' Text2.Text = "hello heelo hhelo heloo"
' Text3.Text = "heelo"
Call MsgBox(InStr(1, Text2.Text, Text3.Text))
End Sub