Konverter streng til tal

<%
tal = "2,000,000"
tal = Replace(tal, ",", "")
Response.Write(tal)
%>

Den skal også kunne tage andet end kommaer...

Det virker!

Hvis det er noget der skal trækkes ud fra en database, kan du bruge bruge dette:

<%
tal = rs("tal")
tal = Replace(tal, ",", "")
Response.Write(tal)
%>

Hvis det er tekst/tal skal du bruge denne:

<%
tal = "2,000,000"
tal = Replace(tal, ",", "")
Response.Write(tal)
%>

Hvis du vil lave andre ting om skal du lave flere linjer med dette:

tal = Replace(tal, "Det-der-skal-skiftes-skal-stå-her", "det-det-skal-skiftes-til-skal-stå-her")

%>

<%
tal = "2,000,000"

'replace funktionen bytter ting om
tal = Replace(tal, ",", "")

'her bliver b byttet med a
tal = Replace(tal, "b", "a")

Response.Write(tal)
%>

svar fra mig til point hvis det kan bruges :-)

hvis du ikke kan lave det kan du skrive hvilke tegn der skal fjernes / skiftes.

så laver jeg det.

Men hurtigt, for køre snart til sverige

Alle tegn pånær 0123456789 skal fjernes.

Du skal bruge RegExp:

dim RX, tmp
tmp = "DKK 2.128,13 dfkvf"
Set Rx = New RegExp
Rx.Global = True
Rx.IgnoreCase = True
Rx.Pattern = "\D"
Response.write Rx.Replace(tmp, "")

<%
Function kunfortal(str)
Dim RegEx
Set RegEx = New RegExp
RegEx.Global=true
RegEx.Pattern = "([^\d+])"
kuntal = RegEx.Replace(str,"")
End Function
Response.Write kunfortal("bogstaverogtegn,2153..hehe")
%>

Denne anden var der fejl i MEN DENNE HER VIRKER:
<%
Function kunfortal(str)
Dim RegEx
Set RegEx = New RegExp
RegEx.Global=true
RegEx.Pattern = "([^\d+])"
kunfortal = RegEx.Replace(str,"")
End Function
Response.Write kunfortal("bogstaverogtegn,2153..hehe")
%>