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

[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