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

  • Автор темы LIGHT
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

LIGHT

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

morpheus

скриптописец
07.08.2006
3 915
1
#2
Для: 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
 
L

LIGHT

#3
<!--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]​
 

morpheus

скриптописец
07.08.2006
3 915
1
#5
<!--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) '- вот тут мы видим кол-во запятых в строке
...
 
Статус
Закрыто для дальнейших ответов.