Plocka bort allt utom siffror

[Jakob Nanneson]

Hur gör jag för att plocka bort allt som inte är siffror ur en sträng?

[Thomas Tydal]

Finns säkert andra sätt, men i alla fall:

 

function GetDigits(str)

result = ""

for i = 1 to len(str)

c = mid(str, i, 1)

if asc© < 58 and asc© > 47 then

result = result & c

next

GetDigits = result

end function

 

 

[xyzz]

str = "4354ksdfj klds3243 f"

Set regexp = New RegExp

regexp.Pattern = "\D+"
regexp.Global = True

str = regexp.Replace(str, "")  

 

[Jakob Nanneson]

Så knepiga funktioner, är det verkligen detta som är det enklaste sättet? Är regexp den jag ska köra med?