[数据处理]请教CST VBA 字符串和数值的转化问题

如果是数值型字符串直接用 Eval 函数既可以转化为数值，但是如果字符串里面含有其他字符 怎么办？ m=9N^_  
比如Lstring=“10.2，”， 如何提取里 .. }"-r;i  
!BX62j\?  

未注册仅能浏览部分内容，查看全部内容及附件请先 登录 或 注册

以前用VBS在另一个软件里做过数字提取，但是具体的忘记了，刚才Baidu了一下，楼主可以试试下面这个是否可以？ 
I49l2>  
9LO.8Jy  
http://zhidao.baidu.com/question/287336399.html >Ug?O~-  
j22#Bw  
Sub ptnum() YD46Z~$  
Dim a, b Eqmv`Z [_  
a = InputBox("请输入字符串")   '输入字符窜 `bZU&A(`Be  
For i = 1 To Len(a) NQ!N"C3u  
If IsNumeric(Mid(a, i, 1)) Then b = b & Mid(a, i, 1)       '判断是否数字 uxC   
Next `x$}~rP&)!  
MsgBox b  '输出字符窜 ]Uu(OI<)  
End Sub

谢谢， 但是如果我要保留小数点呢？这段程序把小数点都去掉了啊？

呃。。那我再百度下。。。

找到了， 直接判断是逗号就去掉，其他保留， <^Nk.E  
呵呵 方法比较蠢。 ' X}7]y  
Pw= 3PvkL  
程序大致如下： 3q
"7K  
XoJgs$3B  
for i=1 to len(a) sYW[O"oNi  
if a（i)<>"," then $~=2{  
b=b&a(i)  qtzFg#  
end if QhCY}Q?X  

呵呵  反正这个问题解决了，谢谢各位老大的帮助啊