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

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

Funkce Btext: Mocn² nßstroj p°i fultextovΘm vyhledßvßnφ
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 Btext. Vφce v Φlßnku...

P°i ka₧dodenφm p°em²Ülenφ nad tφm, jak² Φlßnek pro Vßs na dneÜek p°ipravφm m∞ napadlo zv²razn∞nφ urΦitΘho °et∞zci v pod°et∞zci.

MyÜlenka dala myÜlenku a za pßr minut se dostavil oΦekßvan² v²sledek.

Funkce se jmenuje Btext a mß dva parametry o kter²ch se vφce dozvφte nφ₧e.

Btext

Syntaxe:

Btext(string, strHledanyString)

string - Text ve kterΘm chcete hledat
strHledanyString - Text, kter² hledßte

P°φklad:

<%=Btext("testovaci string", "tovac")%>

V²sledek:

testovaci string

Zdroj funkce

<%
Function Btext(strText, strHledanyText)
intDelkaTextu = Len(strText)

PoziceStart = InStr(strText, strHledanyText)
PoziceKonec = PoziceStart + Len(strHledanyText)

If PoziceStart = 0 Then

Response.Write("Hledan² °et∞zec nebyl nalezen.")

Else

strPredSlovem = Left(strText, PoziceStart - 1)
strZaSlovem = Right(strText, intDelkaTextu - PoziceKonec + 1)

strVysledek = StrPredSlovem & "<font size=4 color=""RED""><b>" & strHledanyText & "</b></font>" & strZaSlovem

End If

Btext = strVysledek

End Function
%>

VeÜkerΘ v²Üe uvedenΘ p°φklady si m∙₧ete odzkouÜet na tΘto adrese, kde naleznete formulß° pro on-line testovßnφ tΘto funkce.

ZdrojovΘ k≤dy jsou ke sta₧enφ zde.

Zden∞k Cendra
ceskywap@ceskywap.cz

Souvisejφcφ Φlßnky

Vyhledßvßnφ
Text: