| Вопрос: помогите пожалуйста ... | Добавлено: 23.03.08 16:33 |
Автор вопроса:  Rene
|
|
Ребята, помогите, пожалуйста.
Как можно удалить из данной строки все гласные буквы? я не пойму как это сделать... |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #1 | Добавлено: 23.03.08 16:43 |
|
str - строка
str = Replace(str, "а", "", , , vbTextCompare) и так для каждой гласной |
||
|
Номер ответа: 2 Автор ответа: Rene Вопросов: 3 Ответов: 5 |
Профиль | | #2 | Добавлено: 23.03.08 16:59 |
|
странно
Private Sub Command1_Click() abc = InputBox("введите строку" 
b = Replace(abc, "а", "о", "у", "и", "э", "я", vbTextCompare) Text1.Text = b End Sub вылетает ошибка: Wrong Number of arguments or invalid property assignment
что я делаю не так? |
||
|
Номер ответа: 3 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #3 | Добавлено: 23.03.08 18:25 |
ВСЁ!  )))
Я сказал строка str = Replace(str, "а", "", , , vbTextCompare) - это для буквы "а" надо добавить строки для каждой гласной |
||
|
Номер ответа: 4 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #4 | Добавлено: 23.03.08 18:31 |
|
Смысл видимо стоит объяснить:
str, "а", "", , , vbTextCompare str - поиск в строке str "а" - что искать в строке "" - на что заменять найденное vbTextCompare - не обращать внимание на регистр (АиО = аИо) Private Sub Command1_Click()
Dim abc As String, b As String abc = InputBox("введите строку"
b = Replace(abc, "а", "", , , vbTextCompare) b = Replace(abc, "е", "", , , vbTextCompare) b = Replace(abc, "ё", "", , , vbTextCompare) b = Replace(abc, "и", "", , , vbTextCompare) b = Replace(abc, "о", "", , , vbTextCompare) b = Replace(abc, "у", "", , , vbTextCompare) b = Replace(abc, "ы", "", , , vbTextCompare) b = Replace(abc, "э", "", , , vbTextCompare) b = Replace(abc, "ю", "", , , vbTextCompare) b = Replace(abc, "я", "", , , vbTextCompare) Text1.Text = b End Sub |
||
|
Номер ответа: 5 Автор ответа:  ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #5 | Добавлено: 23.03.08 18:58 |
|
Читай описание функции Replace
Private Sub Command1_Click()
abc = InputBox("введите строку"
abc = Replace(abc, "а", "", vbTextCompare) abc = Replace(abc, "о", "", vbTextCompare) abc = Replace(abc, "у", "", vbTextCompare) abc = Replace(abc, "и", "", vbTextCompare) abc = Replace(abc, "э", "", vbTextCompare) abc = Replace(abc, "я", "", vbTextCompare) Text1.Text = abc End Sub |
||
|
Номер ответа: 6 Автор ответа: ReneВопросов: 3 Ответов: 5 |
Профиль | | #6 | Добавлено: 23.03.08 19:25 |
| Большое спасибо! ) | ||
Страница: 1 |