为什么String.Replace（）不起作用

[bronica_chen]

我想请教一下，我的程序里面将“,”替换成“.”的时候不起作用
用VB2003.NET
比如我的值是97.08297932597

Dim sCalBin as String
Dim sCalVal as Double
Dim sInQty as integer

            sCalVal = bin(CType(sCalBin, Int32) - 1) / sInQty * 100
                            //sCalBin是从数据库拿的数据
                            temp = sCalBin.Split(","c)
                            sCalVal = 0
                            For K = 0 To temp.Length - 1
                                sCalVal = sCalVal + bin(CType(temp(K), Int32) - 1)
                            Next
       sCalVal = sCalVal / sInQty * 100   //这步sCalVal=97.08297932597  但系统自动转化成97,08297932597,奇怪的要死，只能再写下面的语句卡这个。  
                            If Not sCalVal.ToString.IndexOf(",") = -1 Then
                                sCalVal = CType(sCalVal.ToString.Replace(","c, "."c), Double)   //现在执行这步的时候，sCalVal=9708297932597.0    Replace根本没起任何作用。
                            End If
                    

请教一下，该如何解决这个棘手的问题。谢谢！

[e289056]

试试Format(sCalVal,"0.00000000000")'要保留的小数位

[wwhhg]

分开写试试看
Dim Str as String
Str=sCalVal.ToString.Replace(",", ".")
sCalVal = CType(Str, Double)
......

[wwhhg]

[Quote=引用 2 楼 wwhhg 的回复:]
分开写试试看
Dim Str as String
Str=sCalVal.ToString.Replace(",", ".")
sCalVal = CType(Str, Double)
......
[/Quote]
分细一些
Dim Str1 , Str2 as String
Str1=sCalVal.ToString
Str2=Str.Replace(",", ".")
sCalVal = Val(Str2)

[兔子-顾问]

楼上说的没错。
你这句
CType(sCalVal.ToString.Replace(","c, "."c), Double)
字符串怎么能直接类型转换成数字呢，需要用
sCalVal = Double.Parse(sCalVal.ToString.Replace(","c, "."c))

[Forrest23]

sCalVal = Double.Parse(sCalVal.ToString.Replace(",", "."))

[Forrest23]

我很奇怪 这个 sCalVal = sCalVal / sInQty * 100 //这步sCalVal=97.08297932597 但系统自动转化成97,08297932597 这个会转化成这个吗？ sCalVal，sInQty的值分别是什么 能说下嘛

[cuike519]

全角还是半角搞清楚了么？

[bronica_chen]

[Quote=引用 6 楼 forrest23 的回复:]
我很奇怪 这个 sCalVal = sCalVal / sInQty * 100 //这步sCalVal=97.08297932597 但系统自动转化成97,08297932597 这个会转化成这个吗？ sCalVal，sInQty的值分别是什么 能说下嘛
[/Quote]

这样啊，sCalBin="1,10"
sInQty是个整数
我前面有段代码是将sCalBin以逗号分开的，截取1和10两个数据，然后找到对应的相加的。

就这我发的代码，sCalVal=3428 , sInQty=3531

[bronica_chen]

[Quote=引用 7 楼 cuike519 的回复:]
全角还是半角搞清楚了么？
[/Quote]

全角半角没问题，这个我检查过了。