---
title: "Ersätta 
till Code1 osv! Men jag är så hemsk dålig på regexp, någon som kan?
T ex
```
Vi testar lite HTML 
```
Ska bli
```
Code1 Vi testar lite HTML Code2
```
Permalänk: https://www.webforum.nu/p/137562
## #2 — Travoni, 2005-11-14T10:32Z
```
Function replaceImgtags(ByVal str,ByVal repstr)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "()"
replaceImgtags = objRegExp.Replace(str,repstr)
Set objRegExp = Nothing
End Function
Response.write replaceImgtags("
Bild på båda sidor?", " [ code ] ")
```
Numreringen blir kruxigare. Måste du ha med den?
Permalänk: https://www.webforum.nu/p/1706867
## #3 — hakan@4u2.se, 2005-11-14T12:14Z
Jo jag måste ha med numreringen, annars kan jag inte bytta tillbacks code1 till img1 osv!
Permalänk: https://www.webforum.nu/p/1706932
## #4 — Peter S, 2005-11-14T13:02Z
```
dim re
set re = new regexp
re.pattern = ")
]*>"
re.global = true
re.ignorecase = true
' txt innehåller din text
txt = re.replace(txt, "Code$1")
set re = nothing
```
Permalänk: https://www.webforum.nu/p/1706976
## #5 — hakan@4u2.se, 2005-11-14T14:28Z
Tack det fungerar!
Jag var egentligen lite otydlig i min fråga...sorry!
Har en funktion som inte fungerar med \ i koden,därför måste jag byta ut alla img taggar mot code1, code2 osv innan jag kör den funktionen och bytta tillbacks efter jag har kört den funktionen. Därför måste jag veta vilken bild code1 =, t ex code1 = 'nalle.gif', code2='power.bmp' osv. Förstår ni vad jag menar?
Det kan ligga i en array t ex!
Någon som har någon förslag?
Permalänk: https://www.webforum.nu/p/1707048
## #6 — Peter S, 2005-11-14T14:59Z
Får man fråga varför det inte går att köra funktionen mot textsträngen "\![]()
"? Det verkar väldigt onödigt att konvertera fram och tillbaka.
Permalänk: https://www.webforum.nu/p/1707066
## #7 — Peter S, 2005-11-14T15:46Z
Här är ett förslag:
```
txt = 'din text...'
dim re
set re = new regexp
re.pattern = ")
]*>"
re.global = true
re.ignorecase = true
dim matches
set matches = re.execute(txt)
if matches.count > 0 then
dim arr(), index, i
index = 0
redim arr (matches.count - 1)
' arr(i) innehåller filnamnet. Ex.:
' arr(0) = nalle.gif
' arr(1) = foobar.bmp
for i = lbound(arr) to ubound(arr)
arr(i) = matches(i).submatches(0)
next
re.pattern = "
]*>"
re.global = false
dim counter
counter = 0
' Här kommer Codei att motsvara det i:te elementet i arr() ovan. Ex.:
' Code0 = nalle.gif (arr(0))
' Code1 = foobar.bmp (arr(1))
do while re.test(txt)
txt = re.replace(txt, "Code" & counter)
counter = counter + 1
loop
end if
set re = nothing
```
Permalänk: https://www.webforum.nu/p/1707077
## #8 — hakan@4u2.se, 2005-11-14T16:15Z
Vet inte riktigt jag har inte gjort funktionen själv, det är xhtml och regexp, inte mina starka sidor! Ska kolla på ditt förslag!
Permalänk: https://www.webforum.nu/p/1707091
## #9 — hakan@4u2.se, 2005-11-15T09:23Z
Tack Peter S o ni andra!
Det fungerar perfekt!
Tyvärr så fungerar inte min funktion iaf, men det är inte erat fel ;)
Permalänk: https://www.webforum.nu/p/1710562
---
Tråden på webben: https://www.webforum.nu/amne/asp/137562-ersätta-img-med-text-i-html