Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Точка перед большой буквой
 
#1
29.08.2019 09:19:55
Добрый день.
Такой вопрос - можно как то перед большой буквой ставить точку?
Вот пример:
Так есть: Прописи Письмо английских букв по линейкам Задания по чистописанию и каллиграфии 6-8 лет
Так должно: Прописи. Письмо английских букв по линейкам. Задания по чистописанию и каллиграфии. 6-8 лет

Реально.
Если можно такое через Power Query - то вообще бомба.

Спасибо.
 
 
 
#2
29.08.2019 13:00:35
С 1 лишним пробелом между словами.
 
 
 
#3
29.08.2019 13:47:06
Цитата
Денис написал:
каллиграфии. 6-8 лет
6 - это тоже заглавная буква?
 
 
 
#4
29.08.2019 17:17:26
Цитата
StatuS написал:
С 1 лишним пробелом между словами.
Тогда уж добавить ещё одно действие. )
Код
= Table.ReplaceValue(#"Удаленные столбцы2"," .",".",Replacer.ReplaceText,{"Сведено.2"})
 
 
 
#5
29.08.2019 18:58:23
Как-то так:
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    list = List.Transform({"А".."Я","Ё","A".."Z","0".."9"}, each " "&_),
    replace = Table.ReplaceValue(Source, 0, (z)=> List.Sort(List.Union(List.Transform(list, each Text.PositionOf(z[Столбец1], _, 2))), 1),
                                            (a,b,c)=> List.Accumulate(c, a, (x,y)=> Text.Insert(x,y,".")), {"Столбец1"})
in
    replace
 
 
 
#6
29.08.2019 20:50:02
Доброе время суток.
Ещё версия на Power Query.
Скрытый текст

Плюс, VBA регулярками
Код
Public Function addDots(ByVal toText As String) As String
    Dim pReg As Object
    Set pReg = CreateObject("VBScript.RegExp")
    pReg.Pattern = "( [\dA-ZА-ЯЁ])"
    pReg.Global = True
    addDots = pReg.Replace(toText, ".$1")
End Function
 
 
 
#7
29.08.2019 22:48:43
Цитата
Aleksei_Zhigulin
Супер. работает. Спасибо!
Изменено: Денис - 29.08.2019 22:50:10
 
 
 
#8
29.08.2019 22:50:30
Андрей VG, спасибо за вариант. Работает!
 
 
 
Страницы: 1
Наверх