确定数字小数点

Question

我正在使用这个简单的VB.net应用程序，该应用程序允许用户输入一个十进制数字（例如-1.23），并且该程序列出了十进制左右两侧的数字以及该数字的实际位数。小数点左边和右边。 到目前为止，这是我的代码。

 Dim imput As String imput = txtEnterNumber.Text Dim D As Integer D = txtEnterNumber.Text.IndexOf(".") txtNumLeft.Text = imput.Remove(D) txtNumRight.Text = imput.Remove(0, D) txtDigitLeft.Text = CStr(imput.Substring(0, D).Length) txtDigitRight.Text = CStr(imput.Substring(D).Length) 

当我运行程序时，它包含小数点，该小数点表示小数点右边的位数以及小数点右边的位数。 为什么是这样？

谢谢！

Answer 1

尝试这个

Dim imput As String
imput = txtEnterNumber.Text
Dim D As Integer
D = txtEnterNumber.Text.IndexOf(".")
txtNumLeft.Text = imput.Remove(D)
txtNumRight.Text = imput.Remove(0, D + 1)
txtDigitLeft.Text = CStr(imput.Substring(0, D).Length)
txtDigitRight.Text = CStr(imput.Substring(D + 1).Length)

Answer 2

您的子字符串从小数点开始取一个子字符串，在SUBSTRING给+1位置将解决该问题。 另外，您可以使用SPLIT函数简化代码：

Dim num() as string = txtEnterNumber.Text.Split(".")
txtNumLeft.Text = num(0)
txtDigitLeft.Text = num(0).Length
If(num.Length > 1)Then 
  txtNumRight.Text = num(1)
  txtDigitRight.Text = num(1).Length
Else
  txtNumRight.Text = ""
  txtDigitRight.Text = 0
End If