Типовые задачи на обработку строк

Анализ символьных строк

Пример 1. Ввести строку символов. Определить:

- количество цифр в строке;

- есть ли в строке одинаковые символы;

- вывести все гласные буквы латинского алфавита.

Фрагмент программного кода:

Option Explicit

Private Sub Command1_Click()

Dim S As String, S1 As String, a As String

Dim i As Integer, kol As Integer, n As Integer

Dim T As Boolean 'Логическая переменная

S = Text1.Text 'Ввод строки

Text2.Text = "": Text3.Text = "": Text4.Text = ""

n = Len(S) 'Длина строки

'Определение количества цифр в строке

kol = 0 'Инициализация счетчика для подсчета количества цифр

For i = 1 To n 'Цикл по всем символам строки для поиска цифр

a = Mid(S, i, 1)

If (a >= "0") And (a <= "9") Then kol = kol + 1

Next i

Text2.Text = Str(kol) 'Вывод количества цифр в строке

'Определяется, есть ли в строке одинаковые символы

T = False 'Предполагается, что одинаковых символов нет

For i = 1 To n 'Цикл для поиска одинаковых символов

'Если i-ый символ исходной строки встречается в строке еще раз, то функция IntStr 'вернет значение не равное нулю

If (InStr(1, S, Mid(S, i, 1)) <> 0) And _

(InStr(1, S, Mid(S, i, 1)) <> i) Then

T = True 'i-ый символ в подстроке есть

Exit For 'Немедленный выход из цикла, если найден хотя бы

'один одинаковый символ

End If

Next i

If T Then

Text3.Text = "Одинаковые символы есть"

Else

Text3.Text = "Одинаковых символов нет"

End If

'Вывод гласных латинских букв

For i = 1 To n 'Цикл для поиска гласных латинских букв

a = Mid(S, i, 1)

Select Case a

Case "A", "E", "I", "O", "U", "Y"

Text4.Text = Text4.Text + a + " "

Case "a", "e", "i", "o", "u", "y"

Text4.Text = Text4.Text + a + " "