求一个函数!!

[8212bb]

求一个函数:比如对于字符串“100两银子”或“3000两黄金”，怎样能从中提取出数值100和3000
谢谢

[ttt2]

function qz(a)
qz=mid(a,1,len(a)-6)

end function

[ttt2]

function qz(a)
qz=mid(a,1,len(a)-3)

end function

[Tonglu]

如果后面不是三个汉字而是四个五个不确定呢？

[nchen123]

<%
a = "3000两黄金"
for i = 1 to len(a)
if not IsNumeric(Left(a,i)) then
exit for
end if
next

if i > 1 then
result = left(a,i - 1)
else
if IsNumeric(a) then
result = a
else
result = ""
end if
end if

response.write result
%>

[pazll]

试试这个：
function getStrNum(str)
dim leng:leng=0
for i = 1 to len(str)
if isnumeric(mid(str,i,1))=true then
leng=leng+1
else
exit for
end if
next
getStrNum=left(str,leng)
end function

[pazll]

response.write getStrNum("100两黄金白银") '输出100

[arcow]

同意inelm(.NET---迷茫ing...)

[cloudchen]

用正则表达式

<SCRIPT LANGUAGE="VBScript">
document.write regExp("100两银子")&"<BR>"
document.write regExp("3000两黄金")

Function regExp(str)
Dim regEx
Set regEx = new RegExp
regEx.pattern = "\D"
regEx.Global = true
regExp = regEx.replace(str,"")
End Function
</SCRIPT>