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

Тема в разделе "Lotus - Программирование", создана пользователем LIGHT, 15 июн 2007.

Статус темы:
Закрыта.
  1. LIGHT

    LIGHT Гость

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: LIGHT
    ну можно из строки создать масив, а при создании указать что разделителем между элементами будут ","
    Ubound и покажет вам потом количество
    Пример
    Код (Text):
     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
     
  3. LIGHT

    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
    Для подобного примера я и хочу узнать сколько разделителей всего, что бы подставить

     
  4. RAJ

    RAJ Well-Known Member

    Регистрация:
    17 янв 2007
    Сообщения:
    440
    Симпатии:
    0
    MyCounts = UBound(ret) не подойдёт?
     
  5. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    <!--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]
    НУ канечно, я просто привел пример из хэлпа
    вам и не надо выводить на экран

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

    Constantin A Chervonenko Well-Known Member

    Регистрация:
    30 май 2006
    Сообщения:
    1.288
    Симпатии:
    0
    "Но есть способ лучше!"(с)
    Код (Text):
    nd:=@Length(src)-@Length(@ReplaceSubstring(src;dlm))
     
Загрузка...
Похожие Темы - Count подсчитать количество
  1. ToxaRat
    Ответов:
    7
    Просмотров:
    282
  2. rinsk
    Ответов:
    12
    Просмотров:
    1.862
  3. Akupaka
    Ответов:
    20
    Просмотров:
    7.812
  4. sanch
    Ответов:
    6
    Просмотров:
    3.352
  5. Dmitriy878787
    Ответов:
    1
    Просмотров:
    910
Статус темы:
Закрыта.

Поделиться этой страницей