Страница: 1 |
Вопрос: Программирование | Добавлено: 06.04.06 15:12 |
Автор вопроса: ![]() |
Друзья Подскажите!
Как создать программку подсчета повторяющихся элементов (символов) в строке,тексте. Буду очень признателен. |
Ответы | Всего ответов: 6 |
Номер ответа: 1 Автор ответа: ![]() ![]() ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | Цитата | #1 | Добавлено: 06.04.06 15:48 |
А сам пытался? Что непонятного то? |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #2 | Добавлено: 06.04.06 18:39 |
я точно непомню, но помойму это создаётся руками...
for i = 1 to len(txt) if mid(txt,i,1) = "#" then c = c + 1 next print "кол-во '#' в строке - " + с |
Номер ответа: 3 Автор ответа: ![]() ![]() ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | Цитата | #3 | Добавлено: 06.04.06 18:45 |
Гы.. HACKER, РУКАМИ ЭТО ПРАВИЛЬНО ЗАМЕТИЛ. Только сам элемент(символ) еще задать надо где то. А вообще это в каком документе? VBA - мало сказано. |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #4 | Добавлено: 06.04.06 20:57 |
Только что попробовал код примерно такого объёма и сложности написать ногами, долговато правдо, ни ничё, написал, так что руками не обязательно. Кстати, я теперь ногами с закрытыми глазами тренируюсь, потом буду тренироваться чтоб только левой... ногой... ![]() от что получилось ногами ![]() const simvol$ = "#" for i = 1 to len(txt) if mid(txt,i,1) = simvol then c = c + 1 next |
Номер ответа: 5 Автор ответа: ![]() ![]() Вопросов: 1 Ответов: 1 |
Профиль | Цитата | #5 | Добавлено: 09.04.06 23:41 |
HACKER!
Спасибо,очень выручил,все понял. |
Номер ответа: 6 Автор ответа: ![]() ![]() ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | Цитата | #6 | Добавлено: 10.04.06 00:04 |
Блин. Утер!... Может левой ногой и с глубокого похмелья писать ( ну я говогил когда читал все это...пытаюсь автора не обидеть...) Не надо репрессий, пожалуйста! |
Страница: 1 |
|