---
title: "Hur skriva regexp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/123426-hur-skriva-regexp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2005-02-28T20:41:28.000Z"
updated: "2005-03-05T17:38:08.000Z"
replies: 9
views: 404
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/123426-hur-skriva-regexp"
---

# Hur skriva regexp

## #1 — WebbisNet, 2005-02-28T20:41Z

Hur skriver man en regexp om man ex vill ersätta
\<fet\>\</fet\> med \<b\>\</b\> , \<rubrik\>\</rubrik\> med \<font size=16pt\>\</font\> och \<text\>\</text\> med \<font size=10pt\>\</font\>
i en textmassa

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

## #2 — Jesper T, 2005-02-28T21:24Z

Du behöver inte ha regexp till det. 

```
 function makeHtml(byVal inpt)
	Dim inp:inp=inpt
		inp = Replace(inp,"</fet>","</b>",1,-1,1)
		inp = Replace(inp,"<fet>","<b>",1,-1,1)
		inp = Replace(inp,"</rubrik>","</font>",1,-1,1)
		inp = Replace(inp,"<rubrik>","<font size=6>",1,-1,1)
		inp = Replace(inp,"</text>","</font>",1,-1,1)
		inp = Replace(inp,"<text>","<font size=3>",1,-1,1)
	makeHtml = inp
end function
```

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

## #3 — Poffe, 2005-02-28T23:33Z

Dock om man använder Jespers förslag så kommer sidan att se lite konstig ut om man glömmer att stänga en tagg. Skriver användaren t.ex. bara \<b\> så kommer ju all text efter att vara fet.

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

## #4 — WebbisNet, 2005-03-01T15:26Z

Har tänkt att ha en inforuta som beskriver taggarna som användaren ser jämte textrutan. Skulle användaren glömma att stänga en tagg så är det bara att ändra :-)

> **Poffe skrev:**
>
> Dock om man använder Jespers förslag så kommer sidan att se lite konstig ut om man glömmer att stänga en tagg. Skriver användaren t.ex. bara \<b\> så kommer ju all text efter att vara fet.

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

## #5 — WebbisNet, 2005-03-01T16:37Z

> **Jesper T skrev:**
>
> Du behöver inte ha regexp till det. 
>
> ```
>  function makeHtml(byVal inpt)
> 	Dim inp:inp=inpt
> 		inp = Replace(inp,"</fet>","</b>",1,-1,1)
> 		inp = Replace(inp,"<fet>","<b>",1,-1,1)
> 		inp = Replace(inp,"</rubrik>","</font>",1,-1,1)
> 		inp = Replace(inp,"<rubrik>","<font size=6>",1,-1,1)
> 		inp = Replace(inp,"</text>","</font>",1,-1,1)
> 		inp = Replace(inp,"<text>","<font size=3>",1,-1,1)
> 	makeHtml = inp
> end function
> ```

Hur gör man om man ex vill kunna infoga bild genom att skriva in webadressen på den och visa bilden med \<bild\>\</bild\>

ex:\<bild\><https://www.sida.com/bild.gif>\</bild\>
och skapa en länk med \<www\><https://www.webforum.nu>\</www\>

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

## #6 — Peter S, 2005-03-02T19:49Z

Litet enkelt skulle man kanske kunna använda:

```
dim re: set re	= new regexp

re.ignorecase	= true
re.global	= true
re.pattern	= "<bild>(.*?)</bild>"
re.replace([i]str[/i], "<img src=""$1"">")

set re		= nothing
```

Samma visa med ditt andra exempel.

 :)

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

## #7 — WebbisNet, 2005-03-03T15:34Z

> **Peter S skrev:**
>
> Litet enkelt skulle man kanske kunna använda:
>
>
> ```
> dim re: set re	= new regexp
> 
> re.ignorecase	= true
> re.global	= true
> re.pattern	= "<bild>(.*?)</bild>"
> re.replace([i]str[/i], "<img src=""$1"">")
> 
> set re		= nothing
> ```
>
> 
> Samma visa med ditt andra exempel.
> 
>  :)

Jag får att det går inte använda parenteser när en sub anropas, man måste ju ha parenteser när man kör en replace

```
dim re: set re	= new regexp

re.ignorecase	= true
re.global	= true
re.pattern	= "<bild>(.*?)</bild>"
re.replace(str, "<img src=""$1"">")
re.pattern	= "<webb>(.*?)</webb>"
re.replace(str, "<a href=""$1"">$1</a>")

set re		= nothing
```

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

## #8 — Peter S, 2005-03-03T15:42Z

replace()-raderna bör se ut så här istället:

```
str = re.replace(...
```

Om detta löser problemet vet jag inte. Vilken rad får du felmeddelandet på?

 :)

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

## #9 — WebbisNet, 2005-03-03T16:00Z

> **Peter S skrev:**
>
> replace()-raderna bör se ut så här istället:
>
>
> ```
> str = re.replace(...
> ```
>
> 
> Om detta löser problemet vet jag inte. Vilken rad får du felmeddelandet på?
> 
>  :)

Det är re.replace(str, "\<img src=""$1""\>")
 jag får fel på och det gick inte att använda Peter S-s förslag

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

## #10 — WebbisNet, 2005-03-05T17:38Z

min regexp är nu

```
dim re: set re	= new regexp

re.ignorecase	= true
re.global	= true
re.pattern	= "<bild>(.*?)</bild>"
txtText=re.Replace(txtText, "<img src=""$1"">")
re.pattern	= "<webb>(.*?)</webb>"
txtText=re.Replace(txtText, "<a href=""$1"">$1</a>")

set re		= nothing
```

jag får Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer
/dev/test.asp, line 101 när jag använder \<%=replace(re(replace(makeHtml(request.form("txtText")),vbCrLf,"\<br\>")))%\>

har även testat med \<%=replace(txtText(replace(makeHtml(request.form("txtText")),vbCrLf,"\<br\>")))%\>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/123426-hur-skriva-regexp