Имя: Пароль:
1C
1С v8
Есть две строки. Нужно вывести символы поочередно.
,
0 gmo666
 
20.01.20
07:49
Помогите реализовать вывод с двух строк данные посимвольно.
Пример. Есть форма с двумя полями ввода.
Поле ввода1: Привет
Поле ввода2: Мир!!!

На выходе должно быть: ПМ ри в! е! т!
1 gmo666
 
20.01.20
07:50
Либо так:
ПМ
ри
в!
е!
т!
2 AAA
 
20.01.20
07:52
Цикл "Ном" от 1 до длины строки и Сред(Строка, Ном, 1)
3 Мимохожий Однако
 
20.01.20
07:52
(1) Ну, так и выведи.
4 Garykom
 
гуру
20.01.20
07:53
Странно. Куча 1Сников сваливают из 1С, а тут наборот туда прутся. Нафуя?
5 K1RSAN
 
20.01.20
07:56
А если разное количество символов в строчках - что тогда должно выводиться?
6 gmo666
 
20.01.20
08:46
&НаКлиенте
Процедура Результат(Команда)
    Для НомерСимвола = 1 По СтрДлина(Объект.Строка1) Цикл
    Символ1 = Сред(Объект.Строка1, НомерСимвола, 1);
    Сообщить(Символ1);
    КонецЦикла;
    
    Для НомерСимвола = 1 По СтрДлина(Объект.Строка2) Цикл
    Символ2 = Сред(Объект.Строка2, НомерСимвола, 1);
    Сообщить(Символ2);
КонецЦикла;
    
КонецПроцедуры

Выводит:
1
2
3
4
5
6
1
2
3
4
5
6

Как сделать так, чтобы выводил:
11
22
33
44
55
66
Подскажите
7 catena
 
20.01.20
08:50
(6)Ответь на вопрос, что делать, если стрдлина разная будет?
8 Kigo_Kigo
 
20.01.20
08:52
&НаКлиенте
Процедура Результат(Команда)
    Для НомерСимвола = 1 По СтрДлина(Объект.Строка1) Цикл
     Символ1 = "";
     Символ2 = "";
    Символ1 = Сред(Объект.Строка1, НомерСимвола, 1);
    Символ2 = Сред(Объект.Строка2, НомерСимвола, 1);
    Символ1  = Символ1 + Символ2;
    Сообщить(Символ1);

    КонецЦикла;
    
    
КонецЦикла;
    
КонецПроцедуры
9 gmo666
 
20.01.20
08:56
(8) Благодарю!
Держи большой + к КАРМЕ!
10 MarusikS
 
20.01.20
09:02
(8) А если строка 1 короче, чем строка 2?
11 Kigo_Kigo
 
20.01.20
09:04
(10) Какой вопрос такой и ответ, дальше пусть сам думает, чем ему добивать строки до одинаковой длины
12 gmo666
 
20.01.20
09:05
(10)
Строка1: 12
Строка2: 1234

Вывод:
12
12
13 gmo666
 
20.01.20
09:06
(7) Вот ты мне и ответь.
Жду
14 ezhikofff
 
20.01.20
09:10
(13) так от задачи же зависит, догонять ли длину первого до второго и наоборот и чем, вопрос к автору
15 gmo666
 
20.01.20
09:15
В моем примере, вводятся строки одинаковой длины.
16 MarusikS
 
20.01.20
09:21
(15) Т.е. с камандой ветвления еще не знакомы?
17 ПесДобряк
 
20.01.20
09:24
Для НомерСимвола = 1 По Макс( СтрДлина(Объект.Строка1), СтрДлина(Объект.Строка2)) Цикл
18 K1RSAN
 
20.01.20
09:26
(13) (15) То есть мы тебе еще условия должны дать? А вопрос задается с целью, чтобы не было потом криков, когда в твою задачу войдут реальные данные
AdBlock убивает бесплатный контент. 1Сергей