Работа с текстом

@Наоми · Регистрация: 05.12.2015

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

Дан текст. Если в нем нет малых латинских букв, то оставить его без изменения, иначе каждый из символов, которые следуют за первой группой малых латинских букв, заменить точкой.

Помогите, пожалуйста, составить программу.

echs · 06.12.2015, 14:18

Мне хотелось бы уточнить задание. Если я правильно
понял, то в случае обнаружения одного или нескольких малых
латинских букв все остальное заменяется точками?
Причем заменяются и малые латинские буквы?

@Наоми · 06.12.2015, 14:44 **[ТС]**

Да, после первой группы малых латинских букв (которая может состоять из одного или нескольких символов) все последующие символы (в том числе малые латинские буквы) заменяются точками.

@Kapytan · 06.12.2015, 15:09

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Command1_Click()
Text2 = ""
If Len(Text1) <= 1 Then
    Text2 = Text1
    Exit Sub
End If
i = 1
priznak = 0
Do While i <= Len(Text1)
    If priznak = 0 Then
        Text2 = Text2 & Mid(Text1, i, 1)
        If Asc(Mid(Text1, i, 1)) >= 97 And Asc(Mid(Text1, i, 1)) <= 122 Then
            priznak = 1
        End If
        Else
        If priznak = 1 Then
            If Asc(Mid(Text1, i, 1)) >= 97 And Asc(Mid(Text1, i, 1)) <= 122 Then
                Text2 = Text2 & Mid(Text1, i, 1)
                Else
                priznak = 2
                Text2 = Text2 & "."
            End If
            Else
            Text2 = Text2 & "."
        End If
    End If
    i = i + 1
Loop
End Sub

Text1 - исходный текст, Text2 - результат.

echs · 06.12.2015, 16:17

Kapytan
А зачем вам коды букв?
Поставили бы прямо буквы (в кавычках)

@Казанский · 07.12.2015, 12:02

Наоми, На регулярных удобно

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Function Naomi(s As String) As String
Dim x
  Set x = CreateObject("vbscript.regexp")
  x.Pattern = "[a-z]+"
  Set x = x.Execute(s)
  If x.Count Then
    x = x(0).FirstIndex + x(0).Length
    Naomi = Left$(s, x) & String$(Len(s) - x, ".")
  Else: Naomi = s
  End If
End Function

Тесты в окне Immediate

Code
1
2
3
4
5
6
?naomi("123asd56VB7")
123asd.....
?naomi("123ASD56VB7")
123ASD56VB7
?naomi("as123567")
as......

Новые блоги и статьи Все статьи Все блоги /
Подключение 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 - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@Наоми 0 / 0 / 0 Регистрация: 05.12.2015 Сообщений: 2

	Работа с текстом 05.12.2015, 20:56. Показов 3044. Ответов 5 Метки нет (Все метки) Дан текст. Если в нем нет малых латинских букв, то оставить его без изменения, иначе каждый из символов, которые следуют за первой группой малых латинских букв, заменить точкой. Помогите, пожалуйста, составить программу. 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	06.12.2015, 14:18
	Мне хотелось бы уточнить задание. Если я правильно понял, то в случае обнаружения одного или нескольких малых латинских букв все остальное заменяется точками? Причем заменяются и малые латинские буквы? 0

@Наоми 0 / 0 / 0 Регистрация: 05.12.2015 Сообщений: 2
	06.12.2015, 14:44 [ТС]
	Да, после первой группы малых латинских букв (которая может состоять из одного или нескольких символов) все последующие символы (в том числе малые латинские буквы) заменяются точками. 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	06.12.2015, 16:17
	Kapytan А зачем вам коды букв? Поставили бы прямо буквы (в кавычках) 0

Работа с текстом

Решение