Удалить знак табуляции перед любой цифрой

@brigantina · Регистрация: 11.08.2017

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

Есть текст

Знак табуляции- 1 -знак табуляции -текст
Знак табуляции- 2 -знак табуляции -текст
Знак табуляции- 3 -знак табуляции -текст

Необходимо удалить знак табуляции перед цифрой в каждой строке до конца текста.

Почему-то код не работает, подскажите пожалуйста, в чем ошибка?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub        
      With Selection.Find
            .Text = "^t{1;}(<[0-9]{1;}>)"
            .Replacement.Text = "\1"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With
        Selection.Find.Execute Rep
 
End Sub

@Zeag · 20.09.2022, 20:45

А что там за угловые скобки в шаблоне?

@brigantina · 20.09.2022, 21:27 **[ТС]**

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

А что там за угловые скобки в шаблоне?

Да, вы правы, угловые скобки тут не нужно. Но все равно не работает.

@Zeag · 20.09.2022, 21:29

Тут недавно было сообщение, человек искал перевод строки и кодировал его ^p, не работало. Тогда он поставил ^0013 и вышло. Попробуйте тоже код записать. Или файл приложить.

@brigantina · 21.09.2022, 12:56 **[ТС]**

Приложила файл, отредактировав его согласно ваших рекомендаций

@Punkt5 · 21.09.2022, 14:24

brigantina, Попробуйте маску поиска:

Code
1
(^0013)^t([0-9])

а менять на

Code
1
\1\2

Не забудьте учесть при замене или других действиях, что найденное будет начинаться не с начала этой строки, а конца предыдущей (из-за ^0013).

@brigantina · 21.09.2022, 15:05 **[ТС]**

Получилось

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub www()
 
 Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    
 With Selection.Find
        .Text = "^0009{1;}([0-9])"
        .Replacement.Text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
 
        
       
    End With
End Sub

@brigantina · 21.09.2022, 21:21 **[ТС]**

Так получается что знак табуляции удаляется с обеих сторон от цифры, а нужно удалять только правый знак.

@brigantina · 21.09.2022, 21:32 **[ТС]**

Ошиблась, удалить нужно только левый знак, правый нужно, чтобы остался, а удаляются оба знака.

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

@Zeag 856 / 505 / 187 Регистрация: 09.03.2009 Сообщений: 1,708
	20.09.2022, 20:45
	А что там за угловые скобки в шаблоне? 0

@Zeag 856 / 505 / 187 Регистрация: 09.03.2009 Сообщений: 1,708
	20.09.2022, 21:29
	Тут недавно было сообщение, человек искал перевод строки и кодировал его ^p, не работало. Тогда он поставил ^0013 и вышло. Попробуйте тоже код записать. Или файл приложить. 0

@brigantina 2 / 2 / 0 Регистрация: 11.08.2017 Сообщений: 23
	21.09.2022, 21:32 [ТС]
	Ошиблась, удалить нужно только левый знак, правый нужно, чтобы остался, а удаляются оба знака. 0

Опции темы