Formatera textsträng!

2 svar · 306 visningar · startad av nakoz 19 apr. 2005

nakozMedlem sedan dec. 1999653 inlägg

Frågan19 apr. 2005 15:45#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 " " vill jag slänga in en "" för att
sedan vid radens slut slänga in ett till "" innan nästa " ".

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

19 apr. 2005 16:07#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

20 apr. 2005 09:04#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
%>