HJÄLP! problem med regexp!

10 svar · 301 visningar · startad av goovie 2 juni 2004

goovieMedlem sedan juni 200440 inlägg

Frågan2 juni 2004 11:22#1

jag har försökt nu i två dagar att fixa så man kan använda taggar som man kan använda när man skriver i artiklar, gästböker m.m. för att få tjock stil på texten när man skriver text mellan taggarna som t.ex. de här taggarna jag har testat massor men inte fått dett att funka:

scriptet är taget från joakimweb: scriptet

Jesper TMedlem sedan nov. 20017 144 inlägg

2 juni 2004 11:34#2

Välkommen till WF goovie!
http://www.webforum.nu/showthread.php?s=&postid=758944

goovieMedlem sedan juni 200440 inlägg

2 juni 2004 11:48#3

i vilken av filerna ska jag ha regexp i, jag har testat att ha de i båda samtidigt.

PalleMedlem sedan apr. 20003 174 inlägg

2 juni 2004 12:04#4

En variant..

Lägg regexp-koden i en funtion som du kan återanvända,
anropa sedan funktionen där du vill skriva ut din behandlade text.

[red]<%

Function makeOutput(str)
	str = trim(str)
	If Len(str) > 0 Then
		str = Replace(str, "<", "&lt;")     'Convert html-code to safe-code
		str = Replace(str, ">", "&gt;")     'Convert html-code to safe-code
		str = Replace(str, vbCrLf, "<br>")  'Convert form-brakes to html-brakes
		Set regExp = new regExp
			regExp.Global = True
			regExp.IgnoreCase = True
			regExp.Pattern = "\[b\]" : str = regExp.Replace(str, "<strong>")                                         'Convert to STRONG-style
			regExp.Pattern = "\[/b\]" : str = regExp.Replace(str, "</strong>")
			regExp.Pattern = "\[i\]" : str = regExp.Replace(str, "<em>")                                             'Convert to ITALIC-style
			regExp.Pattern = "\[/i\]" : str = regExp.Replace(str, "</em>")
			regExp.Pattern = "\[u\]" : str = regExp.Replace(str, "<span style=""text-decoration: underline;"">")     'Convert to UNDERLINE-style
			regExp.Pattern = "\[/u\]" : str = regExp.Replace(str, "</span>")
		Set regExp = Nothing
	End If
	makeOutput = str
End Function

%>

...

<%= makeOutput("String to convert..") %>[/red]

goovieMedlem sedan juni 200440 inlägg

2 juni 2004 12:29#5

jag gjorde som du sa (tror jag), jag hittade raden:
<%text = server.htmlencode(RecSet("innehall"))%>
<%= Replace(text,vbCrLf,"<br>")%>
och testade med:
<%= makeOutput("<%text = server.htmlencode(RecSet("innehall"))%>") %>
<%= Replace(text,vbCrLf,"<br>")%> och jag fick ett felmeddelande
vad gjorde jag fel?

Jesper TMedlem sedan nov. 20017 144 inlägg

2 juni 2004 12:34#6

<%= makeOutput(RecSet("innehall"))%>

r/ Såg att radbrytningsreplacen redan fanns där...

PalleMedlem sedan apr. 20003 174 inlägg

2 juni 2004 12:35#7

Byt ut detta:

[red]<%text = server.htmlencode(RecSet("innehall"))%>
<%= Replace(text,vbCrLf,"<br>")%>[/red]

Mot detta:

[red]<%= makeOutput(RecSet("innehall")) %>[/red]

Jesper TMedlem sedan nov. 20017 144 inlägg

2 juni 2004 12:38#8

Palle, detta:

		str = Replace(str, "<", "&lt;")     'Convert html-code to safe-code
		str = Replace(str, ">", "&gt;")     'Convert html-code to safe-code

Borde väl kunna ersättas av, str = server.htmlencode(str)?

goovieMedlem sedan juni 200440 inlägg

2 juni 2004 12:48#9

Tack för hjälpen, det funkar nu, men hur fixar jag det sen när jag ska fixa länkar.

och när jag ändå är på farten kan jag väl fråga hur ska man koda så att man kan välja om en artikel ska visas, som på gruvsjo länkskript där man måste godkänna först, så att den visas.

jag hittade Recset namn, av, datum

PalleMedlem sedan apr. 20003 174 inlägg

2 juni 2004 12:51#10

Jesper T >> Jo, om man så vill.. dock har det en tendens att bli helt fel om man jobbar med extended characters och UTF-8. ;)

ex. med Server.HTMLEncode: Våra öbor här på Öland äro jättesnälla!
ex. utan Server.HTMLEncode: Våra öbor här på Öland äro jättesnälla!

Jesper TMedlem sedan nov. 20017 144 inlägg

2 juni 2004 13:50#11

Palleman skrev:

Jo, om man så vill.. dock har det en tendens att bli helt fel om man jobbar med extended characters och UTF-8

...var inte så petig nu. ;)
Goovie du kan testa detta tillägg.

 <%

Function makeOutput(str)
	str = trim(replace(str,"http://",""))
	If Len(str) > 0 Then
		str = Replace(str, "<", "&lt;")     'Convert html-code to safe-code
		str = Replace(str, ">", "&gt;")     'Convert html-code to safe-code
		str = Replace(str, vbCrLf, "<br>")  'Convert form-brakes to html-brakes
		Set regExp = new regExp
			regExp.Global = True
			regExp.IgnoreCase = True
			regExp.Pattern = "\[b\]" : str = regExp.Replace(str, "<strong>")                                         'Convert to STRONG-style
			regExp.Pattern = "\[/b\]" : str = regExp.Replace(str, "</strong>")
			regExp.Pattern = "\[i\]" : str = regExp.Replace(str, "<em>")                                             'Convert to ITALIC-style
			regExp.Pattern = "\[/i\]" : str = regExp.Replace(str, "</em>")
			regExp.Pattern = "\[u\]" : str = regExp.Replace(str, "<span style=""text-decoration: underline;"">")     'Convert to UNDERLINE-style
			regExp.Pattern = "\[/u\]" : str = regExp.Replace(str, "</span>")
			regExp.Pattern = "\[URL\]([^\[]*)\[/URL\]"
			str = regExp.Replace(str, "<A HREF=""http://$1"" TARGET=""_blank"">http://$1</A>")
		Set regExp = Nothing
	End If
	makeOutput = str
End Function

%>