в ут 11 загружаю файл, в файле много строк. Есть сроки аналогичные этой: "Дата события в архиве: 24.09.20143 04.03.2016 ". как мне сделать проверку на последние символы (конкретно "3 04.03.2016")? эти    символы имеют такой тип всегда, тоесть могут быть "4 15.11.2014". Тоесть как то разбить строку надо или как? проверка такого формата: "если "3 04.03.2016" тогда ..."

Открой в СП раздел "Функции работы со значениями типа Строка". Там всё есть.

Если Прав(Строка, 12) = "3 04.03.2016" Тогда

...

КонецЕсли

А вообще да, (1) более правильный ответ

(3) я уже тоже нашла, спасибо ребятки) но "= "3 04.03.2016"" не получится, всегда разные числа

(4) А что с чем надо-то сравнивать?

(5) как я поняла ее бы спасли регулярные выражения, если бы они были.
Формат окончания строки всегда одинаковый, а сами цифры разные. Надо найти все строки по этому формату.

(6) Читать как "У тех строк которые нужны автору - формат окончания строк всегда одинаковый"

(5) ч = число, п - пробел, т - точка: если формат такой "ЧпЧЧтЧчтЧЧЧЧ"

(5) и если формат такой, тогда я разбираю эту строку и первое число присваиваю реквизиту, и дату - другому реквизиту

(7) да, Вы правы)

(9) Напиши свою функцию проверки формата, и передавай туда правые 12 символов.

(8) Ну так проверь только на точки и пробел. Сильно сомневаюсь, что при таком формате могут встречаться буквы...

это наверное нужно  сначала СокрЛП(прав(СтрТекстДок,13))  , потом каждый символ перебрать и сравнить его тип

(11) правые 13, там последний пробел всегда

+(12) Как-то так:

ДлинаСтроки = СтрДлина(СтрТекстДок);
Если Сред(СтрТекстДок, ДлинаСтроки - 11, 1) = " " И Сред(СтрТекстДок, ДлинаСтроки - 8, 1) = "." И Сред(СтрТекстДок, ДлинаСтроки - 5, 1) = "." Тогда
    //Твой код по захвату мира

(13) у символа нет типа, есть код
Н-р:
КодСимвола = КодСимвола("1");
вернет 49

Коды символов "0"-"9" 48-57 соответственно

а я так думала сделать Если Найти(Строка," ") = 2 и Найти(СтрТекстДок,".")=5 и Найти(СтрТекстДок,".")=8

Перем RegExp;
//
Функция МнеЭтоПодходит(СтрокаПроверки)
  Возврат RegExp.Test(СтрокаПроверки);
КонецФункции
//
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.Pattern =  "\d \d\d\.\d\d\.\d\d\d\d$";

Если Найти(Строка," ") = 2 и Найти(СтрТекстДок,".")=5 и Найти(СтрТекстДок,".")=8

(17) не сработает
если Найти(СтрТекстДок,".")=5
то он всегда будет 5 возвращать

(17) А кто тебе сказал, что Найти() ищет дальше? Она ищет первое вхождение и всё...

ой, Если Найти(Строка," ") = 2 и Найти(Строка,".")=5 и Найти(Строка,".")=8, вот так ведь сработает? (18) а можете рассказать поподробнее, пожалуйста?

(22) Найти() возвращает первый найденный результат.

(21) тогда Вашим методом воспользоваться лучше? после обеду буду пробовать, спасибо всем откликнувшимся) а (18) расскажи поподробнее пожалуйста

(22) Книга знаний: Использование регулярных выражений (RegExp) в 1С

(24) "тогда Вашим методом воспользоваться лучше?"
А (15) ты пропустила, видимо...

(26) я его и имела ввиду)

пипеееец, бывает и такой формат "13 04.03.2016"

