Как удалить определенный символ в ворде
Перейти к содержимому

Как удалить определенный символ в ворде

  • автор:

Обрезка и удаление символов из строк в .NET

Если вы анализируете предложение на отдельные слова, вы можете получить слова с пустыми пробелами (также называемыми пробелами) на обоих концах слова. В этом случае можно использовать один из методов обрезки в System.String классе , чтобы удалить любое количество пробелов или других символов из указанной позиции в строке. В следующей таблице описаны доступные методы обрезки.

Имя метода Использовать
String.Trim Удаление пробелов или знаков, указанных в массиве знаков, из начала и конца строки.
String.TrimEnd Удаление символов, указанных в массиве символов, в конце строки.
String.TrimStart Удаление символов, указанных в массиве символов, в начале строки.
String.Remove Удаление указанного количества символов в указанной позиции индекса в строке.

Trim

Вы можете легко удалить пробелы с обоих концов строки с помощью String.Trim метода , как показано в следующем примере:

String^ MyString = " Big "; Console::WriteLine("HelloWorld!", MyString); String^ TrimString = MyString->Trim(); Console::WriteLine("HelloWorld!", TrimString); // The example displays the following output: // Hello Big World! // HelloBigWorld! 
string MyString = " Big "; Console.WriteLine("HelloWorld!", MyString); string TrimString = MyString.Trim(); Console.WriteLine("HelloWorld!", TrimString); // The example displays the following output: // Hello Big World! // HelloBigWorld! 
Dim MyString As String = " Big " Console.WriteLine("HelloWorld!", MyString) Dim TrimString As String = MyString.Trim() Console.WriteLine("HelloWorld!", TrimString) ' The example displays the following output: ' Hello Big World! ' HelloBigWorld! 

Кроме того, можно удалить символы, указанные в массиве знаков, из начала и конца строки. В следующем примере удаляются пробелы, точки и звездочки:

using System; public class Example < public static void Main() < String header = "* A Short String. *"; Console.WriteLine(header); Console.WriteLine(header.Trim( new Char[] < ' ', '*', '.' >)); > > // The example displays the following output: // * A Short String. * // A Short String 
Module Example Public Sub Main() Dim header As String = "* A Short String. *" Console.WriteLine(header) Console.WriteLine(header.Trim()) End Sub End Module ' The example displays the following output: ' * A Short String. * ' A Short String 

TrimEnd

Метод String.TrimEnd удаляет символы из конца строки, создавая новый строковый объект. Для указания символов, которые следует удалять, в этот метод передается массив символов. Порядок элементов в массиве символов не влияет на операцию обрезки. В случае обнаружения символа, который отсутствует в массиве, операция останавливается.

В следующем примере удаляются последние буквы строки с помощью TrimEnd метода . В этом примере положение символа ‘r’ и символа ‘W’ повернуты обратно, чтобы проиллюстрировать, что порядок символов в массиве не имеет значения. Обратите внимание, что этот код удаляет последнее слово MyString и часть первого.

String^ MyString = "Hello World!"; array^ MyChar = ; String^ NewString = MyString->TrimEnd(MyChar); Console::WriteLine(NewString); 
string MyString = "Hello World!"; char[] MyChar = ; string NewString = MyString.TrimEnd(MyChar); Console.WriteLine(NewString); 
Dim MyString As String = "Hello World!" Dim MyChar() As Char = Dim NewString As String = MyString.TrimEnd(MyChar) Console.WriteLine(NewString) 

Этот код выводит на консоль значение He .

В следующем примере удаляется последнее слово строки с помощью TrimEnd метода . В этом коде запятая следует за словом Hello . Так как запятая не указана в массиве символов для обрезки, обрезка заканчивается запятой.

String^ MyString = "Hello, World!"; array^ MyChar = ; String^ NewString = MyString->TrimEnd(MyChar); Console::WriteLine(NewString); 
string MyString = "Hello, World!"; char[] MyChar = ; string NewString = MyString.TrimEnd(MyChar); Console.WriteLine(NewString); 
Dim MyString As String = "Hello, World!" Dim MyChar() As Char = Dim NewString As String = MyString.TrimEnd(MyChar) Console.WriteLine(NewString) 

Этот код выводит на консоль значение Hello, .

TrimStart

Метод String.TrimStart аналогичен методу , String.TrimEnd за исключением того, что он создает новую строку путем удаления символов из начала существующего строкового объекта. Массив символов передается методу TrimStart для указания удаляемых символов. Как и в случае с методом TrimEnd , порядок элементов в массиве символов не влияет на операцию обрезки. В случае обнаружения символа, который отсутствует в массиве, операция останавливается.

В следующем примере удаляется первое слово в строке. В этом примере положение символа ‘l’ и символа ‘H’ повернуты обратно, чтобы проиллюстрировать, что порядок символов в массиве не имеет значения.

String^ MyString = "Hello World!"; array^ MyChar = ; String^ NewString = MyString->TrimStart(MyChar); Console::WriteLine(NewString); 
string MyString = "Hello World!"; char[] MyChar = ; string NewString = MyString.TrimStart(MyChar); Console.WriteLine(NewString); 
Dim MyString As String = "Hello World!" Dim MyChar() As Char = Dim NewString As String = MyString.TrimStart(MyChar) Console.WriteLine(NewString) 

Этот код выводит на консоль значение World! .

Удалить

Метод String.Remove удаляет указанное количество знаков, начиная с указанного места в существующей строке. Этот метод подразумевает, что отсчет индекса начинается с нуля.

В следующем примере удаляется 10 символов из строки, начинающейся с пятой позиции отсчитываемого от нуля индекса строки.

String^ MyString = "Hello Beautiful World!"; Console::WriteLine(MyString->Remove(5,10)); // The example displays the following output: // Hello World! 
string MyString = "Hello Beautiful World!"; Console.WriteLine(MyString.Remove(5,10)); // The example displays the following output: // Hello World! 
Dim MyString As String = "Hello Beautiful World!" Console.WriteLine(MyString.Remove(5, 10)) ' The example displays the following output: ' Hello World! 

Замените

Чтобы удалить из строки указанный символ или подстроку, можно вызвать метод String.Replace(String, String) и указать пустую строку (String.Empty) в качестве замены. В следующем примере удаляются все запятые из строки:

using System; public class Example < public static void Main() < String phrase = "a cold, dark night"; Console.WriteLine("Before: ", phrase); phrase = phrase.Replace(",", ""); Console.WriteLine("After: ", phrase); > > // The example displays the following output: // Before: a cold, dark night // After: a cold dark night 
Module Example Public Sub Main() Dim phrase As String = "a cold, dark night" Console.WriteLine("Before: ", phrase) phrase = phrase.Replace(",", "") Console.WriteLine("After: ", phrase) End Sub End Module ' The example displays the following output: ' Before: a cold, dark night ' After: a cold dark night 

См. также

Совместная работа с нами на GitHub

Источник этого содержимого можно найти на GitHub, где также можно создавать и просматривать проблемы и запросы на вытягивание. Дополнительные сведения см. в нашем руководстве для участников.

покупка

Как удалить определенный / конкретный символ из ячейки в Excel?

Предположим, у вас есть диапазон данных, и вы хотите удалить определенный символ из каждой строки, например символ «-» как показано на скриншоте ниже, в Excel есть ли у вас хорошая идея решить эту задачу? Теперь я расскажу вам о некоторых хитростях, позволяющих удалить определенный символ из строк ячеек в Excel.

док удалить определенный символ 1

Удалите определенный текст из ячейки с помощью Kutools for Excel

Удалите определенный текст из ячейки с помощью функции поиска и замены

В Excel вы можете сначала узнать все символы «-», а затем ничего не заменить.

1. Выберите нужный диапазон или весь лист и нажмите Ctrl + H для отображения Найти и заменить диалоговое окно, затем введите — в Найти то, что текстовое поле и ничего не оставляйте в Заменить текстовое окно. Смотрите скриншот:

док удалить определенный символ 2

Наконечник: Если символ, который вы хотите удалить, является алфавитным, и вы хотите найти их с учетом регистра, вы можете нажать Опции чтобы развернуть диалог, и отметьте Учитывать регистр.

док удалить определенный символ 3

2. Нажмите Заменить все. Затем появится диалоговое окно с напоминанием о количестве замен, и просто нажмите OK закрыть его.

Удалите определенный текст из ячейки с помощью Kutools for Excel

Если вы только что Kutools for Excel, вы можете использовать Удалить символы утилита для быстрого удаления определенных символов из строки.

После установки Kutools for Excel, сделайте следующее: (Бесплатная загрузка Kutools for Excel прямо сейчас!)

doc kutools удалить символы 1

1. Выберите ячейки, в которых нужно удалить определенные символы, а затем щелкните Кутулс > Текст > Удалить символы. Смотрите скриншот:

2. Затем в Удалить символы диалог, проверьте На заказ только вариант, затем введите символы, которые вы хотите удалить из строк (с учетом регистра), вы можете увидеть результат в предварительный просмотр панель. Смотрите скриншот:

doc kutools удалить символы 2

doc kutools удалить символы 3

3. Нажмите Ok. Затем все символы «-» удаляются из каждой строки выделения.

Наконечник: Если вы хотите удалить из строк несколько символов, таких как «-» и «K», просто введите символы, которые вы хотите удалить. «-K» в На заказ текстовое окно. Смотрите скриншот:

