1 Тема от Poggi

  • Poggi
  • рядовой
  • Неактивен
  • Зарегистрирован: 19.07.2013
  • Сообщений: 2

Тема: Точка в конце каждой строки.

Здравствуйте!
У меня есть программа передач (500 строк), мне нужно, что бы после каждой строки стояла точка, вручную долго времени уходит ставить. Также проблема во времени, например: у меня стоит, что программа передач идёт в 20.00, мне нужно чтобы стояло 20:00. Если я начинаю менять через найти/заменить, то у меня все "." меняются на ":", но в программе может быть напримет такое. Программа передач. Погода., а получается Программа передач: Погода.
Подскажите пожалуйста как это сделать?

2 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119
  • За сообщение: 1

Re: Точка в конце каждой строки.

С ТОЧКОЙ В КОНЦЕ --НЕ

подчеркивание -- это точка(для наглядности)

заменить ^p          _^p          гарантируем точку в конце
             __^p         _^p          но удаляем лишнюю, если получили 2

3 Ответ от Poggi

  • Poggi
  • рядовой
  • Неактивен
  • Зарегистрирован: 19.07.2013
  • Сообщений: 2

Re: Точка в конце каждой строки.

С этим разобрались. Большое спасибо!
А как сделать, что бы при найти/заменить "." менялась на ":" только во времени?

4 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119
  • За сообщение: 1

Re: Точка в конце каждой строки.

попробуйте сначала ка копии

 Sub a__mrepl_wr()
Dim s1, s2, j1, j1k, j2, j2k

s1 = "0123456789"
j1 = 0
j1k = 10
Do While j1 < j1k
j1 = j1 + 1
j2 = 0
j2k = 10
Do While j2 < j2k
j2 = j2 + 1
s2 = Mid(s1, j1, 1) & "." & Mid(s1, j2, 1)
Debug.Print s2
With Selection.Find
.Text = s2
.Replacement.Text = Mid(s1, j1, 1) & ":" & Mid(s1, j2, 1)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^p"
.Replacement.Text = "." & "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "..^p"
.Replacement.Text = "." & "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Loop
Loop
End Sub

5 Ответ от viter.alex

  • Точка в конце каждой строки.
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140
  • За сообщение: 1

Re: Точка в конце каждой строки.

Poggi пишет:

А как сделать, что бы при найти/заменить "." менялась на ":" только во времени?

Найти: ([0-9]{1;2})\.([0-9]{1;2})
Заменить на: \1:\2
Подстановочные знаки включены.
Если выдаёт ошибку, то вместо точки с запятой в выражении поиска следует поставить запятую. Это зависит от того, что задано в качестве разделителя списка в региональных настройках системы.

Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex