Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hàm tìm kiếm một chuỗi trong một chuỗi cho trước
#1
Mã PHP:
Function TimKiemChuoi(ChuoiMe As StringChuoiCon As String) As String
    ChuoiMe 
Trim(ChuoiMe): ChuoiCon Trim(ChuoiCon)
    
LM Len(ChuoiMe):    LC Len(ChuoiCon)
    If 
LM LC Then MsgBox "O la la!!!!! Sai roi!!!!!" Chr(13) & "Me ngan hon con !", , "Chu y": Exit Function
    
Dim i As Integer
    Dim Thay 
As Boolean
    Thay 
False
    
For 1 To LM LC 1
        
If Mid(ChuoiMeiLC) = ChuoiCon Then
            Thay 
True
            
Exit For
        Else
            
Thay False
        End 
If
    
Next
    
If Thay True Then
        TimKiemChuoi 
ChuoiMe
    
Else
        
MsgBox "Khong tim thay", , "Thong Bao"
    
End If
End Function 


Ứng dụng trong tìm kiếm khách hàng, học sinh....và nhiều vấn đề khác liên quan
Ví dụ : TimKiemChuoi("CTyTNHH Thành Đô","Thành") . Kết quả là : Cty TNHH Thành Đô
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , haquocquan , nauthna
#2
Bổ sung thêm một hàm nữa để tùy nhu cầu sử dụng cho phù hợp:

Mã:
Function TimKiemChuoi(ChuoiMe As String, ChuoiCon As String) As String
    ChuoiMe = Trim(ChuoiMe): ChuoiCon = Trim(ChuoiCon)
        
    If Len(ChuoiMe) < Len(ChuoiCon) Then
        MsgBox "O la la!!!!! Sai roi!!!!!" & Chr(13) & "Me ngan hon con !", , "Chu y":
        Exit Function
    Else
        Dim Thay As Boolean
        Thay = False
        If InStr(1, ChuoiMe, ChuoiCon) > 0 Then
            Thay = True
        Else
            Thay = False
        End If
    
        If Thay = True Then
            TimKiemChuoi = ChuoiMe
        Else
            MsgBox "Khong tim thay", , "Thong Bao"
        End If
    End If
End Function
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Xuân Thanh , thuc1605
#3
hix sao em thấy ló thế lào ấy nhỉ? code của em chỉ viết có 1 hàng thôi mà, còn mấy bác sao dài thía...!
hôm nào rãnh úp lên anh em tham khảo..!
Chữ ký của duyhiep Xin chào, mình là duyhiep, Tham gia http://thuthuataccess.com/forum từ ngày 11-11 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn Hàm API trong quản lý file và folder maidinhdan 1 293 22-04-16, 09:40 AM
Bài mới nhất: kieu manh
  Hướng Dẫn Tổng hợp hàm xử lý văn bản và chuỗi ( Có ví dụ) maidinhdan 0 319 16-04-16, 01:17 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn Một số hàm D trong Access Xuân Thanh 12 6,654 22-01-16, 01:55 PM
Bài mới nhất: khanghychu
  Hướng Dẫn Một số hàm C... trong Access Xuân Thanh 2 1,328 21-01-16, 11:06 AM
Bài mới nhất: khanghychu
  [Hàm] Hàm tách lấy số trong một chuỗi cho trước Xuân Thanh 11 2,130 13-10-15, 10:08 AM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