Function HTMLrep(Streng) HTMLrep = Streng If Not IsNull(HTMLrep) Then Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = "[^ \n]{15,15}" Set Matches = regEx.Execute(HTMLrep) For Each Match in Matches HTMLrep = Replace(HTMLrep, Match.Value, Match.Value & " ") ' Indsæt mellemrum efter 15 tegn Next HTMLrep = Server.HTMLencode(Trim(HTMLrep)) End If End Function
Ja, lidt ;) slapstick ---> Hvis 15 tegn er for langt, tror du så ikke også 30 er det? :=)
Synes godt om
Ny brugerNybegynder
Din løsning...
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.