Script: Indsætter mellemrum foran stort bogstav

Det kan gøres med regular expression, eksempelvis sådan her hvor det er lagt i en function:


Function addSpace(str)
  Dim RegEx
  Set RegEx = New RegExp
  RegEx.Global=true 
  RegEx.Pattern = "([A-ZÆØÅ])"
  addSpace = Trim(RegEx.Replace(str," $1"))
End Function


str = "MinSuperKage"
Response.Write addSpace(str)

Takker :-D