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

sDuma 2004-11-27 10:22:12
假如一个变量如下:

abc = 123abc456def

(abc是随机生成的)

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

请问有没有这样的函数?如果没有能否提供一个?
...全文
51 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
还可以用正则表达式
js
abc ="123abc456def"
abc=abc.replace(/\D/g,'')
document.write(abc)
回复
ygjwjj 2004-11-27
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
回复
ljupin 2004-11-27
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
回复
Drowning 2004-11-27
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)
回复
sdts 2004-11-27
没有
自己写一个吧

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

没有实验 应该差不多了
回复
ljupin 2004-11-27
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
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-27 10:22
社区公告
暂无公告