حذف بعضی مقادیر از لیست باکس

[vahid_d_0101]

با سلام من داخل لیست باکسم حدود 100 تا یا بیشتر مقدار دارم
الان میخوام اون سطرهایی که اولشون با ! شروع میشه را از داخل لیست حذف کنم
چه طوری باید این کار را انجام بدم

[niksalehi]

درود...

Dim x, y
For x = 0 To List.ListCount
y = List.List(x)
If Left(y, 1) = "!" Then List.RemoveItem (x)
Next

[meys34]

سلام

تئوری کد شما درسته ولی ایرادش اینجاست که هر دفعه RemoveItem میکنید تعداد ListCount یک عدد کم میشه... پس بهتره که از For Next استفاده نکرد...

Dim x As Integer, y As String

Do Until x = List1.ListCount
y = List1.List(x)
If Left(y, 1) = "!" Then List1.RemoveItem (x): x = x - 1
x = x + 1
Loop