• gas1979
  • Восстановленный участник
  • На форуме с 20 сентября 2004г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Анализ строки

Мне нужно вывести количество определенных символов в строке, как это сделать?
Пример:
474.25634.235.124.364.23.
Количество "."=6
Заранее спасибо

  • BJ
  • Восстановленный участник
  • На форуме с 20 сентября 2004г.
  • Сообщений: 3
  • Спасибо: 0

Re: Анализ строки

Вроде работает...
Dim stroca as String
stroca = "474.25634.235.124.364.23."
Dim symb As String
Dim i As Integer
Dim j As Integer
j = 0
For i = 1 To Len(stroca)
symb = Mid$(stroca, i, 1)
If symb = "." Then j = j + 1
Next
MsgBox j

  • gas1979
  • Восстановленный участник
  • На форуме с 20 сентября 2004г.
  • Сообщений: 2
  • Спасибо: 0

Re: Анализ строки

Спасибо за ответ, мне тут подсказали:
Количество = UBound(Split("474.25634.235.124.364.23.", "."))
Работает

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: Анализ строки

> gas1979
Пример BJ дает надежный результат в любом случае. А через UBound работает корректно,только если заранее известно, что заданный символ стоит и последним.

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: Анализ строки

Прошу прощения. Кажется, всегда работает и с UBound...