Макрос на удаление определенных символов.

Требуется создать макрос, при запуске которого, он удалял символы, которые прописаны у него в конфиге. Т.е. есть текст, а мне во всем тексте нужно удалить символы, например — г., ул., р-н
Как подобное сделать?

2 Ответ от aap77 20.11.2011 10:05:26

Re: Макрос на удаление определенных символов.

1. Способ воспользоваться объектом InputBox, для определения списка удаляемых слов.

Public Sub DeleteListWord() Dim inp As String, list As Variant inp = InputBox("Введите слова для удаления" & Chr(13) _ & "через разделитель $. Например: " _ & "г.$ул.$р-н") 'Запрашиваем список удаляемых слов list = Split(inp, "$") 'Создаем список слов For i = LBound(list) To UBound(list) 'Циклом заменяем слова списка Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = list(i) .Replacement.Text = "" End With Selection.Find.Execute Replace:=wdReplaceAll Next i End Sub

3 Ответ от DYm00n 20.11.2011 11:10:40

Re: Макрос на удаление определенных символов.

aap77 пишет:

1. Способ воспользоваться объектом InputBox, для определения списка удаляемых слов.

Public Sub DeleteListWord() Dim inp As String, list As Variant inp = InputBox("Введите слова для удаления" & Chr(13) _ & "через разделитель $. Например: " _ & "г.$ул.$р-н") 'Запрашиваем список удаляемых слов list = Split(inp, "$") 'Создаем список слов For i = LBound(list) To UBound(list) 'Циклом заменяем слова списка Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = list(i) .Replacement.Text = "" End With Selection.Find.Execute Replace:=wdReplaceAll Next i End Sub

Ну не совсем так — мне нужно, чтобы в самом макросе уже были заданы эти слова. Т.е. я хочу повесить его на горячую клавишу и как только я нажимаю на нее, макрос без лишних вопросов удаляет подобные сокращения (которые я уже ввел в настройки макроса заранее). Кстати, хотелось бы еще добавить функцию, чтобы он больше одного пробела подряд удалял.

4 Ответ от aap77 20.11.2011 11:56:31

Re: Макрос на удаление определенных символов.
inp = InputBox("Введите слова для удаления" & Chr(13) _ & "через разделитель $. Например: " _ & "г.$ул.$р-н") 'Запрашиваем список удаляемых слов
list=array("г.","ул.", "р-н") 'Создает массив зарезервированных слов

5 Ответ от DYm00n 20.11.2011 12:07:03

Re: Макрос на удаление определенных символов.

aap77 пишет:

inp = InputBox("Введите слова для удаления" & Chr(13) _ & "через разделитель $. Например: " _ & "г.$ул.$р-н") 'Запрашиваем список удаляемых слов
list=array("г.","ул.", "р-н") 'Создает массив зарезервированных слов

А как быть с
>Кстати, хотелось бы еще добавить функцию, чтобы он больше одного пробела подряд удалял.

6 Ответ от DYm00n 20.11.2011 12:14:55

Re: Макрос на удаление определенных символов.

DYm00n пишет:
aap77 пишет:

inp = InputBox("Введите слова для удаления" & Chr(13) _ & "через разделитель $. Например: " _ & "г.$ул.$р-н") 'Запрашиваем список удаляемых слов
list=array("г.","ул.", "р-н") 'Создает массив зарезервированных слов

А как быть с
>Кстати, хотелось бы еще добавить функцию, чтобы он больше одного пробела подряд удалял.

Если я правильно понял, то текст макроса должен быть такой —
Public Sub DeleteListWord()
Dim inp As String, list As Variant
list=array(«г.»,»ул.», «р-н») ‘Создает массив зарезервированных слов
list = Split(inp, «$») ‘Создаем список слов
For i = LBound(list) To UBound(list) ‘Циклом заменяем слова списка
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = list(i)
.Replacement.Text = «»
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub

Меня вот только смушают выделенные фрагменты. Все правильно? У меня данный макрос не работает и ошибок даже не выдает

Сообщений [ 6 ]

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

  • Выделение и замена определенных наборов символов во всем тексте
  • Удаление лишних символов
  • Удаление нескольких символов абзаца не срабатывает перед таблицами
  • Макрос для копирования определенного количества символов
  • Макрос отображения общего количества символов
  • Печать определенных страниц в word
  • Выделение курсивом определенных фрагментов
  • Ввод определенных кусков текста?

Макрос на удаление определенных символов.

