如何将字符串11，111，111.00变为11111111

Question

？
？？
？？？

Answer 1

Private Sub Command1_Click()
 i = Format("11，111，111.00", "")
 Print i
End Sub

Answer 2

up orPrivate Sub Command1_Click()
  i = "11,111,111.00"
    stra = Replace(i, ",", "")
    stra = Replace(stra, "0", "")
    stra = Replace(stra, ".", "")
    Print stra
End Sub笨方法啊！

Answer 3

好象vb中有一个字符替换函数的.
dim strTmp as string
dim i as longstrTmp="11,111,111.00"replace(strtmp,",",chr(0))
strTmp=mid(strtmp,0,instr(strtmp,".")-1)i=val(strtmp)

Answer 4

为什么不可以
dim iTemp
dim strTemp
strTemp = "11,111,111.00"
iTem = Clng(stTemp)
strTemp = CStr(iTemp)
不久完成了么

Answer 5

Dim s As String, arrstr() As String, j As Integer, s1 As String
s = "11，111，111.00"
arrstr = Split(s, "，")
For j = 0 To UBound(arrstr)
    s1 = s1 + arrstr(j)
Next
s1 = Left$(s1, 8)

Answer 6

Dim x As String
Dim str As String
 str = "1,111,111.00"
 x = CStr(CDbl(str))
 Debug.Print x