тоесть первое число двузначное((((((((((( теперь вообще фиг сделаешь((

(29) Да ну нафуй)) Показывай код, что уже сделано.

(30)
ДатаАкта = "";
    ТабАктов = Новый ТаблицаЗначений;
    ТабАктов.Колонки.Добавить("НомерДела");
    ТабАктов.Колонки.Добавить("ДатаДела");
    ТабАктов.Колонки.Добавить("НомераТомов");
    ТабАктов.Колонки.Добавить("ВсегоТомов");
    ТабАктов.Колонки.Добавить("НомерПоАкту");
    ТабАктов.Колонки.Добавить("СрокХранения");
    ТабАктов.Колонки.Добавить("ОкончаниеХранения");
    
    ТекстДок = Новый ТекстовыйДокумент;
    ТекстДок.УстановитьТекст(ИсхТекст);
    ТекстДок.РазделительСтрок = Символы.ПС;
    НомСтр = 1;
    Пока НомСтр <= ТекстДок.КоличествоСтрок() Цикл
        СтрТекстДок = ТекстДок.ПолучитьСтроку(НомСтр);
        Если Найти(СтрТекстДок,"Дата события в архиве") >0 Тогда
            ДатаАкта = РасчетДаты(СтрЗаменить(Сред(СтрТекстДок,Найти(СтрТекстДок,"Дата события в архиве")+23,10),".",""));
        КонецЕсли;
            
        Если СтрДлина(СтрТекстДок) > 20 И ПроверитьНаЧисло(Лев(СтрТекстДок,Найти(СтрТекстДок," ")-1)) И Найти(СтрТекстДок," от ") > 0 Тогда
            СтрТаб = ТабАктов.Добавить();
            СтрТаб.НомерПоАкту = Лев(СтрТекстДок,Найти(СтрТекстДок," ")-1);
            СтрТаб.НомерДела = Сред(СтрТекстДок,Найти(СтрТекстДок," ")+1,Найти(СтрТекстДок," от ")-(Найти(СтрТекстДок," ")+1));
            СтрТаб.ДатаДела = Сред(СтрТекстДок,Найти(СтрТекстДок," от ")+4,СтрДлина(СтрТекстДок)-(Найти(СтрТекстДок," от ")+3));
            КоличествоТомов = 0;
        КонецЕсли;
        
        Если ПроверитьНаЧисло(СтрТекстДок) Тогда
            Если КоличествоТомов = 0 Тогда
                СтрТаб.НомераТомов = Лев(СтрТекстДок,СтрДлина(СтрТекстДок)-1);
            Иначе
                СтрТаб.НомераТомов = СтрТаб.НомераТомов + ","+ Лев(СтрТекстДок,СтрДлина(СтрТекстДок)-1);
            КонецЕсли;
            КоличествоТомов = КоличествоТомов+1;
            СтрТаб.ВсегоТомов = КоличествоТомов;
        КонецЕсли;
        //наш кусок, который делаем=)
        строка =СокрЛП(прав(СтрТекстДок,13));
        ДлинаСтроки = СтрДлина(строка);
        Если Сред(строка, ДлинаСтроки - 11, 1) = " " И Сред(строка, ДлинаСтроки - 8, 1) = "." И Сред(строка, ДлинаСтроки - 5, 1) = "." Тогда
            СтрТаб.СрокХранения = Лев(строка, 1);
            СтрТаб.ОкончаниеХранения = Прав(строка,10);
        КонецЕсли;
        //Конец
        НомСтр = НомСтр+1;            
    КонецЦикла;

Аптека?
Вам, по сути важна только последняя дата.

или архивариус :)

(0)
попытка
строкаИлиНет=строкаИлиНет+"";
перем=1;
исключение
перем=2;
конецПопытки;

(31) Вместо

        строка =СокрЛП(прав(СтрТекстДок,13));
        ДлинаСтроки = СтрДлина(строка);
        Если Сред(строка, ДлинаСтроки - 11, 1) = " " И Сред(строка, ДлинаСтроки - 8, 1) = "." И Сред(строка, ДлинаСтроки - 5, 1) = "." Тогда
            СтрТаб.СрокХранения = Лев(строка, 1);
            СтрТаб.ОкончаниеХранения = Прав(строка,10);
        КонецЕсли;

Делай так:

        строка = СокрЛП(СтрТекстДок);
        ДлинаСтроки = СтрДлина(строка);
        Если Сред(строка, ДлинаСтроки - 11, 1) = " " И Сред(строка, ДлинаСтроки - 8, 1) = "." И Сред(строка, ДлинаСтроки - 5, 1) = "." Тогда
            СтрТаб.СрокХранения = ?(Сред(строка, ДлинаСтроки - 18, 1) = ".", Сред(строка, ДлинаСтроки - 13, 1), Сред(строка, ДлинаСтроки - 14, 2));
            СтрТаб.ОкончаниеХранения = Сред(строка, ДлинаСтроки - 10, 10);
        КонецЕсли;

В (25) самый правильный ответ. Не изобретайте сноуборд.

+(35) То есть, не надо обрезать строку, работай с полной строкой.

(37) я тоже так подумала, но не подойдет, потому что длина строки будет меняться из-за это числа перед второй датой

а есть ли какой нибудь метод отбрасывающий левую часть. тоесть я пишу сколько первых символов отбросить. тогда я у начальной строки отбросила бы первые ненужные символы(они то всегда одинаковые"Дата события в архиве: 24.09.2014")

(36) я там не поняла(

(39) есть, но попробуй все таки (35) все нормально сработает)

(41) ааа, все увидела), что когда он присваивает значение переменной - там условие спрятано)

(39) Удивишься, но это метод Прав() :))

(43) нет, вы меня не поняли, при методе прав, я указываю число символов справа и их же получаю, а я хочу указать число символов, которые отбросились бы слева

(44) Сред()

(44) А посчитать не судьба?
Прав(Строка, СтрДлина(Строка)-НужноеКоличествоСимволовСлева)

строка = СокрЛП(СтрТекстДок);
        ДлинаСтроки = СтрДлина(строка);
        Если Сред(строка, ДлинаСтроки - 11, 1) = " " И Сред(строка, ДлинаСтроки - 8, 1) = "." И Сред(строка, ДлинаСтроки - 5, 1) = "." Тогда
            ВремСтрока = СокрЛП(Лев(Строка, ДлинаСтроки - 10));
            НомерСимвола = СтрДлина(ВремСтрока);
            ТекСимвол = "";
            Пока ТекСимвол <> "." ИЛИ НомерСимвола > 0 Цикл
                НомерСимвола = НомерСимвола - 1;
                ТекСимвол = Сред(ВремСтрока, НомерСимвола, 1);
            КонецЦикла;
            СтрТаб.СрокХранения = Прав(ВремСтрока, СтрДлина(ВремСтрока) - НомерСимвола);
            СтрТаб.ОкончаниеХранения = Сред(строка, ДлинаСтроки - 10, 10);
        КонецЕсли;

(40) Это конечно же аргумент, да-ооо!
http://habrahabr.ru/post/115825/

(47) Эх, забыл 4 символа отнять, исправляюсь:

        строка = СокрЛП(СтрТекстДок);
        ДлинаСтроки = СтрДлина(строка);
        Если Сред(строка, ДлинаСтроки - 11, 1) = " " И Сред(строка, ДлинаСтроки - 8, 1) = "." И Сред(строка, ДлинаСтроки - 5, 1) = "." Тогда
            ВремСтрока = СокрЛП(Лев(Строка, ДлинаСтроки - 10));
            НомерСимвола = СтрДлина(ВремСтрока);
            ТекСимвол = "";
            Пока ТекСимвол <> "." ИЛИ НомерСимвола > 0 Цикл
                НомерСимвола = НомерСимвола - 1;
                ТекСимвол = Сред(ВремСтрока, НомерСимвола, 1);
            КонецЦикла;
            СтрТаб.СрокХранения = Прав(ВремСтрока, СтрДлина(ВремСтрока) - НомерСимвола + 4);
            СтрТаб.ОкончаниеХранения = Сред(строка, ДлинаСтроки - 10, 10);
        КонецЕсли;

Простите, пример файла (строк 2-10) можно посмотреть?

(0) Что за файл?
Откуда он такой?
Если пишут в текстовый реквизит любую дату... то
"Попытка Автоматизировать Бардак, получаем Автоматизированный бардак" :)

(48) спасибо, вечером изучу всё досканально)(51) html файл (49) Вам большущее спасибо) (46) Вам спасибо за нравственные учения) я честно честно сама тоже много делаю и читаю и изучаю, но когда в тупик захожу - обращаюсь)

(52) Не было бы фотки в профиле и меня бы тут не было :)

