Katalog ASP odkaz∙: Hledßte informace o ASP? Zkuste nßÜ nov² katalog odkaz∙ na ASP weby. Vφce zde...

VyÜlo: 15.12.2000 Rubrika: ASP - Nßstroje/soft

Btext2: Vyhledßvejte rychle! Presn∞! A d∙kladn∞!
Pou₧φvßtΘ na sv²ch strßnkßch fultextovΘ vyhledßvßnφ? Vracφ se u₧ivateli pouze titulek Φlßnku nebo jinΘ strßnky, kterΘ obsahuje hledan² v²raz? Cht∞li by jste u₧ivateli hledanΘ slovo zv²raznit? Nenφ problΘm. StaΦφ vyu₧φt slu₧eb funkce Btext2, kterß se o to postarß! Vφce v Φlßnku...

Je to ji₧ n∞kolik dnφ co jsem zde zve°elnil prvnφ verzi funkce Btext(Φlßnek naleznete zde). Tehdy m∞la "vykousnout" z °et∞zce hledanΘ slovo a to pat°in²m zp∙sobem zv²raznit.

Bohu₧el to fugovalo jenom pro prvnφ slovo, tak₧e se mi ozvalo n∞kolik Φtenß°∙, kterφ m∞ poprosili o pat°iΦnou modifikaci funkce, kterß by funvala pro cel² °et∞zec.

Musφm se p°iznat, ₧e jsem si k tomu sednul ve Ükole a asi 3 hodiny nad tφm p°em²Ülel a lßmal si hlavu a ono to neusßle nmeÜlo. ╪et∞zce se pletli, nic nevychßzelo, prost∞ to bylo celΘ divnΘ :)

Po dlouhΘm muΦenφ jsem tento zp∙sob opustil(pomocφ InStr a podobn∞) a cestou do∙ jsem si °φkal, ₧e p°ece musφ existovat n∞jakΘ lepÜi, jednoduÜφ, elegnatn∞jÜφ a hlavn∞ jist∞jÜφ °eÜenφ, kterΘ funguje ve vÜech p°φpadech.

Tehdy m∞ napadla funkce Replace. Bohu₧el jsem si nebyl jist, zda-li nahradφ string stringem ve vÜech v²skytech nebo pouze jeho prvnφ v²skyt.

Nu₧e, uvidφme....

Funkce Btext2

Ukßzala se genißlnost funkce Replace, kterß opravdu nahradφ veÜkerΘ hledanΘ vyskyty v danΘm °et∞zci.

Zdroj funkce:

<%
Function Btext2(strText, strHledanyText)

If strText <> "" Then
      If InStr(strText,strHledanyText) <> 0 Then
           Btext2 = Replace(strText,strHledanyText,"<font size=4 color=""RED""><b>" & _
     strHledanyText & "</b></font>")
           Else
          Btext2 = strText
       End If
    End If

End Function
%>

P°φklad:

<%
Response.Write(Btext2("neconeconeco", "ne"))
%>

V²sledek:

neconeconeco

OdzkouÜejte si vÜe on-line na tomto formulß°i.

ZdrojovΘ k≤dy si stßhn∞te z tΘto adresy.

Zden∞k Cendra
ceskywap@ceskywap.cz

Souvisejφcφ Φlßnky

Vyhledßvßnφ
Text: