GubbenGlad i Forum

13 svar · 274 visningar · startad av ironhead 16 juli 2001

ironheadMedlem sedan mars 20011 346 inlägg

Frågan16 juli 2001 07:56#1

Använder Denna kod för att konvertera länkar och mailadresser. Nu vill jag kunna konvertera ":)" så att det blir en :)
Får det inte att fungera med chr(41)
Hur ska man skriva?

<%
Function StrFix(StrText)
mDelimit = Chr(0)
Set re = New RegExp
re.Global = True
re.IgnoreCase = true
re.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strText = re.Replace(strText, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")
re.Pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)(\S+)"
strText = re.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"">$2" & mDelimit & "$3</a>")
re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "<a href=""http://$1"">$1</a>")
re.Pattern = "(:"&chr(41)&")(\S)(\S+)"
strText = re.Replace(strText, "GUBBENGLAD")
strText = Replace(strText, mDelimit, "")
StrFix=StrText
End Function

StrText="test [url="http://www.text.com"]http://www.text.com[/url]  eller en mailadress: bulle@bulle.com test [url="http://www.test5.com"]www.test5.com[/url]  :) test"
Response.Write StrFix(StrText)
%>

[Redigerat av ironhead den 16 jul 2001]

emissionMedlem sedan dec. 19996 721 inlägg

16 juli 2001 08:00#2

Byt ut

re.Pattern = "(:"&chr(41)&"|B)(\S)(\S+)"
strText = re.Replace(strText, "GUBBENGLAD")
strText = Replace(strText, mDelimit, "")

till

strText=replace(strText,":)","GUBBENGLAD")

Vill du ha parentes i en pattern skriver du /) . Backslash escapar i patterns (och det heter på svenska? ;) )

ironheadMedlem sedan mars 20011 346 inlägg

16 juli 2001 08:06#3

Tack tack tack!

*Hrmmm* Kan nog inte hjälpa dig med "svengelskan", man kommer på sig själv att mumla engelska ord när man inte kommer på dem på svenska :)

ironheadMedlem sedan mars 20011 346 inlägg

16 juli 2001 08:19#4

eh! en fråga till

Om man vill ha som detta forum en
[blå]text[/blå] att bli blå mellan taggarna hur skriver man då?

[Redigerat av ironhead den 16 jul 2001]

nakozMedlem sedan dec. 1999653 inlägg

16 juli 2001 08:30#5

har bara en dålig (?!) lösning på det problemet...

strText = Replace(strText,"[blå]","<font color='blue'>"
strText = Replace(strText,"[/blå]","</font>")

bör funka... men finns säkert nån med ett bättre sätt :)

mvh.

------------------
stora pojkar gråter också.

ironheadMedlem sedan mars 20011 346 inlägg

16 juli 2001 08:54#6

Tack för det!

Man får väl exprimentera litegrann ;)

@ndersMedlem sedan juni 200032 967 inlägg

16 juli 2001 08:55#7

detta har avhandlats massor med gånger, så för bättre lösningar, sök lite grann vetja.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

ironheadMedlem sedan mars 20011 346 inlägg

16 juli 2001 13:04#8

Tycker inte jag hittar nåt bättre.

Har en fråga till:
Med denna funktiion kan man inte använda en gubbe som ser ut såhär >:> hur ska man lösa det?
Ska man lägga in dessa tecken i
re.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)" i så fall vart?

emissionMedlem sedan dec. 19996 721 inlägg

16 juli 2001 14:12#9

Nej, det där används för att hitta mailadresser. Gör likadant som i mitt första svar.

ironheadMedlem sedan mars 20011 346 inlägg

16 juli 2001 20:40#10

Emission: Då funkar det inte!
Tar jag allt utom < eller > så funkar det.

emissionMedlem sedan dec. 19996 721 inlägg

16 juli 2001 21:49#11

Visa kod.

ironheadMedlem sedan mars 20011 346 inlägg

17 juli 2001 05:01#12

Function StrFix(StrText)
mDelimit = Chr(0)
Set re = New RegExp
re.Global = True
re.IgnoreCase = true
re.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strText = re.Replace(strText, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")
re.Pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)(\S+)"
strText = re.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"">$2" & mDelimit & "$3</a>")
re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "<a href=""http://$1"">$1</a>")
strText=replace(strText,":)","<img src=""Images/smile.gif"">")
strText=replace(strText,":(","<img src=""Images/bad.gif"">")
strText=replace(strText,";)","<img src=""Images/blink.gif"">")
strText=replace(strText,"bira","<img src=""Images/beergrin.gif"">")
strText=replace(strText,":o","<img src=""Images/redface.gif"">")
strText=replace(strText,":?","<img src=""Images/quest.gif"">")
strText=replace(strText,"=)","<img src=""Images/supergrin.gif"">")
strText=replace(strText,"=(","<img src=""Images/mad.gif"">")
strText=replace(strText,"8)","<img src=""Images/cool.gif"">")
strText=replace(strText,":W","<img src=""Images/evil.gif"">")
strText=replace(strText,"(:I","<img src=""Images/shame.gif"">")
strText = Replace(strText,"[ljus]","<font color='lightgrey'>")
strText = Replace(strText,"[/ljus]","</font>")
strText = Replace(strText,"[kåd]","<br><font color='white'>kod:</font><br><hr color='white'><font color='yellow'>")
strText = Replace(strText,"[/kåd]","<br><hr color='white'></font>")
strText = Replace(strText, mDelimit, "")
StrFix=StrText
End Function

[Redigerat av ironhead den 17 jul 2001]

emissionMedlem sedan dec. 19996 721 inlägg

17 juli 2001 07:48#13

Du har ju ingen sådan gubbe med i din funktion....???

ironheadMedlem sedan mars 20011 346 inlägg

17 juli 2001 09:33#14

Jag hade den såhär:
strText=replace(strText,">:>","<img src=""Images/evil.gif"">")
men bytte ut den...för att den inte funkade