تا جستجو انجام نشه که جایگزینی غیر ممکنه
عزیزم با توابع کارهای زیادی میشه کرد.لزوما کاربرد یه تابع همونی نیست که واسش تعریف کردند.با کمی تغییر و خلاقیت میشه عملکرد دلخواه رو ازش بدست آورد
این کد جستجو در رشته است.خوب به کار تابع Instr دقت کن.
Public Function FindNext(ByVal Text As String, _
ByVal Search As String, _
Optional ByVal Position As Long, _
Optional CaseSensitive As Boolean, _
Optional ByVal Up As Boolean) _
As Long
Dim lPos As Long
Dim lFind As Long
If Text <> "" Then
If Position < 1 Then Position = 1
If Position > Len(Text) Then Position = Len(Text)
If Up Then
lPos = Position - 1
While lPos > 0
lFind = InStr(lPos, Text, Search, Abs(Not CaseSensitive))
If lFind = lPos Then
lPos = 0
Else
lFind = 0
lPos = lPos - 1
End If
Wend
FindNext = lFind
Else
FindNext = InStr(Position + 1, Text, Search, _
Abs(Not CaseSensitive))
End If
End If
End Function
کسی از جستجو کردن ضرر ندیده.جستجو کن