Блог

Главная - Вопросы по программированию - Подсчитайте целое число, разделенное запятой

Подсчитайте целое число, разделенное запятой

#vb.net

#vb.net

Вопрос:

[! [введите описание изображения здесь][1]][1] Это код, который отображает мои символы, разделенные пробелом. Как я могу заставить код разделять его с помощью «,»

итак, если ваша строка равна 25,16,300, результат должен быть 3.

 TxtMReadOnly.Text = String.Join(Environment.NewLine, intersectionList)

TxtNumberListCount.Text amp;= Environment.NewLine amp; TxtMReadOnly.Text.Where(Function(x) Not Char.IsWhiteSpace(x)).Count()

все, что я пробовал, не работает на скриншоте ниже. но возьмите число, например, если оно равно 55, и по возможности примите его за 1.

Первое: не сработало: работает только в первой строке, а не во всех строках текстового поля.

 TxtNumberListCount.Text amp;= Environment.NewLine amp; TxtMReadOnly.Text.Split(",").Count()

Второе: неправильно отображает значения.

 TxtNumberListCount.Text amp;= Environment.NewLine amp; TxtMReadOnly.Text.Where(Function(x) Not x = ",").Count()

Я отредактировал сообщение:

   For j = 0 To TxtCheckList.Text - 1
            Dim intersectionList As New List(Of String)()
            For i As Integer = 1 To TxtCheckDraws.Text
                Dim firstBoxList = TxtBoxIntDraws.Lines(i).Split(",")
                Dim secondBoxList = TxtNumberListScan.Lines(j   1).Split(" ")
                intersectionList.Add(String.Join(",", secondBoxList.Intersect(firstBoxList)))
            Next
            TxtMReadOnly.Text = String.Join(Environment.NewLine, intersectionList)
            TxtNumberListCount.Text amp;= Environment.NewLine amp; TxtMReadOnly.Text.Where(Function(x) Not Char.IsWhiteSpace(x)).Count()
            Try

Комментарии:

1. Пожалуйста, поясните, нужен ли вам код для подсчета всех символов, отличных от «,»? так что, если ваша строка является 25,16,300 результатом, должно быть 3?

2. ДА. Конечно. Именно это и нужно.

3. Использование Not во втором коде неверно, вместо этого используйте x <> "," , но результатом будет количество всех цифр, а не количество чисел, поэтому .Split(",").Count должно работать нормально.

4. Я не понимаю. можете ли вы дать мне именно то, что я должен заменить? позвольте мне просто посчитать символы, но я не хочу считать свою запятую. пока я не найду что-нибудь получше…

5. .Text.Split(",").Count должно сработать с вами, если все остальное в порядке, пожалуйста, обновите свой вопрос, чтобы опубликовать образец входного текста (строки чисел) и блок кода, который использовался для подсчета чисел в каждой строке, чтобы это помогло выяснить, в чем проблема.