---
title: "Visa ett visst antal hela ord."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/78119-visa-ett-visst-antal-hela-ord"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fredde Mannen"
published: "2003-05-26T10:52:28.000Z"
updated: "2003-05-28T08:54:50.000Z"
replies: 3
views: 251
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/78119-visa-ett-visst-antal-hela-ord"
---

# Visa ett visst antal hela ord.

## #1 — Fredde Mannen, 2003-05-26T10:52Z

Hej jag har ett sökscript som söker igenom en tabell med inlägg, jag vill att när den sökta textsträngen visas så skall några ord visas före ord och några efter, typ:

Inlägget:
En massa text som någon har skrivit, som sedan ska bli genom sökt av en annan person som använder sidans sökfunktion.

Presentation av svaren, där *som* är sökordet:
..massa text **som** någon skrivit.. ..annan person **som** använder sidans..

Hoppas ni förstår!

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

## #2 — Engine^, 2003-05-26T11:28Z

Det låter som en skoj liten funktion och jag antar att du även vill ha det så att två närliggande träffar inte ska delas upp?

Text: En massa text med en hel del extra text och text, men inte bara simpel text 12 13 14
Sök: text
Resultat: En massa **text** med en... ...del extra **text** och **text**, men inte... ...bara simpel **text** 12 13...
Det orkar jag dock inte sitta och göra ;)

Men den enklare varianten har jag ett förslag på

```
Function GetResultText(strText, strSearch)
  Dim reObj, astrMatches, strResult
  Set reObj = New RegExp

  reObj.Global = True
  reObj.IgnoreCase = True
  reObj.Pattern = "(\S*\s){0,2}" & strSearch & "(\s\S*){0,2}"

  Set astrMatches = reObj.Execute(strText)

  For Each objMatch In astrMatches
    strResult = strResult & " ..." & objMatch.Value & "..."
  Next

  GetResultText = Replace(strResult, strSearch, "<b>" & strSearch & "</b>")
End Function

strText = "En massa text med en hel del extra text och text, men inte bara simpel text 12 13 14"

Response.Write GetResultText(strText, "text")
```

**red.**
Jag insåg just att det pattern jag angav var aningen felande (det skulle ej ha tagit sökordet om det stog som första, andra, näst sista eller sista ord), men nu är det ändrat. :) Tyvärr kvarstår dock ett problem om sökordet sitter nära inpå varandra... T.ex. blir resultaten av min kod och den textsnutten:
...En massa **text** med en... ...del extra **text** och text... ...bara simpel **text** 12 13...

Jag har dock givit dig en början att arbeta med ;)

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

## #3 — Fredde Mannen, 2003-05-27T17:08Z

Man tackar! :)

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

## #4 — Engine^, 2003-05-28T08:54Z

Man varsegoar! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/78119-visa-ett-visst-antal-hela-ord