Очень часто у пользователей компьютеров возникают вопросы по тем или иным программам. Чтобы найти ответы — кто-то покупает необходимую литературу, кто-то ищет ответ в интернете. Наш сайт о Microsoft Office Word даст ответ про: где хранится файл normal.dot. Но нужную литературу не всегда можно найти в магазине, а в интернете – можно просто потеряться в море информации. Наш сайт о Microsoft Office Word даст ответ про: как повернуть в ворде один лист. В случае, если вас интересует приложение Microsoft Word – то смело можете обращаться на сайт Ворд Эксперт. На портале о Microsoft Office Word вы узнаете про: можно ли ворд 2007 открыть в ворд 2003.

На сайте Ворд Эксперт вы найдете все, что вам необходимо – от списка требуемой литературы до подробных ответов на интересующие вас вопросы. На портале о Microsoft Office Word вы узнаете про: ключь для офиса.

Если вы совершенно не знакомы с программой Microsoft Word, то в «Основном разделе» сайта вам помогут не только освоить основные принципы работы в ней, но и расскажут о многие ее нюансах и секретах. На портале о Microsoft Office Word вы узнаете про: как открыть вордовский документ с флешки 2007 г. если у меня только ворд 2003 г.. Вы узнаете — как правильно делать форматирование и редактирование, как писать макросы, как совместить различные версии, как правильно расставить колонтитулы и т.п. На портале о Microsoft Office Word вы узнаете про: как в world вставить спецсимвол.

При необходимости, вы можете обратиться в раздел «заявок и заказов», оформить заявку на выполнение любой работы в приложении Microsoft Word и получить готовую качественную работу. Наш сайт о Microsoft Office Word даст ответ про: как сделать приглашения в ворде.

Наличие на сайте оперативной обратной связи тоже может вам пригодится. Можно обращаться и в случае, если вы не нашли ответ на свой вопрос, и в случае если вы хотите внести свои замечания по работе сайта. На портале о Microsoft Office Word вы узнаете про: сантиметры word 2007. Форум работает круглосуточно и вам всегда будут рады помочь.

страницы

  • полезности word
  • книги и программы
  • о проекте
  • стать автором
  • реклама на сайте
  • правовая информация

Как удалить определенный символ в ворде

Делай:
Заменить
Галочка на подстановочные знаки
В поле НАЙТИ пиши Filename*.?
Поле заменить — пустое
Заменить все.

(где Filename — то что ищешь; * — любое кол-во символов; . — точка; ? — перенос строки после точки)

Регистрация: 28.05.2008
Адрес: Белореченск
Сообщений: 3,021
Сказал(а) спасибо: 1
Поблагодарили 5 раз(а) в 2 сообщениях
Репутация: 4960
Сообщение от Sashafint

Делай:
Заменить
Галочка на подстановочные знаки
В поле НАЙТИ пиши Filename*.?
Поле заменить — пустое
Заменить все.

(где Filename — то что ищешь; * — любое кол-во символов; . — точка; ? — перенос строки после точки)

Этот способ работает, но не так как надо. Можно ли сделать что бы он удалял не до ближайшей точки, а только саму строку? Просто в моем случае до точки удалять нельзя, начинает лишний текст удалять.

Регистрация: 31.10.2012
Сообщений: 400
Записей в дневнике: 1
Сказал(а) спасибо: 1
Поблагодарили 2 раз(а) в 1 сообщении
Репутация: 2902
Можно фрагмент текста? Несколько абзацев, хотя бы. Не профи, но попробую помочь.
Регистрация: 28.05.2008
Адрес: Белореченск
Сообщений: 3,021
Сказал(а) спасибо: 1
Поблагодарили 5 раз(а) в 2 сообщениях
Репутация: 4960

Вот небольшой фрагмент, весь текст состоит так. Мне к примеру нужно удалить строки Filename и Action time а другие оставить.

Record Number : 952
Action Time : 18.02.2009 21:49:40
Filename :

Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Регистрация: 31.10.2012
Сообщений: 400
Записей в дневнике: 1
Сказал(а) спасибо: 1
Поблагодарили 2 раз(а) в 1 сообщении
Репутация: 2902

Можно создать макрос и назначить его на какую-нибудь комбинацию кнопок.
Смысл примерно такой:
Включить режим разработчика в меню ФАЙЛ\Настройки
На вкладке Разработчик нажать ЗАПИСЬ МАКРОСА.
Указать комбинацию клавиш.
Далее уже идет сам макрос.

CTRL+H Action time \ найти далее
Закрыть окно поиска.
выделить текст до конца строки Shift+END
Удалить текст DEL.

CTRL+H Filename \ найти далее
Закрыть окно поиска.
выделить текст до конца строки Shift+END
Удалить текст DEL.

Остановить запись макроса.

Зажимаешь указанную комбинацию клавиш и держишь, до конца документа.

Можно зациклить макрос на Visual Basic.
У нас сейчас перебои с электричеством, интернет вырубает, не могу конкретней пока обьяснить.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *