Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
1 / 1 / 0
Регистрация: 11.11.2012
Сообщений: 22
1

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

04.06.2013, 20:28. Просмотров 1418. Ответов 3
Метки нет (Все метки)

Ввести текст.Отредактировать текст,удаляя из него лишние пробеоы,оставляя только по одному пробелу между словами
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2013, 20:28
Ответы с готовыми решениями:

Убрать все лишние пробелы между словами (оставить только по одному пробелу)
Dim St As String, Stl As String Dim P As String * 10, Sym As String * 1 Dim KR As Long, KN As...

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

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

Удалить из строки лишние пробелы, оставляя между словами только по одному пробелу
Удалить из строки лишние пробелы, оставляя между словами только по одному пробелу

3
3195 / 948 / 219
Регистрация: 29.05.2010
Сообщений: 2,062
04.06.2013, 20:33 2
Примерно так:
Visual Basic
1
2
3
4
5
Sub pr3()
    Dim s$
    s = "Äàíà  ñòðîêà ñèìâîëîâ.   Âûÿñíèòü, åñòü ëè â íåé âñå  áóêâû, âõîäÿùèå  â ñëîâî"
    MsgBox ("Îòðåäàêòèðîâàííàÿ ñòðîêà - " & Application.Trim(s))
End Sub
0
Модератор
Эксперт MS Access
9963 / 3987 / 643
Регистрация: 07.08.2010
Сообщений: 11,207
Записей в блоге: 3
04.06.2013, 21:58 3
макрос в ворде(до 20пробелов на 1)
Код
Sub zamena_probel()
'

'
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = " {1;20}"
  .Replacement.Text = " "
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub
1
5537 / 1339 / 148
Регистрация: 08.02.2009
Сообщений: 4,067
Записей в блоге: 30
04.06.2013, 22:03 4
макрос в ворде(до 2000000000 пробелов на 1) — зачем мелочиться?!
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub zamena__na_probel()
'применяется к тексту в документе Word
 
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = " {2;}" 'здесь искомый текст: 2 и более пробелов (в Word 95 вместо ; ,)
  .Replacement.Text = Chr(32) 'пробел
  .Wrap = wdFindContinue
  .Format = False
  .MatchWildcards = True 'флажок Подстановочные знаки (см. по Ctrl-F в документе) 
  .Execute Replace:=wdReplaceAll
End With
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2013, 22:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Отредактировать текст, удаляя лишние пробелы между словами
В текстовом файле хранится некоторый текст. Отредактировать текст, удаляя лишние пробелы между...

Отредактировать текст, удалив лишние пробелы и оставив только по одному пробелу
Помогите пожалуйста написать программу .В исходном предложении поставить произвольное число...

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

Откорректировать файл, удаляя пустые строки, пробелы в конце и вначале строк и оставляя между словами по одному пробелу
Помогите пожалуйста. Задание. Дан текстовый файл Т. Откорректировать его, удаляя пустые строки,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.