Проверка количества определенных символов в строке

@leontbf · Регистрация: 13.07.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте, мне надо проверять текст в TextBox1.Text, задача такая в начали каждой строчки ест символ “*” и посередине ест тоже символ “*”, нужен код который проверял что в каждой строке ест символ два символа “*”, если только один символ то поставить в самом конце той строчке символ“*”.
Вот пример.

*штанга* вес 100кг
*штанга 2* вес 60кг
*штанга 3 вес 70кг

А программа должна выдать вот так.

*штанга* вес 100кг
*штанга 2* вес 60кг
*штанга 3 вес 70кг*

Язык программирования Visual Basic 2010
Заранее благодарю.

@Linoge · 14.07.2012, 17:54

Если vb2010 то это в другой раздел vbnet

Что делать если вообще нет *???

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim strText
strText = Split(Text1.Text, vbCrLf)
Text1.Text = ""
For i = LBound(strText) To UBound(strText)
    t = InStr(1, strText(i), "*")
    If t = 0 Then GoTo nxt ' если нет * то просто копирует строку
    t = InStr(t + 1, strText(i), "*")
    If t = 0 Then strText(i) = strText(i) & "*"
nxt:
    Text1.Text = Text1.Text & strText(i) & vbCrLf
Next

@leontbf · 14.07.2012, 19:28 **[ТС]**

Не сработал код программы зависла и в visual studio появилось сообщения.

“ Значение не может быть неопределенным.
Имя параметра: Аргумент "Array" имеет значение Nothing.”

И выделилась такая строка желтым цветом.

VB.NET
1
For i = LBound(strText2) To UBound(strText2)

А в принципе это просто усовершенствуя программы Заменить определённый символ один раз в каждой строке
То ест код расположен по одной кнопки, я программном уже поставил в начали строки символ “*”
Но в Textbox.text может попасть вот такая строчка
*hhhhhhh
А мне надо чтоб она сделалась вот так.
*hhhhhhh*
“Что делать если вообще нет *???”
Дело в том что * в начали каждой строке будит.
Спасибо за код.

@Alex77755 · 15.07.2012, 12:54

Подсчитай сколько "*" в строке!! Если одна - добавь в конце ещё одну.
Подсчитать можно заменив "*" на "" и сравнив длины исходной и получавшеся после замены

Добавлено через 29 минут

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim S() As String
        S = Split(TextBox1.Text, vbNewLine)
        For J = 0 To UBound(S)
            S(J) = IIf(Mid(S(J), 1, 1) = "*", S(J), "*" & S(J))' "*" в начале строки
            S(J) = IIf(Len(S(J)) - Len(Replace(S(J), "*", "")) = 1, S(J) & "*", S(J))' "*" в конце строки
        Next
        TextBox1.Text = Join(S, vbCrLf)
    End Sub
End Class

@Darth Coder · 16.07.2012, 15:22

Сообщение от Alex77755

Подсчитать можно заменив "*" на "" и сравнив длины исходной и получавшеся после замены

Не легче ли использовать indexOf и LastIndexOf?

VB.NET
1
2
3
4
5
Dim S() As String=TextBox1.Text.Split(vbCrLf)
        For i = 0 To s.length-1
           if s(i).indexOf("*")=s(i).lastindexof("*") then s(i) &= "*"
        Next i
        TextBox1.Text =join(s, vbCrLf)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@leontbf 2 / 2 / 1 Регистрация: 13.07.2012 Сообщений: 31

	Проверка количества определенных символов в строке 14.07.2012, 12:22. Показов 4382. Ответов 4 Метки нет (Все метки) Здравствуйте, мне надо проверять текст в TextBox1.Text, задача такая в начали каждой строчки ест символ “” и посередине ест тоже символ “”, нужен код который проверял что в каждой строке ест символ два символа “”, если только один символ то поставить в самом конце той строчке символ“”. Вот пример. штанга вес 100кг штанга 2 вес 60кг штанга 3 вес 70кг А программа должна выдать вот так.* штанга вес 100кг штанга 2 вес 60кг штанга 3 вес 70кг Язык программирования Visual Basic 2010 Заранее благодарю. 0