请教一个关于字符串的问题

cnqinxc

一个金额式的字符串形如12,456.50，现在我想得到12456.50，如何来实现呢，当然可能有更复杂的形式，如123,156,789.50，请教各位

zte_boy

Function GetMoney(str)
   Dim tempstr
   tempstr = ""
   myarray = split(str , ",")
   For i = LBound(myarray) to UBound(myarray)
           tempstr = tempstr&myarray(i)
   Next
   msgbox(tempstr)
End Function

Call GetMoney(str)

lantianwei

忘记处理一个点号
》看错了， 看来最近是太累了

[ 本帖最后由 lantianwei 于 2008-5-8 19:15 编辑 ]

wyy83

2楼的正解!

Simatu

不错不错
方法收藏了~

xiaonan

直接用FormatNumber函数就能实现

Dim s
s="123,156,789.50"
s=FormatNumber(s,2,0,0,0)
msgbox s

dengzhy

楼上的是牛人啊!
哦哦哦哦哦 , 原来是版竹!

Simatu

原帖由 xiaonan 于 2008-5-8 09:27 发表
直接用FormatNumber函数就能实现

Dim s
s="123,156,789.50"
s=FormatNumber(s,2,0,0,0)
msgbox s

顶！

zte_boy

呵呵，忘记了vbs还有FormatNumber这个方法，还是不够熟悉啊

walker1020

还是对VBScript 了解地太少，还是看QTP 的帮助文件看的次数太少。

hsjzfling

不错，方法都很好~
FormatNumber方法用于处理多数这类"Get Money Value"的问题还是比较方便.
而若是对于多币种的情况，则2楼的思路比较适用，因为有些币种不是用","来做分隔符的~将","用传入参数替代就可以很好的处理这个问题~

gy21st

msgbox CDbl("123,156,789.50")

cnqinxc

谢谢各位的解答了，我也发现有一个方法也挺好用的，大家可以试一下，
Replace(expression, find, replacewith[, start[, count[, compare]]])
这个方法 可以用replace("12,456.50",",","")
具体的使用方法可以到QTP help 里搜索replace 即可找到

hsjzfling

原帖由 gy21st 于 2008-5-8 11:50 发表
msgbox CDbl("123,156,789.50")

一语惊醒梦中人

zte_boy

原帖由 gy21st 于 2008-5-8 11:50 发表
msgbox CDbl("123,156,789.50")

好方法， 简单，赞一个：）

walker1020

原帖由 gy21st 于 2008-5-8 11:50 发表
msgbox CDbl("123,156,789.50")

各位有没有实际运行一下？ 运行后 ，我得到的结果是123156789.5

cnqinxc

引用:
原帖由 gy21st 于 2008-5-8 11:50 发表
msgbox CDbl("123,156,789.50")
各位有没有实际运行一下？ 运行后 ，我得到的结果是123156789.5

我运行的时候也是这样的，请问CDbl("123,156,789.50")  FormatNumber(s,2,0,0,0)
这两个方法具体是什么意思，有什么作用

walker1020

回楼上的朋友，关于CDbl 和 FormatNumber 这两个函数的用法，在 QTP的帮助里面写得很清楚，所以没有人来回答你。

heqingbluesky

原帖由 walker1020 于 2008-5-12 23:32 发表


各位有没有实际运行一下？ 运行后 ，我得到的结果是123156789.5

我也运行了一下，估计在转换的时候，做了四舍五入，所以0被干掉了。