Replace alt som ikke er tal

Det leteste er vist at lave en funktion som bruger regular expression som fjerner alt der ikke er et tal:


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



str = "a35a32fsdgsdfga433adsf3434¤%¤%¤%"
Response.Write kuntal(str)
%>

eagleeye: endnu en gang må jeg takke dig for dit svar :)

smid lige et svar...

Det var et svar :)

Du bør vente med takken til det virker. Prøv med
  str = "a35a32fsdgsdfg+++++a433adsf3434¤%¤%¤%"
som eksempel.

Det regulære udtryk bør derimod være:
  RegEx.Pattern = "[^\d]"


Men jeg kan ikke helt forstå hvad det skal bruges til (og er nok også ligeglad).
Hvis det er et indtastningsfelt ville det være langt mere fornuftigt at rapportere
tilbage, at der er noget galt, end blot at fjerne tegnene.