Lav linieskift til <br> (kun nogen steder)

Det burde ikke være så besværligt...

Mit forslag er følgende:

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

Respones.Write Skift("blablabla>" & vbCrlf & "blablabla" & vbCrlf & "blablabla")

- returnerer:

blablabla>blablabla
blablabla

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...

Jeg har fundet ud af det. Mit problem var paranteser i pattern
det skulle ændres til:

$search = "'([^<.*?>]\r\n)'";
eller modificeret til dit forslag:

$search = "'([^>\n]{1}[\r]{1})'";

Men tak for dit indlæg...

Altid :)