|
Есть две строки. Нужно вывести символы поочередно. |
☑ |
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) То есть мы тебе еще условия должны дать? А вопрос задается с целью, чтобы не было потом криков, когда в твою задачу войдут реальные данные
|
|
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший