Найти количество значений до и после символа

Question

У меня есть следующая переменная. Мне нужно найти количество чисел до десятичной точки и после десятичной точки.

Dim x As Long = 123.456 

Я попытался преобразовать это в строку

Dim xstr As String = x.ToString(x) 
    Dim searchChar As String = "." 

Как я могу отобразить количество символов до десятичной точки. i.e. '3'

а также количество символов после десятичной точки. '3'.

Answer 1

Вы можете позвонить String.Split, например:

Dim x As Double = 123.456 
Dim xstr As String = x.ToString() 
Dim searchChar As String = "." 
Dim parts() As String = xstr.Split({searchChar}, StringSplitOptions.None) 
Dim firstLength As Integer = parts(0).Length 
Dim secondLength As Integer = parts(1).Length 

Answer 2

в пути:

xstr.Substring(xstr.IndexOf("."c) + 1) 

Но вам не нужно преобразовать в строку.

Dim y = x Mod 1 

Answer 3

Другим возможным решением, на основе String.Substring():

Dim x As Double = 123.456 

Dim xstr As String = x.ToString(NumberFormatInfo.InvariantInfo) 

Dim beforeDecimalSeparator As Integer = xstr.Length 

Dim afterDecimalSeparator As Integer = 0 

Dim decimalSeparatorPosition As Integer = xstr.IndexOf("."c) 

If decimalSeparatorPosition > -1 Then 

    beforeDecimalSeparator = xstr.Substring(0, decimalSeparatorPosition).Length 

    afterDecimalSeparator = xstr.Substring(decimalSeparatorPosition + 1).Length 

End If 

Answer 4

Вы также можете использовать IndexOf, чтобы решить эту проблему.

Dim x As Double = 123.456 
Dim xstr As String = x.ToString() 
Dim mIndex As Integer = xstr.IndexOf(".") 
Dim firstLength As Integer = mIndex; 
Dim secondLength As Integer = (xstr.Length - mIndex) -1