---
title: "Markera <b>sökt</b> text"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13797-markera-b-sökt-b-text"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jesper T"
published: "2002-01-14T18:11:00.000Z"
updated: "2002-04-09T12:31:07.000Z"
replies: 15
views: 416
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13797-markera-b-sökt-b-text"
---

# Markera <b>sökt</b> text

## #1 — Jesper T, 2002-01-14T18:11Z

Har sökt och kollat och letat med ljus och lykta efter ett grej som markerar upp den sökta texten med \<B\>.
RegExp, replace osv men hittar inget exempel som skulle kunna passa i en sökfunktion! Har någon någon aning (nån, någon...)
Det finns säkert 1000 sätt, men jag hittar inget!

//Mvh Jesper

Permalänk: https://www.webforum.nu/p/13797

## #2 — LarsG, 2002-01-14T18:15Z

```
str = replace(str,search,"<b>" & search & "</b>",1,-1,vbTextCompare)
```

Permalänk: https://www.webforum.nu/p/303995

## #3 — Jesper T, 2002-01-14T18:23Z

Kul!
Jag har bytt ut search mot Query, är det fel eller rätt?
Och var skall jag stoppa den?

```

str = replace(str,Query ,"<b>" & Query & "</b>",1,-1,vbTextCompare)
```

Det händer inget!!

MVH Jesper

\[Redigerat av Jesper T den 14 jan 2002\]

Permalänk: https://www.webforum.nu/p/303996

## #4 — LarsG, 2002-01-14T18:26Z

Om du skriver ut resultatet då

```
response.write str
```

Om query är rätt eller fel kan jag inte säga något om utan att se mer av din kod.

Permalänk: https://www.webforum.nu/p/303997

## #5 — Jesper T, 2002-01-14T18:34Z

Ser ut så här:

```

     <%
		Set Conn = Server.CreateObject("ADODB.Connection")
		Set Rs = Server.CreateObject("ADODB.Recordset")
        Conn.Open "DBQ=" & Server.Mappath("search.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
    
		SQL = "SELECT * FROM Items WHERE Name like '%" & Query & "%' or Description like '%" & Query & "%'"
		rs.Open SQL, Conn
		str = replace(str,Query ,"<b>" & Query & "</b>",1,-1,vbTextCompare)

		

		x = 0
		For x = 1 to 9999
		If rs.eof then
        If x = 1 Then
        Response.Write "Sökningen gav inget resultat!<BR>"
		
       End If
		Exit For
		 
		Else

		ImageURL = rs("ImageURL")
		ImageURL = "<img src='../../db/items/" & ImageURL & "'>"
		str = replace(str,Query ,"<b>" & Query & "</b>",1,-1,vbTextCompare)
	   %>
      </font> 
      <table width="520" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="152" align="right" valign="middle" height="19"> 
            <div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Varu 
              namn&nbsp;</font></div>
          </td>
          <td width="448" height="19"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
            <% response.write rs("Name")
			response.write str %>

            </font></td>
        </tr>
        <tr> 
          <td width="152" align="right" valign="middle"> 
            <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Beskrivning</font></div>
          </td>
          <td width="448"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
            <%response.write str 
			response.write rs("Description")%>
            </font></td>
```

Ungefär i den stilen.

Noll och nix, händer inget, men jag är väl förstås ute och cyklar!

Permalänk: https://www.webforum.nu/p/303998

## #6 — LarsG, 2002-01-14T18:42Z

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("search.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "SELECT * FROM Items WHERE Name like '%" & Query & "%' or Description like '%" & Query & "%'"
rs.Open SQL, Conn

x = 0
For x = 1 to 9999
If rs.eof then
If x = 1 Then
Response.Write "Sökningen gav inget resultat!<BR>"

End If
Exit For

Else

ImageURL = rs("ImageURL")
ImageURL = "<img src='../../db/items/" & ImageURL & "'>"

%>
</font> 
<table width="520" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="152" align="right" valign="middle" height="19"> 
<div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Varu 
namn </font></div>
</td>
<td width="448" height="19"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
<% 
response.write replace(rs("Name"),Query ,"<b>" & Query & "</b>",1,-1,vbTextCompare)
%>
</font></td>
</tr>
<tr> 
<td width="152" align="right" valign="middle"> 
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Beskrivning</font></div>
</td>
<td width="448"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
<%
response.write replace(rs("Description"),Query, "<b>" & Query & "</b>",1,-1,vbTextCompare)
%>
</font></td>
```

Permalänk: https://www.webforum.nu/p/303999

## #7 — Jesper T, 2002-01-14T18:46Z

Ja då, ja då, jaaaaaaaaaaaa

Permalänk: https://www.webforum.nu/p/304000

## #8 — Jesper T, 2002-01-14T18:47Z

Det ser ju riktigt \<b\>snyggt\</b\> ut också!!

Tack!!//Jesper

Permalänk: https://www.webforum.nu/p/304001

## #9 — hopparn, 2002-01-15T14:31Z

hej
kort tilläggsfråga: om jag i min sökmotor söker på 900 får jag t ex träff på SS-EN 9001, kan jag med relativt enkla medel då skriva ut det såhär SS-EN \<b\>900\</b\>1 blablabla
\*undrande\*

Permalänk: https://www.webforum.nu/p/304002

## #10 — LarsG, 2002-01-15T15:39Z

Det är så det blir.

Permalänk: https://www.webforum.nu/p/304003

## #11 — hopparn, 2002-01-16T09:08Z

hehe, den som testar skall se fungerande saker sa nån =)

tack tack

Permalänk: https://www.webforum.nu/p/304004

## #12 — Molna, 2002-04-09T11:22Z

str = replace(str,Query ,"\<b\>" & Query & "\</b\>",1,-1,vbTextCompare)

Vad står 1 , -1 och vbTextCompare för? Det fungerar ju lika bra utan...

Permalänk: https://www.webforum.nu/p/640282

## #13 — LarsG, 2002-04-09T11:28Z

1 är startposition
\-1 betyder att man skall byta alla förekomster
vbTextCompare innebär att man inte är skiftlägeskänslig

Om du har sökt efter "apa" och hittar "Apa" i databasen så fungerar det med att göra bold även i detta fall. Om du utelämnar vbTextCompare så kommer replace inte att hitta "Apa"

Permalänk: https://www.webforum.nu/p/640290

## #14 — Molna, 2002-04-09T11:34Z

Ah, goodie. Men när replace nu hittar även Apa, så byter den fortfarande ut det mot \<b\>apa\</b\> (alltså tar den bort att Apa har stort a när det skrivs ut). Finns det något lätt sätt att få Apa att ha kvar sitt stora a? :)

Permalänk: https://www.webforum.nu/p/640298

## #15 — LarsG, 2002-04-09T11:36Z

Nja, inte så där rakt av men det går (naturligtvis). Du måste använda regular expressions och utnyttja samlingen matches.

Permalänk: https://www.webforum.nu/p/640300

## #16 — Erik Juhlin, 2002-04-09T12:31Z

TextCompare är inte så bra i den koden.
Söker man på asp och ASP hittas så kommer \<b\>asp\</b\> skrivas i koden. :l

Så här har jag skrivit på ett ställe. Inte så väldans bra heller, men lite bättre enligt mig.

```
str = replace(str,Query ,"<b>" & UCase(Query) & "</b>",1,-1,vbTextCompare)
```

 Det hittade ordet blir alltid skrivet med versaler då...

Ah! Missade det två sista inläggen. :r

Permalänk: https://www.webforum.nu/p/640332

---

Tråden på webben: https://www.webforum.nu/amne/asp/13797-markera-b-sökt-b-text