8.х Получить последовательность символов из строки

Тема в разделе "Общие вопросы "1С:Предприятие 8"", создана пользователем ILDARIAN, 20 ноя 2013.

0/5, Голосов: 0
Страница 1 из 2
  1. TopicStarter Overlay
    ILDARIAN
    Offline

    ILDARIAN Опытный в 1С

    Регистрация:
    6 янв 2013
    Сообщения:
    131
    Симпатии:
    1
    Баллы:
    29
    Добрый день!

    Такая задачка: нужно из строки получить последовательность из 5 цифр подряд. И записать её в переменную.
    ------------
    Например если есть строка : "ываыва 8ва07ываыв789а!! ываыва7ы!! ваа88773фывн7№№;?*(*" , то нужно получить от сюда только 88773. Как это можно сделать ?
    ILDARIAN, 20 ноя 2013
    #1
  2. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.145
    Симпатии:
    554
    Баллы:
    204
    Перебираете строку по маске.

    В СП посмотрите Найти()
    alexburn, 20 ноя 2013
    #2
  3. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    по идее можно попробовать использовать функцию преобразования Число(). Если сможет преобразовать - значит нашли последовательность, если внутри строки хоть один символ не преобразуется в числовой, то выдаст ошибку
    Tiger86, 20 ноя 2013
    #3
  4. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    а только цифровую последовательность, или вот так может быть "888,2"

    если может, то вот
    Код:
    стр = ЭлементыФормы.ПолеВвода1.Значение;
Пока СтрДлина(стр) > 5 Цикл
тмп = Лев(стр, 5);
Попытка
ч = Число(тмп);
ЭлементыФормы.ПолеВвода2.Значение = ЭлементыФормы.ПолеВвода2.Значение + тмп + ", ";
Исключение

КонецПопытки;
стр = Прав(стр, СтрДлина(стр) - 1);
КонецЦикла;
    Tiger86, 20 ноя 2013
    #4
  5. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.145
    Симпатии:
    554
    Баллы:
    204
    вы почитайте про функцию Найти()
    alexburn, 20 ноя 2013
    #5
  6. TopicStarter Overlay
    ILDARIAN
    Offline

    ILDARIAN Опытный в 1С

    Регистрация:
    6 янв 2013
    Сообщения:
    131
    Симпатии:
    1
    Баллы:
    29
    буду делать через функцию найти()..
    Вот такой код

    Код:
    Функция ПолучитьИндексКонтрагента(ТекСтрока)
НоваяСтрока = "";
Если Найти(ТекСтрока, "12345") > 0 Тогда
НоваяСтрока = НоваяСтрока + ТекСтрока;
КонецЕсли;
возврат НоваяСтрока;


КонецФункции
    Вопрос: как вместо "12345" задать маску из пяти произваольных чисел ?
    ILDARIAN, 20 ноя 2013
    #6
  7. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    и как она тут поможет?
    Tiger86, 20 ноя 2013
    #7
  8. TopicStarter Overlay
    ILDARIAN
    Offline

    ILDARIAN Опытный в 1С

    Регистрация:
    6 янв 2013
    Сообщения:
    131
    Симпатии:
    1
    Баллы:
    29
    В строке может быть куча всего, важно найти там именно последовательность из 5 цифр подряд, без запятых или чего либо другого
    ILDARIAN, 20 ноя 2013
    #8
  9. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    через Найти я не знаю как задать маску и можно ли это сделать, вот подкорректировала свой вариант
    Код:
    стр = ЭлементыФормы.ПолеВвода1.Значение;
