---
title: "Array för att ersätta ord. Problem med case sensitiv"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/68871-array-för-att-ersätta-ord-problem-med-case-sensitiv"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Addeladde"
published: "2003-02-20T14:35:14.000Z"
updated: "2003-02-21T15:27:47.000Z"
replies: 13
views: 291
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/68871-array-för-att-ersätta-ord-problem-med-case-sensitiv"
---
# Array för att ersätta ord. Problem med case sensitiv
## #1 — Addeladde, 2003-02-20T14:35Z
Hej
Jag har den här koden för att skriva ut en beskrivning av varje sida som presenteras av sökningen. Koden tar det man sökt på och gör de feta i beskrivningen. Problemet är att det är case sensitiv. Kan man ändra det på något sätt så att om mn söker på "Projekt" så gör den även "projekt" fet och inte bara "Projekt". Det ska även funka med "PROJEKT"
```
arrSokord = Split(sSearchString)
beskrivning = TRIM(util.TruncateToWhitespace(oRS("Characterization"), 200))
FOR I = 0 TO UBound(arrSokord)
beskrivning = replace(beskrivning, arrSokord(i), ""&arrSokord(i)&"")
NEXT
```
Permalänk: https://www.webforum.nu/p/68871
## #2 — Engine^, 2003-02-20T14:47Z
Använd dig av [LCase(*sökord*)](http://www.devguru.com/Technologies/vbscript/quickref/lcase.html) när du gör sökningen.
**/r** hmm... jag kanske missförstog mig själv där ;) Det är det du kollar mot som du ska ändra... Eller så visar du hur du genomför sökningen, så kanske du kan få ett annat tips.
Permalänk: https://www.webforum.nu/p/957727
## #3 — Addeladde, 2003-02-20T14:55Z
Så här har jag tänkt:
Om jag söker på: Projekt aspmodul
Och så har jag besrivningen:
> Vi har idag ett mycket intressant projekt som kommer att börja nästa vecka. Det Handlar om att bygga en ASPmodul
När jag kört igenom min funktion så ska besrivningen se ut så här:
> Vi har idag ett mycket intressant **projekt** som kommer att börja nästa vecka. Det Handlar om att bygga en **ASPmodul**
Permalänk: https://www.webforum.nu/p/957730
## #4 — Engine^, 2003-02-20T17:06Z
Du får ta innehållet och göra LCase() på det du ska söka igenom, samt LCase() på sökordet/en. UCase() går lika bra :)
Mycket mer hjälp än så kan jag inte ge dig, eftersom jag inte vet hur du söker igenom texterna. Jag kan testa något annat...
```
astrWords = Split([i]sökordssträng[/i], " ")
strSearch = astrWords(0)
If Ubound(astrWords) > 1 Then
For i = 1 To UBound(sökordssträng) - 1
strSearch = strSearch & "|" & astrWords(i)
Next i
End If
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "(" & strSearch & ")"
strSearchResult = objRegExp.Replace([i]textendusökeri[/i], "$1")
Response.Write strSearchResult
```
Kanske, kanske inte...
Permalänk: https://www.webforum.nu/p/957805
## #5 — Addeladde, 2003-02-20T17:21Z
BEskrivningen finns bara i en variabel med namnet beskrivning
Permalänk: https://www.webforum.nu/p/957813
## #6 — Engine^, 2003-02-20T17:25Z
```
astrWords = Split([i]sökordssträng[/i], " ")
strSearch = astrWords(0)
If Ubound(astrWords) > 1 Then
For i = 1 To UBound(sökordssträng) - 1
strSearch = strSearch & "|" & astrWords(i)
Next i
End If
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "(" & strSearch & ")"
strSearchResult = objRegExp.Replace([b]beskrivning[/b], "$1")
Response.Write strSearchResult
```
Permalänk: https://www.webforum.nu/p/957816
## #7 — Addeladde, 2003-02-20T21:30Z
Tack Engine^ :bire
koden funkar perfekt om man tar bort i:et efter next.
Permalänk: https://www.webforum.nu/p/957972
## #8 — Addeladde, 2003-02-20T22:43Z
Om man har ett ord som är mindre en tre bokstäver så vill jag inte att det fetmarkerar det. Söker man tex. på bara en bokstav blir det feta bokstäver nästan överallt.
Jag försökte med det här men det fungerade inte
```
If Ubound(astrWords) > 1 Then
For i = 1 To UBound(sSearchString) - 1
IF len(astrWords(i)) > 2 THEN
strSearch = strSearch & "|" & astrWords(i)
END IF
Next
End If
```
Permalänk: https://www.webforum.nu/p/958011
## #9 — Addeladde, 2003-02-21T12:59Z
Ingen som kan?
Permalänk: https://www.webforum.nu/p/958284
## #10 — Engine^, 2003-02-21T13:04Z
Lustigt... det trodde jag skulle ha fungerat...
```
If Len$(Cstr(astrWords(i))) > 2 Then
strSearch...
End If
```
Nu är det väl något uppenbart, som man inte tänker på ;)
Permalänk: https://www.webforum.nu/p/958289
## #11 — Addeladde, 2003-02-21T13:44Z
Nej det fungerar inte
```
If Ubound(astrWords) > 1 Then
For i = 1 To UBound(sSearchString) - 1
If Len(Cstr(astrWords(i))) > 2 Then
strSearch = strSearch & "|" & astrWords(i)
End If
Next
End If
```
I din kod så får jag ett felmeddelande på $. Tar jag bort det fungerar det ändå inte.
```
If Len[b]$[/b](Cstr(astrWords(i))) > 2 Then
strSearch...
End If
```
Permalänk: https://www.webforum.nu/p/958318
## #12 — Addeladde, 2003-02-21T14:02Z
Kom på ett till problem den tar bara första ordet och fetmarkerar inte allihop.
Tex. som sokfranse är projekt villtomt
så fetmarerar den bara projekt
Permalänk: https://www.webforum.nu/p/958333
## #13 — Addeladde, 2003-02-21T14:15Z
Gjorde så här och nu funkar allt.
```
astrWords = Split(sSearchString, " ")
FOR i2 = 0 to Ubound(astrWords)
IF len(astrWords(i2)) > 3 THEN
strSearch = astrWords(i2)
If Ubound(astrWords) > 1 Then
For i = 1 To UBound(sSearchString) - 1
strSearch = strSearch & "|" & astrWords(i)
Next
End If
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "(" & strSearch & ")"
beskrivning = objRegExp.Replace(beskrivning, "$1")
END IF
NEXT
```
Permalänk: https://www.webforum.nu/p/958337
## #14 — Engine^, 2003-02-21T15:27Z
Trevligt!
Permalänk: https://www.webforum.nu/p/958374
---
Tråden på webben: https://www.webforum.nu/amne/asp/68871-array-för-att-ersätta-ord-problem-med-case-sensitiv