Function Skift(Streng) Set Regex = New RegExp Regex.Global = True Regex.IgnoreCase = True Regex.Pattern = "[^>\r\n]{1,1}[\r\n]{1,1}" Set Matches = Regex.Execute(Streng) For Each Match In Matches Match = Match.Value Streng = Replace(Streng, Match, Left(Match, 1) & "<br>") Next Skift = Streng End Function
Det så lovende ud, men når jeg har oversat dit VB-script til PHP, snupper stadig sidste bogstav i linien... Måske er den tekst jeg hiver ud af databasen med \n og ikke \n\r. Jeg undersøger...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.