Fjerner bogstaver

Hvis du vil beholde tal kan det laves med regular expression, her en funktion som kun trækker tal ud af en streng:

Function kuntal(str)
  Dim RegEx
  Set RegEx = New RegExp
  RegEx.Global=true 
  RegEx.Pattern = "([^\d+])"
  kuntal = RegEx.Replace(str,"")
End Function


Response.Write kuntal("hej med 1234,dig")

Takker... lige det jeg ledte efter