[开_28] 如何取出字符串中的数字[已总结] ★★★★

yigepure

以下是引用apolloh在2005-5-25 13:22:00的发言：

先给一个文本中间没有点的解法，这是昨天做的。看了Shangyu的加“X”后有了新想法，待会结合“.”的问题再来做一个。

另，如果考虑这个“a.b.123我.的12.564wii123”情况，是不是也该考虑“wii12..3”的情况，那么是不是没完了？

修正一下，发现也有楼下说的错误

呵呵，我又修正了一下，考虑了最前面的点

好思路呀:)

那天晚上我想的第二个公式与老兄的思路一致,可惜我就是方法用错了.结果为了它,我竟然定义了将近有8个名称.现在看到老兄的公式真是汗颜.

[此贴子已经被apolloh于2005-5-25 14:22:06编辑过]

yigepure

以下是引用Long_III在2005-5-25 13:37:00的发言：

如果出现连续点，可以在二楼的代码处加一句

For i = Len(s) To 2 Step -1 s = Replace(s, Application.Rept(".", i), ".") Next

对于这个题目，我觉得我越来越离题了！

呵呵,不断超越是我们一直追求的东西呀:)

Long_III

呵呵，不是这个意思

而是，大家都在讨论函数解法的时候，我一个人却在这里编程！我是不是很另类啊？！～

yigepure

以下是引用Long_III在2005-5-25 14:03:00的发言：

呵呵，不是这个意思

而是，大家都在讨论函数解法的时候，我一个人却在这里编程！我是不是很另类啊？！～

不会的.我希望有更多的这种好的方便的自定义的函数的出现

看到函数解决之困难.我们会发现VBA真是一个好东西的:)

谢谢了:)

Long_III

因为学了VBA，我对函数的学习兴趣大打折扣

因为很专业很专业的函数解法也许在VBA中只是一个简单的问题，而学VBA的基础又不难，所以现在看到函数测试题总会想到VBA，所以本来较差的函数基础也就更烂了！

yigepure

数字中间的点号如果超过一个以上真是难办呀:)

想的头痛呀:)

如11...23我只能取出0.23并不是两个数据

不知大家有没有什么好的方法:)

yigepure

回龙兄.各有千秋.它们不可分割

另:老兄的函数功底大家可是都知道的哟,不要太谦虚了哟:)

shangyu

以下是引用apolloh在2005-5-25 13:22:00的发言：

另，如果考虑这个“a.b.123我.的12.564wii123”情况，是不是也该考虑“wii12..3”的情况，那么是不是没完了？ 修正一下，发现也有楼下说的错误，不过应该是前后都带点的

还没改好啊。。。

还有1.2.3.4这种情况。。。继续。。。

我坚决不改了，（在if中多一些判断）。

[em11][em05][em09]

呵呵，我也觉得考虑点的问题，有点超出测试本身的初衷了，建议还是回到原题的问题上来解题，比较有意义。也就是不考虑没有意义的数字串和夹带点的文字串存在的情况。：）——apolloh

[em04]

[此贴子已经被apolloh于2005-5-25 14:31:30编辑过]

apolloh

以下是引用shangyu在2005-5-25 14:26:00的发言： >

还没改好啊。。。

还有1.2.3.4这种情况。。。继续。。。

我坚决不改了，（在if中多一些判断）。

[em11][em05][em09]

呵呵，我也觉得考虑点的问题，有点超出测试本身的初衷了，建议还是回到原题的问题上来解题，比较有意义。也就是不考虑没有意义的数字串和夹带点的文字串存在的情况。：）——apolloh

[em04]

结合你的加“X”方法和我的加“0&"方法，修改了一下，简单多了。但是没有去考虑没有意义的数字串和夹带点的文字串存在的情况

8FFfIHTP.rar (3.54 KB, 下载次数: 167)

2005-5-25 15:24 上传

点击文件名下载附件

[此贴子已经被作者于2005-5-25 15:21:07编辑过]

jimcooper

建议用ASSII码先转换，再去除>57,<45的范围。