Notifikationer

Markér alle som læst Log ud

mortency Nybegynder

30. oktober 2003 - 16:02 Der er 3 kommentarer og
2 løsninger

Highlighte function og fjerne html

Jeg skal lage en function som higlighter de ord som det søkes på.

Jeg har funnet en som highlighter men den krever veldig mye og alt går veeeeeeeeeeeldig tregt.

Er det noen som vet hvordan jeg kan optimalisere den samt få den til å bli en function som kan kalles opp?

Koden er slik:

<%
'Highlight start
strSearchWithin = "Dette er en test av highlight tekst!!!!"
strSearchFor= "Dette, av, tekst!"
'replace(Request.QueryString("q")," ",",")

Response.Write"FØR: " & strSearchWithin & " "

strAr = split(strSearchFor, ",")

For j = 0 To UBound(strAr)
strAr(j) = trim(strAr(j))
next
pos = 1
FndPos = 1
For j = 0 To UBound(strAr)
FndPos = instr(1, strSearchWithin, strAr(j),1)
Do While FndPos<>0
str = Mid(strSearchWithin, 1, (FndPos-1)+len(strAr(j)))
newstr = Mid(str, 1, FndPos - 1) & "" & Mid(str, FndPos, len(strAr(j))) & ""
strSearchWithin = replace(strSearchWithin, str, newstr)
pos = FndPos+len(strAr(j)) + 3
FndPos = instr(pos, strSearchWithin, strAr(j),1)
Loop
next
'Highlight end

Response.Write"Etter: " & strSearchWithin
%>

Fjerne html med Server.HTMLEncode men at html koden ikke skal vises. Hvordan gjør jeg det?

Synes godt om

Slettet bruger

30. oktober 2003 - 16:32 #1

Jeg bruger denne funktion til at fjerne html med

'################### Fjerner HTML fra en streng
Function RemoveHTML(strSource)
Do
pos = 1
tmpBegin = inStr(pos,strSource,"<")
If tmpBegin > 0 Then
pos = tmpBegin
If LCase(mid(strSource,tmpBegin,7)) = "<script" Then
tmpEnd = Instr(tmpBegin,LCase(strSource),"</script>")
strSource = Left(strSource,tmpBegin-1) & Right(strSource,Len(strSource)-tmpEnd-8)
ElseIf Lcase(mid(strSource,tmpBegin,2)) = Chr(60) & "%" Then
tmpEnd = Instr(tmpBegin,Lcase(strSource),"%" & Chr(62))
strSource = Left(strSource,tmpBegin-1) & Right(strSource,Len(strSource)-tmpEnd-3)
Else
tmpEnd = InStr(pos,strSource,">")
If tmpEnd > 0 Then
strSource = Left(strSource,tmpBegin-1) & Right(strSource,Len(strSource)-tmpEnd)
Else
strSource = Left(strSource,tmpBegin-1)
Exit Do
End If
End If
Else
Exit Do
End If
Loop
RemoveHTML = strSource
End Function

Synes godt om

eagleeye Praktikant

30. oktober 2003 - 19:50 #2

Angående den funktion du har lavet kan du overveje at bruger Regular Expression til at finde ord og highligte dem.

Eks på koden så:

<%
str = "Dette er en test av highlight tekst!!!!"
strSearchFor = "Dette|av|tekst"

Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = true
regEx.Pattern = "(" & strSearchFor & ")"
str = regEx.Replace (str,"$1")
Set regEx = Nothing

Response.Write str
%>

Jeg bruger denne funktion som kan ses på siden til at fjerne HTML koder:
http://www.eagleeye.dk/asp/removehtml/default.asp

Synes godt om

mortency Nybegynder

31. oktober 2003 - 09:42 #3

//Eagleeye

Veldig bra! Hvordan får jeg highlight til å bli en function? Dette virker ikke!

<%
strInput = "Dette er en test av highlight tekst!!!!"
strKeywords = "Dette|av|tekst"

Function Highlight( strHighlight, strSearchFor )
Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = true
regEx.Pattern = "(" & strSearchFor & ")"
str = regEx.Replace (strHighlight,"$1")
Set regEx = Nothing
End Function

Response.Write Highlight(strInput,strKeywords)
%>

Synes godt om

eagleeye Praktikant

31. oktober 2003 - 16:41 #4

Du skal sådan set bare rette denne linje:

str = regEx.Replace (strHighlight,"$1")

Sådan der ikke står str men nanvet på funktionen Highlight sådan at strengen bliver ført tilbage til det sted den blev kaldt og dermed udskrves:

Highlight = regEx.Replace (strHighlight,"$1")

Synes godt om

mortency Nybegynder

03. november 2003 - 09:07 #5

//Eagleeye

Nå virker det! Pointene er dine!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS