Выделение текста перед n-ым символом

@Ove4ka · Регистрация: 09.01.2019

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

Доброго времени суток!
Имеется текст в ворде в формате:
|09.01.2019| |500.00 руб.|блаблабла|блаблабла|
|09.01.2019|200.00 руб.| |блаблабла|блаблабла|
|10.01.2019|4000.00 руб.| |опять ненужная чушь|бла|
Необходимо получить такой вид:
09.01.2019 500.00 руб.
09.01.2019 200.00 руб.
10.01.2019 4000.00 руб.
Каким способом это осуществить? Можно ли выделить часть текста перед символом, который, предположим, повторился в строке 3й раз?
Заранее спасибо!

@Dinoxromniy · 09.01.2019, 18:05

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

Можно ли выделить часть текста перед символом, который, предположим, повторился в строке 3й раз?

Если символ повторяется с одинаковой частотой, и нужно третье вхождение - можно преобразовать текст в таблицу (символ разделитель в данном случае - "|"), скопировать второй столбец и при желании преобразовать обратно в текст. Однако в вашем, гхм, примере:

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

09.01.2019	500.00 руб.	блаблабла	блаблабла
09.01.2019	200.00 руб.	блаблабла	блаблабла
10.01.2019	4000.00 руб.	опять ненужная чушь	бла

|

я вижу произвольное вхождение этого самого символа.

@Ove4ka · 09.01.2019, 20:18 **[ТС]**

Спасибо, про преобразование в таблицу я как-то совсем забыл. Вариант неплохой, от него и буду отталкиваться

@Казанский · 09.01.2019, 20:54

Как вариант, Найти и заменить, найти |[!|]@|[!|]@|^13 заменить на ^p , Подстановочные знаки.
Потом зачистить лишние символы "|".

@Sasha_Smirnov · 11.01.2019, 03:14

А ещё так: все буквы заменить на пустоту; чёрточку — на пробел; двойные пробелы — на пробел, а в заключение — абзацы на обозначение рубля и абзац.

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

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

Visual Basic

Sub CandidateElector()
Selection.HomeKey wdStory 'курсор в начало
With Selection.Find
 'сначала ряд пробелов стянем в 1 и уберём пробел в начале всех абзацев
 .MatchWildcards = True
 .Execute " {2;}", Replacewith:=" ", Replace:=wdReplaceAll
 .Execute "^11", Replacewith:="^13", Replace:=wdReplaceAll 'все ^l на ^p
 .Execute "(^13) ", Replacewith:="\1", Replace:=wdReplaceAll 'убрали начальный пробел
 .MatchWildcards = False 'сняли в окне поиска-замены галку «Подстановочные знаки»
End With
End Sub

Попробуйте все эти замены выполнить автоматически:

Visual Basic

Sub олечка()
Selection.HomeKey wdStory 'курсор в начало
With Selection.Find
 .Execute "^$", Replacewith:="", Replace:=wdReplaceAll ' все буквы удалили
 .Execute "|", Replacewith:=" ", Replace:=wdReplaceAll ' все | забили пробелом
 .Execute "  ", Replacewith:=" ", Replace:=wdReplaceAll ' два пробела стянули в один
 .Execute "  ", Replacewith:=" ", Replace:=wdReplaceAll ' и ещё раз
 .Execute "  ", Replacewith:=" ", Replace:=wdReplaceAll ' и ещё раз
 .Execute "  ", Replacewith:=" ", Replace:=wdReplaceAll ' и ещё раз
 .Execute vbCr & " ", Replacewith:="^p", Replace:=wdReplaceAll ' удалили пробел в начале абзаца (кроме 1-го)
 .Execute " " & vbCr, Replacewith:="^p", Replace:=wdReplaceAll ' удалили пробел в конце абзаца
 .Execute "." & vbCr, Replacewith:="^p", Replace:=wdReplaceAll ' удалили точку в конце абзаца
 .Execute "^p", Replacewith:="руб.^p", Replace:=wdReplaceAll   ' добавили "руб." в каждый абзац
End With
End Sub

@Sasha_Smirnov · 12.01.2019, 03:07

Впрочем, способ, который изобрёл Казанский, более подходящ — ибо те самые

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

блаблабла

не обязаны состоять исключительно из букв!

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

спасибо-то хорошо, но желательны и комментарии

А то вот 28 человек за сутки пробегало, и все молча.

@Ove4ka 0 / 0 / 0 Регистрация: 09.01.2019 Сообщений: 5
		1
	Выделение текста перед n-ым символом 09.01.2019, 16:11. Показов 1228. Ответов 5 Метки нет (Все метки) Доброго времени суток! Имеется текст в ворде в формате: \|09.01.2019\| \|500.00 руб.\|блаблабла\|блаблабла\| \|09.01.2019\|200.00 руб.\| \|блаблабла\|блаблабла\| \|10.01.2019\|4000.00 руб.\| \|опять ненужная чушь\|бла\| Необходимо получить такой вид: 09.01.2019 500.00 руб. 09.01.2019 200.00 руб. 10.01.2019 4000.00 руб. Каким способом это осуществить? Можно ли выделить часть текста перед символом, который, предположим, повторился в строке 3й раз? Заранее спасибо! 0

@Ove4ka 0 / 0 / 0 Регистрация: 09.01.2019 Сообщений: 5
	09.01.2019, 20:18 [ТС]	3
	Спасибо, про преобразование в таблицу я как-то совсем забыл. Вариант неплохой, от него и буду отталкиваться 0

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	09.01.2019, 20:54	4
	Как вариант, Найти и заменить, найти \|[!\|]@\|[!\|]@\|^13 заменить на ^p , Подстановочные знаки. Потом зачистить лишние символы "\|". 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	12.01.2019, 03:07	6
	Впрочем, способ, который изобрёл Казанский, более подходящ — ибо те самые Сообщение от Ove4ka блаблабла не обязаны состоять исключительно из букв! Сообщение от Sasha_Smirnov спасибо-то хорошо, но желательны и комментарии А то вот 28 человек за сутки пробегало, и все молча. 0

Выделение текста перед n-ым символом

Решение