19. januar 2004 - 09:11Der er
6 kommentarer og 1 løsning
Hjælp til RegExp ?
Hejsa jeg fandt følgende function der skulle kunne lave alle html tags om til lower case men hvad skal der stå ved ???
Function fnLowerCaseHTML(strHTML) Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<(.|\n)+?>" strOutput = ??? fnLowerCaseHTML = strOutput Set objRegExp = Nothing End Function
Function fnLowerCaseHTML(strHTML) Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<(.|\n)+?>"
Set arr = objRegExp.Execute(strHTML) For Each link In arr strHTML = Replace(strHTML, link, LCase(link)) Next
fnLowerCaseHTML = strHTML Set objRegExp = Nothing End Function
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.