webForumDet fria alternativet

Formatera textsträng!

2 svar · 306 visningar · startad av nakoz

nakozMedlem sedan dec. 1999653 inlägg
#1

Hej där.

Nu har jag ett problem.
Har en massa texter som jag ska formatera till HTML.
Radbrytningarna var lätt fixat med en replace, men nu
tänkte jag även ordna lite med rubrikerna.

Så;

Efter varje "<br><br>" vill jag slänga in en "<b>" för att
sedan vid radens slut slänga in ett till "</b>" innan nästa "<br>".

Har provat söka lite, för jag vet att liknande har varit uppe
tidigare, men jag söker förmodligen på fel saker.

Hjälp tack.

GuffaMedlem sedan juni 2004533 inlägg
#2

Du kan använda regular expression för att konstruera uttryck som beskriver det du vill hitta, och göra ersättningar.

With New RegExp
	.Global = True
	.IgnoreCase = True
	.Pattern = "(<br><br>)(.+?)(<br>)"
	strText = .Replace(strText, "$1<b>$2</b>$3")
End With

(Forumet lägger in mellanslag i koden som inte ska vara där. Det ska inte vara några mellanslag i mönstret.)

nakozMedlem sedan dec. 1999653 inlägg
#3

Kanon!
Nu är jag på fötter igen. :)

Bifogar "hela" koden om någon annan längre fram är intresserad av en textformaterare.

<%
Dim strText
strText = Replace(Request.Form("strText"),VbCrLf,"&lt;br&gt;")

With New RegExp
  .Global = True
  .IgnoreCase = True
  .Pattern = "(&lt;br&gt;&lt;br&gt;)(.+?)(&lt;br&gt;)"
  strText = .Replace(strText,"$1&lt;b&gt;$2&lt;/b&gt;$3")
End With

Response.Write strText
%>
245 ms totalt · 3 externa anrop · v20260731065814-full.fb544a5a
127 ms — hämta forumlista (db)
115 ms — hämta statistik (db)
125 ms — hämta tråd, inlägg och bilagor (db)