Очистить цифры от лишних символов

@Draemwolk · Регистрация: 10.04.2018

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

Добрый день!

Задача стоит так: Убрать все лишние символы внутри цифр. Цифры расположены в тексте.
Пример:
Было: Медицинский-полис 62 - 7278 (123) Номер 1 (123) 267286 Телефон (домашний)
Должно быть: Медицинский - полис 627278123 Номер 1123267286 Телефон (домашний)

@vedunasv · 09.10.2021, 08:26

Catstail, и нет управы на это

Добавлено через 1 минуту
и нет управы на это

@Narimanych · 09.10.2021, 14:09

I can,

Сообщение от I can

как сделать так, чтобы код не заменял цифры, которые содержат меньше 5 символов подряд? Но при этом если рядом через пробел стоят другие цифры, то они бы складывались по количеству символов и если больше 5, то заменялись, если нет, то соответственно нет.
Пример
Телефон 8 911 032 78 31, Школа 1234
Телефон * *** *** ** **, Школа 1234

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub NNN()
    s = "Телефон 8 911 032 78 31, Школа 1234"
    Set RR = CreateObject("VBScript.RegExp")
    RR.Pattern = "[\d+ ]+"
    RR.Global = True
    With RR.Execute(s)
        ReDim arr(.Count, 2)
        For i = 0 To .Count - 1
         arr(i, 0) = .Item(i)
        Next
    End With
     RR.Pattern = "\d"
    For i = 0 To UBound(arr) - 1
        If Len(Replace(arr(i, 0), " ", "")) > 5 Then
            arr(i, 1) = RR.Replace(arr(i, 0), "*")
            s = Replace(s, arr(i, 0), arr(i, 1) & " ")
        End If
    Next
    Debug.Print s
End Sub

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Draemwolk 0 / 0 / 0 Регистрация: 10.04.2018 Сообщений: 34

	Очистить цифры от лишних символов 08.10.2021, 15:07. Показов 2891. Ответов 21 Метки нет (Все метки) Добрый день! Задача стоит так: Убрать все лишние символы внутри цифр. Цифры расположены в тексте. Пример: Было: Медицинский-полис 62 - 7278 (123) Номер 1 (123) 267286 Телефон (домашний) Должно быть: Медицинский - полис 627278123 Номер 1123267286 Телефон (домашний) 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	09.10.2021, 08:26
	Catstail, и нет управы на это Добавлено через 1 минуту и нет управы на это 0

Очистить цифры от лишних символов

Решение