Пока СтрДлина(стр) > 5 Цикл
тмп = Лев(стр, 5);
Если Найти(тмп, ",") = 0 И Найти(тмп, ".") = 0 Тогда
Попытка
ч = Число(тмп);
ЭлементыФормы.ПолеВвода2.Значение = ЭлементыФормы.ПолеВвода2.Значение + тмп + ", ";
Исключение  
КонецПопытки;
КонецЕсли;
стр = Прав(стр, СтрДлина(стр) - 1);
КонецЦикла;
    Tiger86, 20 ноя 2013
    #9
  10. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.145
    Симпатии:
    554
    Баллы:
    204
    Читать умеете ?????
    alexburn, 20 ноя 2013
    #10
  11. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    да не глупая вроде... напишите ваш вариант кода, чего мучать то тут всех
    Tiger86, 20 ноя 2013
    #11
  12. TopicStarter Overlay
    ILDARIAN
    Offline

    ILDARIAN Опытный в 1С

    Регистрация:
    6 янв 2013
    Сообщения:
    131
    Симпатии:
    1
    Баллы:
    29
    я это читал, если бы мне нужно было найти конкретный номер, то данная функция помогла бы.
    ILDARIAN, 20 ноя 2013
    #12
  13. TopicStarter Overlay
    ILDARIAN
    Offline

    ILDARIAN Опытный в 1С

    Регистрация:
    6 янв 2013
    Сообщения:
    131
    Симпатии:
    1
    Баллы:
    29
    Немного не могу разобраться. Функция перебирает по по 5 символов строки, пока не найдет 5 цифр подряд, при чем в таком порядке 1-5, 6-10 и тд ?
    ILDARIAN, 20 ноя 2013
    #13
  14. Ludmillka
    Offline

    Ludmillka Опытный в 1С

    Регистрация:
    13 сен 2013
    Сообщения:
    159
    Симпатии:
    0
    Баллы:
    26
    Может попробовать поискать через Регулярные выражения?
    Ludmillka, 20 ноя 2013
    #14
  15. TopicStarter Overlay
    ILDARIAN
    Offline

    ILDARIAN Опытный в 1С

    Регистрация:
    6 янв 2013
    Сообщения:
    131
    Симпатии:
    1
    Баллы:
    29
    ещё ищет запятые и точки. Прокомментируйте пожалуйста код.
    ILDARIAN, 20 ноя 2013
    #15
  16. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    1-5, 2-6, 3-7 и т.д.
    Tiger86, 20 ноя 2013
    #16
  17. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.145
    Симпатии:
    554
    Баллы:
    204
    Вот вам алгоритм, а не код.
    0. Проверяете строку (каждый символ) на равенство цифре (или же цифровому коду ASCI), все это делаете в цикле длиной 5. (или делаете свой итератор, но условие = 5). Если такая строка находится - переходим к 1. иначе на 3.
    1. Используете функцию найти(). если находит - возвращает номер позиции первого сивола (подстроки)
    2. Обрезаете слева строку до этого символа длиной 5 символов.
    3. Коенц, е....т
    alexburn, 20 ноя 2013
    #17
  18. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    Код:
    стр = ЭлементыФормы.ПолеВвода1.Значение;
Пока СтрДлина(стр) > 5 Цикл  //цикл идет до последней комбинации из 5 символов
тмп = Лев(стр, 5); //для проверки всегда беерем 5 соседних символов сначала строки
Если Найти(тмп, ",") = 0 И Найти(тмп, ".") = 0 Тогда   //исключаем "," или".", в этом случае Число() - отработает и выдаст дробное число
Попытка
ч = Число(тмп); //если точек и запятых нет, пытаемся преобразовать в число
ЭлементыФормы.ПолеВвода2.Значение = ЭлементыФормы.ПолеВвода2.Значение + тмп + ", "; //если смогли, то комбинацию выводим в поле на форме
Исключение  
КонецПопытки;
КонецЕсли;
стр = Прав(стр, СтрДлина(стр) - 1); //отрезаем от строки левый символ и повторяем процедуру
КонецЦикла;
    Tiger86, 20 ноя 2013
    #18
  19. TopicStarter Overlay
    ILDARIAN
    Offline

    ILDARIAN Опытный в 1С

    Регистрация:
    6 янв 2013
    Сообщения:
    131
    Симпатии:
    1
    Баллы:
    29
    Если функция находит "," или "." то заменяет их на 0 ?
    ILDARIAN, 20 ноя 2013
    #19
  20. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.145
    Симпатии:
    554
    Баллы:
    204
    Это не замена, а условие.

    Читали описание НАЙТИ() ????
    alexburn, 20 ноя 2013
    #20
Страница 1 из 2
Похожие темы
  1. Катерина

    8.х Как получить код строки в ASCII?

    Катерина, 24 апр 2007, в разделе: Общие вопросы "1С:Предприятие 8"
    Ответов:
    0
    Просмотров:
    1.276
    Катерина
    24 апр 2007
  2. atiradeongra

    8.х получить XML файл в виде строки

    atiradeongra, 18 май 2009, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    1
    Просмотров:
    838
    lazy
    18 май 2009
  3. WWW123

    8.х Получить номер строки и колонки.

    WWW123, 13 сен 2010, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    14
    Просмотров:
    2.168
    Itsys
    14 сен 2010
  4. Екатеринка

    8.х РОЗ Получить значение из строки

    Екатеринка, 11 авг 2011, в разделе: "1С:Розница"
    Ответов:
    4
    Просмотров:
    777
    Екатеринка
    12 авг 2011
  5. Alexandr_M

    [РЕШЕНО] Каким символом обозначается произвольная последовательность символов?

    Alexandr_M, 30 сен 2014, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    6
    Просмотров:
    571
    Alexandr_M
    8 окт 2014
Загрузка...

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