1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

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

    LIGHT Гость

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

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

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    Для: 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
     
  3. LIGHT

    LIGHT Гость

    Репутация:
    0
    <!--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

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

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

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    <!--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) '- вот тут мы видим кол-во запятых в строке
    ...
     
  6. Constantin A Chervonenko

    Constantin A Chervonenko Well-Known Member
    Lotus team

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

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