جستجو در تکست باکس

[sinashahab]

:تشویق::تشویق:

[vahid_d_0101]

اولا این طرز سوال پرسیدن نیست
دوما

Instr(1,lcase(text1),"vahid") <> 0

[sinashahab]

میشه یه نمونه کار بزارید ؟

[vahid_d_0101]

جگر نمونه کار میخواد برای چی به این قشنگی کد دادم ببین اگه تو تکست 1 کلمه vahid بود یه کاری انجام میده اون کد را تو یه دستور if قرار بده

[sinashahab]

یعتی می خواهم که اگر vahid وجود داشت سپس vahid پاک بشه .

[vahid_d_0101]

نه برادر اصلا شما میخواهی چه کار بکنی بگو من کد بدم

[sinashahab]

من می خواهم که اگه متن تکست این بود :
ali
sina
reza
shahab
سپس دنبال reza بگرده و reza رو پاک کنه و متن تکست این بشه :
ali
sina
shahab .
ممنونم

[Mbt925]

نمونه رو ببینید

[r_oscar2007]

Private Sub Command1_Click()
For i = 1 To List1.ListCount
If List1.List(i) = "Reza" Then
List1.RemoveItem i
End If
Next i
End Sub

[sinashahab]

دوست عزیز این Text1.Text = Replace(Text1.Text, "abc", "") ای بس سی رو به خالی تبدبل میکنه
حالا اگه توی یک خط فقط ای بس سی بود می خواهم که اون خط پاک بشه نه به خالی تبدیل بشه.
اگه متوجه نشدید بگید دوباره بگم .
ممنون .

[اوبالیت به بو]

دوست عزیز این Text1.Text = Replace(Text1.Text, "abc", "") ای بس سی رو به خالی تبدبل میکنه

براي اينكه با كاراكتر خالي مقدار دهي شده و كاراكتر خالي جزء كاراكترهاست. يعني براي خودش يه كد اسكي داره. اگه تويه يه متغير بريزيش و با يه تابع تعداد كاراكترهاي متغير رو بشماري متوجه ميشي كه مقدار خالي رو هم شمرده و ذخيره كرده.
با اين كد مي توني اين كار رو انجام بدي:


Dim strText As String
Dim NewWord As String
NewWord = InputBox("Enter a New Word:", "New Word")
strText = "Barnamenevis - sinashahab"
Print strText & Space(4) & Len(strText)
strText = Replace(strText, NewWord, Empty)
Print strText & Space(4) & Len(strText)


اگه متوجه نشدید بگید دوباره بگم
بگو

[sinashahab]

نه منظورم اینه که اگر خود این کلمه تنها در یک خط بود سپس کل خط پاک بشه .
توی این کد کلمه پاک میشه ولی اگه تنها باشه خط پاک نمیشه .

یعنی خیلی سخته ؟
خوب اگه سخته بگید سخته و بلد نیستم و منو چشم انتظار نزار .