حذف کلمه در لیست باکس [بایگانی]

View Full Version : حذف کلمه در لیست باکس

rabenhod55

دوشنبه 22 شهریور 1389, 15:14 عصر

سلام
ممنون میشم جواب بدید
ما یه جمله داریم به فرض
amir was join khane :testttttttt
کلمه amir و خانه در لیست باکسه
حالا میخوام میخوام فقط کلمه امیر پاک بشه از لیست باکس اونم با تابع instr
میشه راهنمایی کنید ممنون میشم

parselearn

دوشنبه 22 شهریور 1389, 17:17 عصر

Private Sub Form_Load()
List1.AddItem "amir was join khane :testttttttt"
If (InStr(1, List1.List(0), "amir")) Then List1.List(0) = Replace(List1.List(0), "amir", "")
End Sub

parselearn

سه شنبه 23 شهریور 1389, 13:01 عصر

يك نكته:
اگر حتما ميخوايد جايگزين كنيد
مسلما دستور Replace وضعيت كلمه رو چك ميكنه
پس نياز به استفاده از دستور instr نيست