Nu sitter jag och sliter mitt hår, jag försöker få en string-kod att fungera. Jag vill kunna lägga in lightbox-bild, alltså bild som får förstorning och att även få in en bildtext... koden nedanför använder jag för att tex få in bilder... men hur skall jag göra för att få in tre värden?? Två kan jag klura ut, men inte tre... Värde 1 jag vill få in är huvudbilden, värde 2 minibilden och värde 3 är bildtexten. Se koden jag vill skriva ut precis nedan...
[kod]<a class="lightbox" href="images/textbilder/STORBILD" rel="text" title="BILDTEXT"><img border="0" width="85" height="60" src="images/textbilder/MINIBILD"></a>[/kod]
[kod]Function ReggestrString, strPattern, strReplace)
Dim RE: Set RE = New RegExp
With RE
.Pattern = strPattern
.Global = True
Reggex = .Replace(strString, strReplace)
End With
End Function
Function bbC(strString)
strString = Replace(strString, "&", "&")
strString = Replace(strString, "<", "<")
strString = Replace(strString, ">", ">")
strString = Replace(strString, """", """)
strString = ReggestrString, "\[url=([^\]]+)\](.*?)\[\/url\]", "<a href=""$1"" title="""">$2</a>")
strString = ReggestrString, "\[url\](.*?)\[\/url\]", "<a href=""$1"" title="""">$1</a>")
strString = ReggestrString, "\[img\](.*?)\[\/img\]", "<img src=""images/textbilder/$1"" alt="""" />")
strString = ReggestrString, "\[email=(.*?)\]([^\[]*)\[\/email\]", "<a href=""mailto:$1"" title="""">$2</a>")
strString = ReggestrString, "\[email](.*?)\[\/email\]", "<a href=""mailto:$1"" title="""">$1</a>")
osv....
strString = Replace(strString, vbcrlf, "<br />")
bbC = strString
End Function
[/kod]
[kod]<a class="lightbox" href="images/textbilder/STORBILD" rel="text" title="BILDTEXT"><img border="0" width="85" height="60" src="images/textbilder/MINIBILD"></a>[/kod]
[kod]Function ReggestrString, strPattern, strReplace)
Dim RE: Set RE = New RegExp
With RE
.Pattern = strPattern
.Global = True
Reggex = .Replace(strString, strReplace)
End With
End Function
Function bbC(strString)
strString = Replace(strString, "&", "&")
strString = Replace(strString, "<", "<")
strString = Replace(strString, ">", ">")
strString = Replace(strString, """", """)
strString = ReggestrString, "\[url=([^\]]+)\](.*?)\[\/url\]", "<a href=""$1"" title="""">$2</a>")
strString = ReggestrString, "\[url\](.*?)\[\/url\]", "<a href=""$1"" title="""">$1</a>")
strString = ReggestrString, "\[img\](.*?)\[\/img\]", "<img src=""images/textbilder/$1"" alt="""" />")
strString = ReggestrString, "\[email=(.*?)\]([^\[]*)\[\/email\]", "<a href=""mailto:$1"" title="""">$2</a>")
strString = ReggestrString, "\[email](.*?)\[\/email\]", "<a href=""mailto:$1"" title="""">$1</a>")
osv....
strString = Replace(strString, vbcrlf, "<br />")
bbC = strString
End Function
[/kod]
Kommentera