Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Статистика символов, Хочется посчитать, а не умеется :) 
:(
    Опции темы
Alina
  Дата 13.4.2002, 12:57 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Подскажите, как посчитать, сколько раз в тексте встречается, к примеру, символ "i" или [th]...
Могу искать, заменять, а вот сосчитать не могу.
Может, кто знает?
  Вверх
Wowa
Дата 13.4.2002, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
Group Icon


Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290
Цитата(Guest @ 13.4.2002, 11:57)
а вот сосчитать не могу.

:)
PM WWW   Вверх
Alina
Дата 13.4.2002, 13:51 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Спасибо за ответ. Ваш сайт самый живой (по моему рейтингу :)  :notify
  Вверх
Леонид
Дата 13.4.2002, 19:43 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Если можешь найти , то в чем проблем сосчитать  :0 Вставь в люп обычный
int (double) counter b при каждой находка counter++; :hehe
или я чего то не понял :withstupid
  Вверх
Oleg
Дата 18.4.2002, 16:20 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Ostav adres, vyshlju. Pohozee zadanije ja delal.
  Вверх
Oleg
Дата 18.4.2002, 16:25 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
A mozet tak razberjosh.

Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim res As Integer
Dim beg As Integer
Dim dlin As Integer
Dim f As Integer
Dim s As Integer
a = CStr(Text1.Text)
b = CStr(Text2.Text)
dlin = Len(a)
res = 0
beg = 1
f = 0
Do While f = 0
  s = InStr(beg, a, b)
If s = 0 Then
  f = 1
Else
  res = res + 1
  beg = s + 1
End If
If beg > dlin Then f = 1
Loop
Text3.Text = CInt(res)
End Sub
  Вверх
sharig
Дата 29.5.2002, 00:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.5.2002
Где: Москва

Репутация: нет
Всего: нет
Если у вас шествая версия - самое лучшее использовать функцию SPLIT
Dim str1() As String
str1 = Split(sFolderPath, "\")
MsgBox UBound(str1)

Получилось? Нет, пишите, разберемся. Писал на память. Описание функции смотрите - http://vbnet.ru/vbguide/showfunction.asp?id=31 или http://sharig.webzone.ru/global/function/q_z/Split.htm
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0463 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.