-
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..!