Question

利用ASP 去掉中文字，只留下数字。求帮助

利用ASP 去掉中文字，只留下数字。求帮助
正品实拍新款女装修身加厚双排扣大毛领可拆中长款羽绒棉衣棉服6029
新款正品韩版女装大翻领皮袖毛呢外套1107出货
正品冬季新款韩版通勤高领纯色麻花修身淑女毛衣连衣裙5087# -
如何从上面三个商品获得我想要的商品货号
6029
1107
5087
其它多余的中文字全去掉

Answer 1

function getdg(ms)
   dim i,t,s,ss
   i=0
   dim aa()
   for t=1 to len(mstr)
      s=mid(mstr,t,1)
   if asc(s)>=48 and asc(s)<=57 then
      ss=ss & s
   else
     if ss<>"" then
        redim preserve aa(i)
        aa(i)=ss
        i=i+1
           ss=""
     end if
 end if
   next
   getdg=aa
end function
mstr="正品实拍新款女装修身加厚双排扣大毛领可拆中长款羽绒棉衣棉服6029新款正品韩版女装大翻领皮袖毛呢外套1107出货正品冬季新款韩版通勤高领纯色麻花修身淑女毛衣连衣裙5087# -"
dim aa
aa=getdg(mstr)
for t=0 to ubound(aa)
   response.write aa(t) & ","
next

Answer 2

<%
str="正品实拍新款女装修身加厚双排扣大毛领可拆中长款羽绒棉衣棉服6029"
b=""
for i= 1 to len(str)
a=mid(str,i,1)
if IsNumeric(a)=true then
b=b&a
end if
next
response.write b
%>
先用MID，一个字一个字截取，然后判断是否为数字，如果是，就加到B上，最后输出B，就是字符串里包含的所有数字了。。。
可以写成函数
<%
Function midnumer(str)
b=""
for i= 1 to len(str)
a=mid(str,i,1)
if IsNumeric(a)=true then
b=b&a
end if
next
response.write b
end function
%>
调用的时候直接
<%=midnumer("字符串")%>

Answer 3

如果是有规则的 可以用 Split进行分离