===== 一个很简单的问题! ======

[sDuma]

假如一个变量如下:

abc = 123abc456def

(abc是随机生成的)

我想只保留里面的数字,删掉其它的字符(汉字、英文....)。

请问有没有这样的函数？如果没有能否提供一个？

[ljupin]

abc是随机生成的?晕

笨方法,暂时没想到其他方式:
Dim abc,s
abc = "123abc456def"
for i = 0 to (len(abc)-1)
if IsNumeric(abc(i)) Then s = s&abc(i)
next

Response.Write s

[sdts]

没有
自己写一个吧

s=123abc456def
function prostr(stri)
dim r
r=""
for i=0 to 9
for k=1 to len(stri)
if strcomp(mid(stri,k,1),cstr(i),1) = 0 then
r=cstr(i)&r
end if
next
next
prostr=r
end function

没有实验 应该差不多了

[Drowning]

function getNum(str)
result=""
for i=1 to len(str)
s=mid(abc,i,1)
if isnumeric(s) then
result=result+s
end if
next
getNum=result
end function

abc="123abc456def"
getNum(abc)

[ljupin]

Sorry

Dim abc,s,ss
abc = "123abc456def"
for i = 1 to (len(abc))
ss = mid(abc,i,1)
if IsNumeric(ss) Then s = s&ss
next
Response.Write s

[ygjwjj]

Dim abc,s,tmp
abc = "123abc456def"
for i = 0 to (len(abc)-1)
tmp= mid(abc,i+1,1)
if IsNumeric(tmp) Then s = s&tmp
next

Response.Write s

[叮咚叮咚叮叮咚]

还可以用正则表达式
js
abc ="123abc456def"
abc=abc.replace(/\D/g,'')
document.write(abc)