Fjerne alt andet end tal i en tekststreng

der ville det nok være smart at bruge et regulært udtryk tror jeg - men det er desværre ikke min stærkeste side :o)

strTekst1 = "fhasfkj82nflkj743"
function removeText(strTekst)
for i = 1 to len(strTekst) - 1
    if isnumeric(MID(strTekst, i, 1)) then
        nTemp = nTemp & mid(strTekst, i, 1)
    end if
    removeText = nTemp
next
end function
response.write removeText(strTekst1)

HOV:
strTekst1 = "fhasfkj82nflkj743"
function removeText(strTekst)
for i = 1 to len(strTekst)
    if isnumeric(MID(strTekst, i, 1)) then
        nTemp = nTemp & mid(strTekst, i, 1)
    end if
    removeText = nTemp
next
end function
response.write removeText(strTekst1)

Den 'regulære' måde:

strTekst1 = "fhasfkj82nflkj743"

Set re = New RegExp
re.Global = True
re.Pattern = "[^\d]"

Response.Write re.Replace(strTekst1, "")

dejligt med regulært udtryk...må til at lære det ;o)

Tak for hjælpen. Kom med et svar så får i nogle poeng.

Herligt at lære noget nyt :-)
Et svar - så må du jo selv om hvordan du fordeler pointene.

mick >> lukketid ? ;o)

Jep, lukketid :). Tak for hjælpen.