Replace alle andre tegn end tal

function Myreplace(funkText)
dim returVal, Rx
  returVal = funkText
  Set Rx = New RegExp
  Rx.Global = True
  Rx.IgnoreCase = True
  Rx.Pattern = "\D"
  returVal = Rx.Replace(returVal, "%")
  Myreplace = returVal
end function

response.write Myreplace("ssk x#¤%¤dn34k jn34kjb34kkj43b")

Uha, kom lige til at se at jeg faktisk har brug for at den smider et % imellem hvert eneste tal. Hvordan gør man dog det?

Kan du give et eks på, hvor en tekst ser ud, og hvad resultatet skal være??

Jada...

En tekst: 24x291.38/293

resultat: 2%4%2%9%1%3%8%2%9%3

function Myreplace(funkText)
dim returVal, Rx
  returVal = funkText
  Set Rx = New RegExp
  Rx.Global = True
  Rx.IgnoreCase = True
  Rx.Pattern = "\D"
  returVal = Rx.Replace(returVal, "")
  Rx.Pattern = "(\d)"
  returVal = Rx.Replace(returVal, "$1%")
  Myreplace = returVal
end function

Der er godt nok en ekstra % tilsidst, men den kan fjernes med et left() kald.