从字符串中提取数字,看看能不能取得新的突破?(又新增到2题,带有多负号的字串)

wshcw

第一题:公式长度不再限制,重在参与,包括能处理空值.

字符串	结果
nbe12.368mnbnbr	12.368
冰箱5台	5
mny-2.358ny	-2.358
muy0000128nm	0000128
n-258cm	-258
021.3698	021.3698

第二题:经FDD坛友提议,要适用多负号的提取,因此我补充多负号的字符串,作为第二题:公式长度不再限制,重在参与,请大家多多发言.

字符串	结果
nbe12.368mnbnbr	12.368
冰箱5台	5
mny-2.358ny	-2.358
muy0000128nm	0000128
n-258cm	-258
21.3698	21.3698
abc00015998.36km	00015998.36
mkunbt-2198.361kg	-2198.361
895人/月	895
ABC总公司利润--本年利润: -6.57 亿	-6.57
D公司(中国)当前盈利-2.38亿RMB	-2.38
当前时间2008年	2008
字符串(无数字)
字符串 - 无数字
邯郸-北京火车票价为:63.00元	63.00
B-C Earnings this year: -0.25Billion	-0.25
B-C Earnings this year: 0.25Billion	0.25
ID证：130702197611280312	130702197611280312
手机：13520189672	13520189672
电话：008631053820339	006831053820339

[ 本帖最后由 wshcw 于 2008-11-9 11:38 编辑 ]

shaowu459

好像突破有难度哈，关注……

makelot

一周以前各位高手已经帮助解决了，呵呵！见
http://club.excelhome.net/thread-365934-1-1.html

[ 本帖最后由 makelot 于 2008-11-6 16:37 编辑 ]

wddn

下午试解：84字符，达不到要求。

makelot

问题由山菊花版主最终搞定，此程序适应力比较强，代码如下：

Public Function 数字提取(cTxt As String)

    Dim sz$, x$

    For i = 1 To Len(cTxt)
        x = Mid(cTxt, i, 1)
        If (x = "％" Or x = "%") And IsNumeric(sz) Then
            sz = sz / 100
            Exit For
        ElseIf x = "-" Then
            sz = "-"
        ElseIf x = "." Or IsNumeric(x) Then
            sz = sz & x
            If sz <> "-" And Not IsNumeric(sz) Then sz = ""
        Else
            If IsNumeric(sz) Then Exit For
            sz = ""
        End If
    Next

    If IsNumeric(sz) Then
        If Left(sz, 1) = "." Then sz = 0 & sz
        数字提取 = sz
    Else
        数字提取 = ""
    End If

End Function

以上的得到的结果只是文本格式，若想要数字格式，把其中的“数字提取 = sz ”改为“数字提取 = Val(sz)”就行。

wshcw

原帖由 makelot 于 2008-11-6 16:49 发表
问题由山菊花版主最终搞定，此程序适应力比较强，代码如下：

Public Function 数字提取(cTxt As String)

    Dim sz$, x$

    For i = 1 To Len(cTxt)
        x = Mid(cTxt, i, 1)
        If (x = "％" ...

看了你引用的链接主题,说实话,我不满意,公式解决还是老套路,没有创新,公式字符数也达不到我的要求,VBA我不懂,不敢评论.

makelot

不好意思，刚看到“公式长度70字左右”的要求

[ 本帖最后由 makelot 于 2008-11-6 23:41 编辑 ]

shaowu459

赫赫，只做到120个字符，还是只针对1楼提供的数据。70个字符不太容易……
搂主可以把自己思路的公式发上来看一下，参考参考，赫赫

zhanhewang

如何将excel中的文本删除，只保留原数字？
复制到Word中，替换方法，查找[!0-9]，勾选“使用通配符”，全部替换，再复制回Excel（选择性粘贴文本）。

icongmu

哦，wshcw老师的题目又在这里出现了，呵呵，顶一下。想看看在公式方面，home里有没有人造诣比轻舟老师高一些。