Count подсчитать количество нужный занков

[LIGHT]

Подскажите пожалуйста как в переменной (текстовой) подсчитать количество оперделенных знаков.
Например
Z="Моя длинная строка, которая содержит, 2 запятых"
Как подсчитать сколько в этой сроке запятых на LS?

 

[morpheus]

Для: LIGHT
ну можно из строки создать масив, а при создании указать что разделителем между элементами будут ","
Ubound и покажет вам потом количество
Пример

 Sub Initialize
Dim ret As Variant
dim teststr as string
Dim delim As String
teststr = "This is the Connection"
delim = " "
ret = split(teststr, delim)
For x = 0 to 3
Print ret(x)
Next
End Sub 
'OUTPUT
'This
'is
'the
'Connection

 

[LIGHT]

<!--QuoteBegin-Morpheus+15:06:2007, 16:00 -->
<span class="vbquote">(Morpheus @ 15:06:2007, 16:00 )</span><!--QuoteEBegin-->For x = 0 to 3
Print ret(x)
Next

[snapback]69538" rel="nofollow" target="_blank[/snapback]​

[/quote]

Тут ругается, дело в том что 0 to 3 подразумевает что разделителя 4шт.
0
1
2
3
Для подобного примера я и хочу узнать сколько разделителей всего, что бы подставить

For x = 0 to MyCounts
Print ret(x)
Next

[snapback]69538" rel="nofollow" target="_blank[/snapback]​

 

[RAJ]

MyCounts = UBound(ret) не подойдёт?

 

[morpheus]

<!--QuoteBegin-LIGHT+15:06:2007, 15:03 -->
<span class="vbquote">(LIGHT @ 15:06:2007, 15:03 )</span><!--QuoteEBegin-->3 подразумевает что разделителя 4шт.

[snapback]69539" rel="nofollow" target="_blank[/snapback]​

[/quote]
НУ канечно, я просто привел пример из хэлпа
вам и не надо выводить на экран

...
Dim ret As Variant
dim teststr as string
Dim delim As String
teststr = "Моя длинная строка, которая содержит, 2 запятых"
delim = ","
ret = split(teststr, delim)
MyCounts = UBound(ret) '- вот тут мы видим кол-во запятых в строке
...

 

[Constantin A Chervonenko]

"Но есть способ лучше!"(с)

nd:=@Length(src)-@Length(@ReplaceSubstring(src;dlm))