T
thanhphong
Guest
- Cấu trúc Not Like và Like
- Tìm kiếm chuỗi ký tự chứa một chuỗi ký tự khác (Like)
- Tìm kiếm chuỗi ký tự không chứa chuỗi ký tự khác
1. Cấu trúc Not Like và Like
Các cách viết dưới đây, cách viết nào là đúng?
a Not Like b ?
a Like Not b ?
a Like Is Not b ?
Câu trả lời là Not a Like b
2. Tìm kiếm chuỗi ký tự chứa một chuỗi ký tự khác (Like)
Hãy xem đoạn code ví dụ dưới đây:
Mã:
Sub LikeTest1()
Dim s
Dim ar()
ReDim ar(4)
ar(0) = "DaiHoc"
ar(1) = "TruongHoc"
ar(2) = "tuhocvba"
ar(3) = "TieuHoc"
ar(4) = "CongVien"
For Each s In ar
If s Like "*hoc*" Then
Debug.Print s & " chua cum tu-hoc"
Else
Debug.Print s & " khong chua cum tu-hoc"
End If
Next
End Sub
Nhìn vào kết quả trên có một chút vấn đề về chữ in hoa và chữ thường đã được chương trình tự động phân biệt.DaiHoc khong chua cum tu-hoc
TruongHoc khong chua cum tu-hoc
tuhocvba chua cum tu-hoc
TieuHoc khong chua cum tu-hoc
CongVien khong chua cum tu-hoc
Bạn cần đăng nhập để thấy link
, có một cách rất đơn giản, trên đầu Module bạn hãy viết dòng code sau:
Mã:
Option Compare Text
3. Tìm kiếm chuỗi ký tự không chứa chuỗi ký tự khácDaiHoc chua cum tu-hoc
TruongHoc chua cum tu-hoc
tuhocvba chua cum tu-hoc
TieuHoc chua cum tu-hoc
CongVien khong chua cum tu-hoc
Ta chỉ cần phủ định lại câu lệnh Like. Hãy xem ví dụ dưới đây:
Mã:
Option Compare Text
Sub LikeTest1()
Dim s
Dim ar()
ReDim ar(4)
ar(0) = "DaiHoc"
ar(1) = "TruongHoc"
ar(2) = "tuhocvba"
ar(3) = "TieuHoc"
ar(4) = "CongVien"
For Each s In ar
If Not s Like "*hoc*" Then
Debug.Print s & " khong chua cum tu-hoc"
Else
Debug.Print s & " chua cum tu-hoc"
End If
Next
End Sub
Nguồn tham khảo:DaiHoc chua cum tu-hoc
TruongHoc chua cum tu-hoc
tuhocvba chua cum tu-hoc
TieuHoc chua cum tu-hoc
CongVien khong chua cum tu-hoc
Bạn cần đăng nhập để thấy link