Instr(), Mid() vs. ile Arama

<% '// Ferruh Mavituna '// http://ferruh.mavituna.com Dim MyStr, SearchStr, StPos, CharRange, FinalResult '// İçinde Arama yapılacak String MyStr = Request.Form("mystr") If MyStr="" Then MyStr = "Ben giderim o gider vs. vs. Pek kısa olmasın ki adam gibi test edebileli değil mi ? derim." '// Sonuçlarda + / - karakter uzunluğu CharRange = 5 '// Arama Kelimesi SearchStr = Request.Form("searchstr") If SearchStr = "" Then SearchStr = "olmasın" '// Karakter Uzunluğu Range SearchStrLen = Len(SearchStr) + (CharRange*2) '// Konumu Bul StPos = Instr(MyStr,SearchStr) '// Alt Konumu Bul CharRange ile If (StPos-CharRange)>0 Then StPos = StPos - CharRange If StPos = 0 Then Response.Write "Sonuç Bulunamadı" Else '// Mid ile sonuç FinalResult = Mid(MyStr,StPos,SearchStrLen) Response.Write "

İçinde Aranılıcak Cümle Data vs.;

" & MyStr & "

" Response.Write "

Arama Kelimesi;

" & SearchStr & "

" Response.Write "

Sonuç;

" '// Print Response.Write Replace(FinalResult,SearchStr,"" & SearchStr & "") End If %>

Yeni Arama

" method="post"> İçinde Arama Yapılacak veri;


Arama Kelimesi :


Kaynak Kodu Download et
Ferruh Mavituna