Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Программирование Добавлено: 06.04.06 15:12  

Автор вопроса:  nic
Друзья Подскажите!

Как создать программку подсчета повторяющихся элементов
(символов) в строке,тексте.

Буду очень признателен.

Ответить

  Ответы Всего ответов: 6  

Номер ответа: 1
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
 Профиль | | #1 Добавлено: 06.04.06 15:48
А сам пытался? Что непонятного то?

Ответить

Номер ответа: 2
Автор ответа:
 HACKER


 

Разработчик 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
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
 Профиль | | #3 Добавлено: 06.04.06 18:45
Гы.. HACKER, РУКАМИ ЭТО ПРАВИЛЬНО ЗАМЕТИЛ. Только сам элемент(символ) еще задать надо где то. А вообще это в каком документе? VBA - мало сказано.

Ответить

Номер ответа: 4
Автор ответа:
 HACKER


 

Разработчик 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
Автор ответа:
 nic



Вопросов: 1
Ответов: 1
 Профиль | | #5 Добавлено: 09.04.06 23:41
HACKER!

Спасибо,очень выручил,все понял.

Ответить

Номер ответа: 6
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
 Профиль | | #6 Добавлено: 10.04.06 00:04
Блин. Утер!... Может левой ногой и с глубокого похмелья писать ( ну я говогил когда читал все это...пытаюсь автора не обидеть...) Не надо репрессий, пожалуйста!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам