Search trong Text File Ta biết rằng ListBox có thể chứa rất nhiều hàng text (con số hàng tối đa là 65535). Ta đã quen với việc hiển thị content của một text file trong một Listbox. Ta đã dùng ListBox để display các Events (sự cố) xãy ra trong real-time. Giả dụ, ta ghi lại tất cả mọi Events xãy ra trong real-time của một hệ thống an ninh, tức là ta biết ai ra, vào cửa nào, lúc mấy giờ. Các Events nầy vừa đuợc log xuống một Text file, vừa được cho vào một ListBox để luôn. | Khóa Hàm Thụ Visual Basic Chương Bảy - Dùng List Controls bài thứ ba Listbox Search trong Text File Ta biết rằng ListBox có thể chứa rất nhiều hàng text con số hàng tối đa là 65535 . Ta đã quen với việc hiển thị content của một text file trong một Listbox. Ta đã dùng ListBox để display các Events sự cố xãy ra trong real-time. Giả dụ ta ghi lại tất cả mọi Events xãy ra trong real-time của một hệ thống an ninh tức là ta biết ai ra vào cửa nào lúc mấy giờ. Các Events nầy vừa đuợc log xuống một Text file vừa được cho vào một ListBox để luôn luôn hiển thị Event mới nhất ở cuối đã có mọi Events nằm trong ListBox ta có thể Search tìm kiếm xem một người nào đã đi qua những cửa nào của building bằng cách iterate qua từng hàng trong ListBox và nhận diện một Text Pattern hàng với Function bài mẫu dưới đây ta đánh tên của một người vào trong TextBox rồi click nút Find và sau đó Find Next để highlight những Events trong ListBox cho thấy những lúc tên người đó xuất hiện. Trong khi tìm kiếm một Text Pattern ta có thể cho phép cả chữ Hoa lẫn chữ Thường bằng cách covert mọi text ra Uppercase trước khi làm việc với chúng. Listing của Sub Find_Click như sau Private Sub CmdFind Click Dim i ALine FText Get out if the Listbox is empty If 0 Then MsgBox There s no text available Exit Sub End If Check if user has entered the Text Pattern If Trim txtFind Then MsgBox Please enter the Text Pattern to search for Exit Sub End If Clear all selected lines For i 0 To - 1 i False Next Convert the Text Pattern to Uppercase FText UCase Iterate through every line in the ListBox For i 0 To - 1 Convert this line to Uppercase ALine UCase i If pattern exists in this line then highlight it If InStr ALine FText 0 Then i True Highlight the line Mark Current line as the Starting line for FindNext operation If i - 1 Then CurrentLine i 1 .
