Ta bort allt som inte är siffror?

Hittade den här funktionen:

Private Function RemChr(byVal string, byVal remove)
    Dim i, j, tmp, strOutput
    strOutput = ""
    for j = 1 to len(string)
        tmp = Mid(string, j, 1)
        for i = 1 to len(remove)
            tmp = replace( tmp, Mid(remove, i, 1), "")
            if len(tmp) = 0 then exit for
        next
        strOutput = strOutput & tmp
    next
    RemChr = strOutput
End Function

Input = "Blasjkda9812lj12kbd98"
Disallowed = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvXxYyZzÅåÄäÖö"
myString = RemChr(Input, Disallowed)

Det kanske finns något enklare?

Du kan ju kolla om det är siffror med IsNumeric(), räcker inte det?

Din kod funkar ju inte om det är andra tecken än bokstäver...

Du har rätt... men IsNumeric berättar ju bara om det är siffror, den rensar inte allt annat som inte är siffror... behöver ha bort siffrorna för att få in det i min databas!

Varför är det annat än siffror då? :)

jag hade nog börjat med att söka på wF ;) frågan har varit uppe ett tag tidigare.

går enkelt att lösa med RegExp:

Function JustDigit(str)
	Set objRegExp = New regexp
	objRegExp.Global = true
	objRegExp.IgnoreCase = true
	objRegExp.Pattern = "[\D]+"
	str = objRegExp.Replace(str,"")
	JustDigit = str
end function

voigt, har ju redan sökt =) Hittade bara PHP-lösningar! :r

oskars skrev:

voigt, har ju redan sökt =)

sök på mitt namn :P men hoppas det hjälpte med koden ovan... den ska plocka ut allt som inte är ett tal (0-9) och ersätta det med "" (tom sträng)...

vogge, okej! ;)

Tusen tack hur som helst! :)