Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Статистика символов

Автор: Alina 13.4.2002, 12:57

Подскажите, как посчитать, сколько раз в тексте встречается, к примеру, символ "i" или [th]...
Могу искать, заменять, а вот сосчитать не могу.
Может, кто знает?

Автор: Wowa 13.4.2002, 13:36

Цитата(Guest @ 13.4.2002, 11:57)

а вот сосчитать не могу.

Автор: Alina 13.4.2002, 13:51

Спасибо за ответ. Ваш сайт самый живой (по моему рейтингу

Автор: Леонид 13.4.2002, 19:43

Если можешь найти , то в чем проблем сосчитать

Вставь в люп обычный
int (double) counter b при каждой находка counter++; :hehe

или я чего то не понял :withstupid

Автор: Oleg 18.4.2002, 16:20

Ostav adres, vyshlju. Pohozee zadanije ja delal.

Автор: Oleg 18.4.2002, 16:25

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

Если у вас шествая версия - самое лучшее использовать функцию 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