ايران ويج

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

(۱۵-آذر-۱۳۸۸, ۱۷:۲۲:۱۳)Arshavin نوشته است: [ -> ]سلام میگم به همه ی مهندسان عزیز، میخواستم اگه کسی میتونه منو تو ساخت این برنامه ها در VB کمک کنه؟
1. برنامه ای که یه رشته اصلی و یه زیر رشته رو دریافت کرده و در صورت وجود زیر رشته در رشته اصلی، زیر رشته از رشته اصلی حذف شه.
2. برنامه ای که توابع Str و InStr رو پیاده سازی کنه.
ممنون میشم کمکم کنید.

سلام

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

کد php: 
Text3.Text = Replace(Text1.Text, Text2.Text, "") 

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

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

(۱۵-آذر-۱۳۸۸, ۱۸:۱۴:۲۶)Arshavin نوشته است: [ -> ]یعنی یه 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 

Arshavin

babyy

Arshavin

babyy