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

@Наоми · Регистрация: 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......

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

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

	Работа с текстом 05.12.2015, 20:56. Показов 3055. Ответов 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

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

Решение