• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Hàm tìm kiếm một chuỗi trong một chuỗi cho trước

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư Viện Hàm
  • Hàm tìm kiếm một chuỗi trong một chuỗi cho trước
• Hàm tìm kiếm một chuỗi trong một chuỗi cho trước

• Hàm tìm kiếm một chuỗi trong một chuỗi cho trước

  Xuân Thanh > 18-04-12, 01:04 PM

  Mã PHP:

  Function TimKiemChuoi(ChuoiMe As String, ChuoiCon 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 i = 1 To LM - LC + 1
        If Mid(ChuoiMe, i, LC) = 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 Đô

• RE: Hàm tìm kiếm một chuỗi trong một chuỗi cho trước

  haquocquan > 18-04-12, 04:41 PM

  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

• RE: Hàm tìm kiếm một chuỗi trong một chuỗi cho trước

  duyhiep > 17-01-13, 10:24 PM

  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..!
• Bài trước Bài tiếp