| Вопрос: Работа с текстом | Добавлено: 08.06.08 15:32 |
Автор вопроса:  log-out
|
|
ПОМОГИТЕ!!!
1) Нужно написать программу в VB6 для определения количества слов начинающихся с буквы Л(л) 2) Даны 2 текстовых поля: 1-с произвольным тесктом, 2-с частью слова содержащегося в тексте. Нужно подсчитать количество таких совпадений. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 08.06.08 19:24 |
Что ты там про кредит говорил? 
|
||
|
Номер ответа: 2 Автор ответа: Smith ICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #2 | Добавлено: 08.06.08 19:29 |
|
Рус не к лицу тебе такой мелочью торговать.
Я уже код хотел подкинуть, но обламывать тебя не стану
|
||
|
Номер ответа: 3 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #3 | Добавлено: 08.06.08 21:18 |
| Чёт ты молчишь, значит не против? | ||
|
Номер ответа: 4 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #4 | Добавлено: 08.06.08 21:44 |
|
Dim Result As Long Dim XStart As Long Do XStart = InStr(XStart + 1, "Adam", "a", vbTextCompare) 'vbBinaryCompare - различать строчные и прописные If XStart Then Result = Result + 1 Loop While XStart MsgBox Result |
||
|
Номер ответа: 5 Автор ответа: log-out Вопросов: 2 Ответов: 7 |
Профиль | | #5 | Добавлено: 08.06.08 22:32 |
| спасибо | ||
Страница: 1 |