Search and Replace with Regular Expressions

You don't have to use Reg. Exp. for this... You can use this function insted:

Function ReplaceThis(strTxt)
  arrAlign = Split(arrAlign, "#")
  strTxt = Replace(strTxt, "<picture_x#al>", "<img src=""" & arrAlign(LBound(arrAlign) & """ align=""" & arrAlign(UBound(arrAlign) & """ >")
End Function

Response.Write(ReplaceThis("test<picture_x#al>test")

//>Rune

Error Type:
Kompileringsfel i Microsoft VBScript (0x800A03EE)
')' förväntas.
/axelsons/nyhetstest.asp, line 7, column 138
strTxt = Replace(strTxt, "<picture_x#al>", "<img src=""" & arrAlign(LBound(arrAlign) & """ align=""" & arrAlign(UBound(arrAlign) & """ >")
-----------------------------------------------------------------------------------------------------------------------------------------^

Function ReplaceThis(strTxt)
  arrAlign = Split(arrAlign, "#")
  strTxt = Replace(strTxt, "<picture_x#al>", "<img src='" & arrAlign(LBound(arrAlign) & " align='" & arrAlign(UBound(arrAlign) & "'>")
End Function

Response.Write(ReplaceThis("test<picture_x#al>test")

Error Type:
Kompileringsfel i Microsoft VBScript (0x800A03EE)
')' förväntas.
/axelsons/nyhetstest.asp, line 7, column 132
strTxt = Replace(strTxt, "<picture_x#al>", "<img src='" & arrAlign(LBound(arrAlign) & " align='" & arrAlign(UBound(arrAlign) & "'>")
-----------------------------------------------------------------------------------------------------------------------------------^

Hmm måske:

Function ReplaceThis(strTxt)
  arrAlign = Split(arrAlign, "#")
  strReplace = "<img src='" & arrAlign(LBound(arrAlign) & " align='" & arrAlign(UBound(arrAlign) & "'>"
  strTxt = Replace(strTxt, "<picture_x#al>", strReplace)
End Function

Response.Write(ReplaceThis("test<picture_x#al>test")

//>Rune

Error Type:
Kompileringsfel i Microsoft VBScript (0x800A03EE)
')' förväntas.
/axelsons/nyhetstest.asp, line 7, column 101
strReplace = "<img src='" & arrAlign(LBound(arrAlign) & " align='" & arrAlign(UBound(arrAlign) & "'>"
----------------------------------------------------------------------------------------------------^

strReplace = "<img src='" & arrAlign(LBound(arrAlign)) & "' align='" & arrAlign(UBound(arrAlign)) & "'>"

//>Rune

am i supposed to run this function 5 times if i have 5 custom tags with img1, img2, img3, img4 and img5?

thats why i thought regExo should be the solution...

i'm supposed to use this in a news managementsystem... in every article there can be up to 5 images in custom tags mixed in with the articletext like this: word word word word word word word word <bild1#left> word word word word word word word word word word <bild2#right>word word word word word word word word <bild3#left>word word word word word word word word <bild4#center>word word word word word word  <bild5#right>.

benkebus your right, the solution would be a regular expressition to do the replace as it support variables, which is needed to find the number and align text.

Try this, it will replace <bildX#vvv> with <img src="picture_X.jpg" align="vvv">

<%

str = "i'm supposed to use this in a news managementsystem... in every article there can be up to 5 images in custom tags mixed in with the articletext like this: word word word word word word word word <bild1#left> word word word word word word word word word word <bild2#right>word word word word word word word word <bild3#left>word word word word word word word word <bild4#center>word word word word word word  <bild5#right>."
response.Write "Test String:<br>" & str


Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = true
regEx.Pattern = "<bild(\d)#([a-z]*)>"
RegEx.Global = true
str = RegEx.Replace(str,"<img src=""picture_$1.jpg"" align=""$2"">")
Set RegEx = Nothing

Response.Write "<br><br>Test Result:<br>"
Response.Write str
%>

That worked fine... if i'd like to reverse the process and replace the <img src="picture_x.jpg" align="align"> back to the original custom tag, how would the regEx.pattern look like then?

help...
if "$2"="center" then
str = RegEx.Replace(str,"<div align=""$2""><img src=""bilder/upload/bild$1.jpg""></div>")
else
str = RegEx.Replace(str,"<img src=""bilder/upload/bild$1.jpg"" align=""$2"">")
end if

this doesn't work... how should i do it... if a image is centred in the customtag it must be written with <div align=></div>?????

if i'd like to reverse the process and replace the <img src="picture_x.jpg" align="align"> back to the original custom tag, how would the regEx.pattern look like then?


regEx.Pattern = "<img src=""picture_(\d).jpg"" align=""([a-z])*"">"
RegEx.Global = true
str = RegEx.Replace(str,"<bild$1#$2>")

help...
if "$2"="center" then
str = RegEx.Replace(str,"<div align=""$2""><img src=""bilder/upload/bild$1.jpg""></div>")
else
str = RegEx.Replace(str,"<img src=""bilder/upload/bild$1.jpg"" align=""$2"">")
end if

this doesn't work... how should i do it... if a image is centred in the customtag it must be written with <div align=></div>?????