В 1с сделать такую обработку, чтоб она автоматически перевернула текст наоборот т.е зеркально.
Подскажите пожалуйста.

К примеру "Привет, как погода. " --> "тевирП, как адогоп. "

Автор дятел
Приведенный пример не соответствует условию задачи
В задаче фигуриркет необходимость переворота текста
А в примере показан переворот слов, составляющих текст
Подумай еще раз что всетаки нужно
И приходи снова

Со строками работать не умеешь? На работу не возьмут. Тут примитивная логика, 9й класс в школе.

Разрешаю

Походу зачет на носу

(4) Какой зачет? Максимум четверть в школе.

Скакать надо

(6) ?тежомоп А

нужно переворот слов, составляющих текст, как в примере.
Извените.

ну да. через пару недель школьные

каникулы

(8) какие планы?

(11) Ждать, когда тут за него напишут :)

(12) илсЕ икур зи ыпож, огечин ен тежомоп

арабская вязь на входе допустима?

&НаСервере
Функция Переворот(ИсходнаяСтрока)
    НоваяСтрока = "";
    
    СимволыРазделители = " ,.:;()";
    
    Слово = "";
    Для Позиция = 1 по СтрДлина(ИсходнаяСтрока) Цикл
        Символ = Сред(ИсходнаяСтрока,Позиция,1);
        Если Найти(СимволыРазделители,Символ)>0 Тогда // это новое слово
            НоваяСтрока = НоваяСтрока + Слово + Символ;
            Слово = "";
        Иначе
            Слово = Символ + Слово;
        КонецЕсли;
    КонецЦикла;
    
    Если НЕ ПустаяСтрокА(Слово) Тогда
        НоваяСтрока = НоваяСтрока + Слово;
    КонецЕсли;
    
    Возврат НоваяСтрока;
КонецФункции

(15) а не проще было строку в список строк-слов (по разделителям)
и потом не парясь двумя циклами собрать переворачивая?

(16) Человеку, который пишет "извените", уже ничего не поможет.

(0) В прошлой теме отпишись, сделал или нет. А то невежливо, народ помогал, а даже спасибо не видели...

вот мы и дожили до того, как школьники лезут на профессиональный форум с детскими вопросами по зачету по 1С


Строка = "Я - добрый";
Наоборот = "";
СтрДлина = СТрДлина(Строка);
Для СчЦ = 1 по СтрДлина Цикл
   Наоборот = Наоборот + Сред(Строка, СтрДлина-СчЦ+1, 1);
КонецЦикла;


Интересно, сколько народу отпишется теперь, как отзеркалировать текст, не осиля (8).

(21)

Строка = "Это одна и та же самая херня";
Наоборот = "";
Слова = СтрЗаменить(Строка, " ",Символы.ПС);
Для СчЙ = 1 по СтрЧислоСтрок(Слова) Цикл
   Слово = СтрПолучитьСтроку(Слова, СчЙ);
   СтрДлина = СТрДлина(Слово);
   Для СчЦ = 1 по СтрДлина Цикл
      Наоборот = Наоборот + Сред(Слово, СтрДлина-СчЦ+1, 1);
   КонецЦикла;
   Наоборот = Наоборот + " ";
КонецЦикла;
Наоборот = СокрЛП(Наоборот);


(0) Вот держи и не благодари

Функция ЗеркальныйТекст1с1С(т)
    т = СтрЗаменить(т, "Привет", "тевирП");
    т = СтрЗаменить(т, "погода", "адогоп");
    Возврат т;
КонецФункции

(22) и опять не по ТЗ)))
по ТЗ знаки препинания относятся к прошлому слову,
У вас выдаст ",тевирП как .адогоп", а нужно "тевирП, как адогоп."

(23) Возврат "тевирП, как адогоп. " и всех делов

(0) 1000р на телефон, код могу смс-кой прислать

(23) Спасибо тебе за помощь в прошлой теме и сейчас.
И всем спасибо за помощь, извините что я такой тупой (
Может у вас есть какие-то задачи по срокам, чтобы я поучился?

(27) по срокам?
v8 странные записи в ФактическомПериодеДействия

(27) Да ладно, не надо называть себя так. Просто еще не научился. Все через это проходили...

(27) Ну на 1С Розница 1.0 учет по срокам годности

ой, еще и ошибку сделал "строкам" (28)

(31) учительница пусть тебе задачи даёт

(23) а если для любого текста?
универсальная функция?

Блииин))

Алфавит= "абвг...";
Для й = 1 по СтрДлина(Текст) Цикл...
Слово закончилось если символ не в алфавите
разворот слова
Слово началось, если символ в алфавите

алфавит можно задать границами кодов символов, благо - они известны, но перепечатать - проще. НРег в зубы и взлетай.

Что делать, если язык Олбанский - не знаю...

(33) универсальная. с небольшими недокументированными особенностями

Зачем задачи по строкам? Выполняй задачи из Пособия разраб. Радченко и сертификатов

+(34) Предлагаю обсудить. Задача нетривиальная...

(36) рано Радченку ещё

(31) По строкам задача: Айкнглсиие унычёе внлыясии, что ненжаво в ккоай пеендллоооавссттьи соятт буквы в слоавх, гнлоаве - чотбы перавя и пендлояся блыи венрыми, и тгдоа - ткест сндоовбо чеасиття.

Сделайте обработку для кодирующего передатчика, которая подготовит текст согласно выяснениям английских учёных.

