Функция для подсчета кол-ва определенных символов в VB

Привет всем
Вопрос такой
есть ли в VB такая функция, которая может определить кол-во того или иного символа в строке, не Instr чтоб в цикле определять а сразу
Задал функцию к конретному String-у и она бы возвратила результат
Спасибо
С уважением...

0

Используй регулярные выражения из VBScript

0

Можно использовать функцию Replace, которая возвращает строку, где каждое совпадение изменяется на новую строку.
Работает на удивление быстро, так что применимо к данной ситуации можно сравнить длину текущей строки с длиной строки возвращаемой Replace, где нужный символ изменен на пустую строку.
А если на бумаге, то примерно так (если искать надо всегда только один символ, то можно упростить, оставив только первый вариант):

Function FindCountSymbol(ByVal strString As String, ByVal strSymbol As String) As Long
If Len(strSymbol) = 1 Then
FindCountSymbol = Len(strString) - Len(Replace$(strString, strSymbol, vbNullString))
ElseIf Len(strSymbol) > 1 Then
FindCountSymbol = Len(strString) - Len(Replace$(strString, strSymbol, Mid$(strSymbol, 2)))
Else
FindCountSymbol = 0
End If
End Function

Private Sub Form_Load()
MsgBox FindCountSymbol('....W...WW..WWWWW.', 'W') ' вернет 8
MsgBox FindCountSymbol('....W...WW..WWWWW.', 'WW') ' вернет 3
MsgBox FindCountSymbol('....W...WW..WWWWW.', 'WWW') ' вернет 1
End Sub

0

На правахидеи- воспользоватся ф-й Split и узнать размерность массива...

0