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

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

22.11.2018, 13:07. Просмотров 1629. Ответов 1
Метки нет (Все метки)


Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim St As String, Stl As String
Dim P As String * 10, Sym As String * 1
Dim KR As Long, KN As Long, i As Long
P = "аеёиоуыэюя"
KN = 0
KR = 0
St = Selection.Text
If Len(St) = 1 Then ' Если не выделен фрагмент текста
MsgBox "Необходимо выделить фрагмент текста"
Exit Sub
End If
For i = 1 To Len(St)
Sym = Mid(St, i, 1)      ' выделить очередной символ
' Если символ не является латинской буквой
' или воклицательным знаком
If Not (Sym >= "A" And Sym <= "z") And Sym <> "!" Then
If InStr(1, P, Sym) > 0 Then KR = KR + 1
If Sym >= "0" And Sym <= "9" Then KN = KN + 1
Stl = Stl & Sym
End If
Next i
 Selection.Text = St & vbNewLine & "Колличество русских гласных букв равно" & KR & vbNewLine & "Количество цифр равно " & KN & vbNewLine & vbNewLine & _
 "Преобразованный текст:" & vbNewLine & Stl
 End Sub
0
Миниатюры
Убрать все лишние пробелы между словами (оставить только по одному пробелу)   Убрать все лишние пробелы между словами (оставить только по одному пробелу)  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2018, 13:07
Ответы с готовыми решениями:

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

Убрать лишние пробелы, оставить по одному пробелу между слов
Помогите пожалуйста!!! Убрать лишние пробелы, оставить по одному пробелу между слов. (С++)

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

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
Заблокирован
22.11.2018, 13:38 2
Лучший ответ Сообщение было отмечено Фазли как решение

Решение

Цитата Сообщение от Фазли Посмотреть сообщение
Убрать все лишние пробелы между словами (оставить только по одному пробелу)
Visual Basic
1
2
3
4
st = Selection.Text
While InStr(1, st, "  ")
  st = Replace(st, "  ", " ")
Wend
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2018, 13:38

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

Оставить между словами лишь по одному пробелу, удалив лишние. Макроопределения
Ребят, помогите исправить код. Задана строка слов. Словом считается последовательность...

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

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

Буквы ю, ъ, ф, э в строке удвоить, а между словами оставить только по одному пробелу
Пользователь заполняет символьную строку русскими буквами. Буквы ю, ъ, ф, э в ней нужно удвоить, а...

В тексте убрать лишние пробелы между словами, оставив по одному
Составить программу обработки строк. Текст помещать в Memo. В тексте убрать лишние пробелы между...

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


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

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

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