+(53) Кстати, фотку можно уже и обновить)

(54) на выходных только, на работе нету)

(50) а зачем?

(56) Уже говорили, темная, очки большие...

(57) да я не про фото)

(48) кстати, очки - не дурачки у меня

с = "3 04.03.2016";
Если СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(с, "9","0"), "8","0"), "7","0"), "6","0"), "5","0"), "4","0"), "3","0"), "2","0"), "1","0") = "0 00.00.0000" Тогда

(60) Читай (28) :)

А можно загрузить тз в запрос, и там проверить на "ПОДОБНО".

(61) Ну "или" можно добавить, тертически

(49) ааа, это бесконечный цикл((

(28) тогда нужно просто поменять последнюю строчку  в (18) на
RegExp.Pattern =  "\d?\d \d\d\.\d\d\.\d\d\d\d$";
переходите уже на темную сторону силы)

(65) я сегодня вечером вашу сторону изучать начну))))
в общем изменила я код чуть добавила еще одну на проверку, тк, попадаются ненужные строки, у которых окончание похожее, но всё работает)))) всем спасибо, вот конечный результат


строка = СокрЛП(СтрТекстДок);
        ДлинаСтроки = СтрДлина(строка);
        
        Попытка
            Проверка = Число(Сред(строка, ДлинаСтроки - 11, 1));
        Исключение
            Проверка = Сред(строка, ДлинаСтроки - 11, 1);
        КонецПопытки;
        
        Если Сред(строка, ДлинаСтроки - 10, 1) = " " И Сред(строка, ДлинаСтроки - 7, 1) = "." И Сред(строка, ДлинаСтроки - 4, 1) = "." и ТипЗНЧ(Проверка) = Тип("Число") Тогда
            ВремСтрока = СокрЛП(Лев(Строка, ДлинаСтроки - 10));
            Если СтрДлина(ВремСтрока)=35 тогда
                СтрТаб.СрокХранения = Прав(ВремСтрока,2);
            ИначеЕсли СтрДлина(ВремСтрока)=34 тогда
                СтрТаб.СрокХранения = Прав(ВремСтрока,1);
            КонецЕсли;
            СтрТаб.ОкончаниеХранения = Сред(строка, ДлинаСтроки - 9, 10);
        КонецЕсли;