(22) как добавить чтобы разделители оставались на своих местах?

(40) в (15) же рабочий код, что вам еще надо?

(40) выложи свой код, тогда можно будет советовать

кто его компьютеру подпустил?

(41)извините, но как ее запустить?

Процедура КнопкаВыполнитьНажатие(Кнопка)

       ИсходнаяСтрока = "Привет. кузя, как дела" ;
       Переворот(ИсходнаяСтрока);
       Сообщить(НоваяСтрока);
КонецПроцедуры


Функция Переворот(ИсходнаяСтрока)  экспорт
    НоваяСтрока = "";
    
    СимволыРазделители = " ,.:;()";
    
    Слово = "";
    Для Позиция = 1 по СтрДлина(ИсходнаяСтрока) Цикл
        Символ = Сред(ИсходнаяСтрока,Позиция,1);
        Если Найти(СимволыРазделители,Символ)>0 Тогда// это новое слово

            НоваяСтрока = НоваяСтрока + Слово + Символ;
            Слово = "";
        Иначе
            Слово = Символ + Слово;
        КонецЕсли;
    КонецЦикла;
    
    Если НЕ ПустаяСтрокА(Слово) Тогда
        НоваяСтрока = НоваяСтрока + Слово;
    КонецЕсли;
    
    Возврат НоваяСтрока;
КонецФункции


Ошибку выдает

(44) http://s1.developerslife.ru/public/images/gifs/4943f4d9-c8bf-419e-a3b4-de1e7dcd6b89.gif

по-моему это средние классы в школе с углубленным гуманитарным уклоном

(46) извини, что я настолько "умен"

(44)
Процедура КнопкаВыполнитьНажатие(Кнопка)

       ИсходнаяСтрока = "Привет. кузя, как дела" ;
       НоваяСтрока = Переворот(ИсходнаяСтрока);
       Сообщить(НоваяСтрока);
КонецПроцедуры

Чорной магии и еромантических оргий пост

    Строка = "Какие же вы, ребята, нудные...";
    Наоборот = "";

    RE = New COMObject("VBScript.RegExp");
    RE.Global        = Истина;
    RE.IgnoreCase    = Истина;
    RE.Multiline    = Истина;
    RE.Pattern = "(\s|\,|.|\:|\;|(|)|[|]|{|})+";

    Match = RE.Execute(Строка);
    Строка = RE.Replace(Строка, Символы.ПС);
    для СчХ=1 по СтрЧислоСтрок(Строка) Цикл
        Слово = СтрПолучитьСтроку(Строка, СчХ);
        СтрДлина = СТрДлина(Слово);
        Для СчЦ = 1 по СтрДлина Цикл
            Наоборот = Наоборот + Сред(Слово, СтрДлина-СчЦ+1, 1);
        КонецЦикла;
        Наоборот = Наоборот + Match.item(СчХ-1).Value;
    КонецЦикла;


маркап поломал мой регэксп, собака. Там все символы должны быть слэшем экранированы

+(49) Иеромантических. Опечатка...

(0) циклом пройдись побуквенно по строке и формируй новую строку
новая строка = новая строка + символ

Строка для проверки "улыбок тебе дед макар"

Эх, какой же я тупой (
Чем я думал раньше

прям попёрло

Строка = "Привет, как погода?";
Буквы = Новый Соответствие;
Буквы["А"] = Истина; Буквы["Б"] = Истина; Буквы["В"] = Истина; Буквы["Г"] = Истина; Буквы["Д"] = Истина; Буквы["Е"] = Истина; Буквы["Ё"] = Истина; Буквы["Ж"] = Истина; Буквы["З"] = Истина; Буквы["И"] = Истина; Буквы["Й"] = Истина; Буквы["К"] = Истина; Буквы["Л"] = Истина; Буквы["М"] = Истина; Буквы["Н"] = Истина; Буквы["О"] = Истина; Буквы["П"] = Истина; Буквы["Р"] = Истина; Буквы["С"] = Истина; Буквы["Т"] = Истина; Буквы["У"] = Истина; Буквы["Ф"] = Истина; Буквы["Х"] = Истина; Буквы["Ц"] = Истина; Буквы["Ч"] = Истина; Буквы["Ш"] = Истина; Буквы["Щ"] = Истина; Буквы["Ы"] = Истина; Буквы["Э"] = Истина; Буквы["Ю"] = Истина; Буквы["Я"] = Истина; Буквы["Ь"] = Истина; Буквы["Ъ"] = Истина;

Наоборот = "";
Слово = "";
Режим = Истина;
Для СчЦ = 1 по СтрДлина(Строка) Цикл
    Символ = Сред(Строка, СчЦ, 1);
    ЭтоБуква = Буквы[Врег(Символ)] = Истина;
    
    Если Режим <> ЭтоБуква Тогда
        Наоборот = Наоборот + Слово;
        Режим = ЭтоБуква;
        Слово = "";
    КонецЕсли;
    
    Слово = ?(ЭтоБуква, Символ + Слово, Слово + СИмвол);    
КонецЦикла;    
Наоборот = Наоборот + Слово;
    
Сообщить(Наоборот);


(54) Сатурну больше не наливать....

(54) Спасибо большое

(22) и тебе спасибо!

ИзвЕнения принимаются :)

(54) Зачем такие сложности для кодописателя? Не проще ли вот так?

Для Счетчик = 1040 По 1071 Цикл
    Буквы[Символ(Счетчик)] = Истина;
КонецЦикла;

Автор тролль!