Как отредактировать строку Конфигуратором?

1С v8

11.02.15

✎

08:04

добрый день!
имется строка вида: "5834349568 ООО "ИВАНОВ, ПЕТРОВ, СИДОРОВ""
нужно получить строку: ООО "ИВАНОВ, ПЕТРОВ, СИДОРОВ"

как это можно сделать?

1 lxndr

11.02.15

✎

08:10

удал "5834349568 "

2 lxndr

11.02.15

✎

08:10

*удали

3 program345

11.02.15

✎

08:15

(2)  вместо 5834349568 мб любое число...

Для сч=0 по 9 Цикл

    Переменная1 = СтрЗаменить(Переменная1, сч, "");

КонецЦикла;

Переменная1= СокрЛ(Переменная1);
Сообщить(Переменная1);

4 Mankubus

11.02.15

✎

08:17

разложи в массив подстрок и удали первую часть

5 lxndr

11.02.15

✎

08:18

отпили до первого пробела

6 1Сергей

11.02.15

✎

08:35

В конфигураторе есть отличный текстовый редактор. Проблем вообще не вижу

7 program345

11.02.15

✎

08:36

Переменная1 = прав(переменная1, Стрдлина(переменная1)-Найти(Переменная1," "));
(5)

8 lxndr

11.02.15

✎

08:40

(7) ну типо того

9 program345

11.02.15

✎

08:42

(6) а где он находится?

10 Mankubus

11.02.15

✎

08:59

(9) файл-выход

11 Vladal

11.02.15

✎

09:12

(0) Может, не "Конфгуратором", а "Программно"?
Тогда надо парсить строку, убирая все цифры слева или отрезав первое слово.

1. Найти первую позицию пробела.
2. Выделить всё, что справа от него в результирующую строку

ПервыйСимволПробела = Найти(Переменная1, " ");
Результат = Прав(Переменная1, ПервыйСимволПробела);

12 Vladal

модератор

11.02.15

✎

09:15

ТС, формулируй внятно мысль.

Мемберы, вы же понимаете, что он хотел спросить, вы же 1С-ники, прирожденные телепаты.

13 program345

11.02.15

✎

09:22

(10) выходит

14 kosts

11.02.15

✎

09:31

 

Если строка = "5834349568 ООО ""ИВАНОВ, ПЕТРОВ, СИДОРОВ""" Тогда

    строка = "ООО ""ИВАНОВ, ПЕТРОВ, СИДОРОВ""";

КонецЕсли;

15 MSOliver

11.02.15

✎

09:32

Функция ЭтоЧисло(Символ)
Попытка
Темп = Число(Символ);
Возврат Истина;
Исключение
Возврат Ложь;
КонецПопытки
КонецФункции

16 program345

11.02.15

✎

09:33

(11) это не работает.
Переменная1 = прав(переменная1, Стрдлина(переменная1)-Найти(Переменная1," "));

17 MSOliver

11.02.15

✎

09:35

(14) Переменная не определена (строка)

18 MSOliver

11.02.15

✎

09:37

Функцию надо было назвать ЭтоЦифра

19 vhl

11.02.15

✎

09:45

Результат = СтрЗаменить("5834349568 ООО "ИВАНОВ, ПЕТРОВ, СИДОРОВ","5834349568","");

20 vhl

11.02.15

✎

09:47

Чем тебе код из (3) не подходит?

21 kosts

11.02.15

✎

09:49

Вот вполне рабочий вариант



Функция ОтредактироватьСтрокуКонфигуратором(ИсходнаяСтрока)

    

    с1 = Лев(ИсходнаяСтрока, 1);

    Если с1 = "" Тогда

        Возврат "";

    ИначеЕсли Найти("0123456789", с1) > 0 Тогда

        Возврат ОтредактироватьСтрокуКонфигуратором(Сред(ИсходнаяСтрока, 2));

    Иначе

        Возврат ИсходнаяСтрока;

    КонецЕсли;

    

КонецФункции

22 Serg_1960

11.02.15

✎

10:17

Без рекурсии

МногоСтрочное = СтрЗаменить(ИсходнаяСтрока, " ", Символы.ПС);
ПервоеСлово = СтрПолучитьСтроку(МногоСтрочное, 1);
Если ОбщегоНазначения.ТолькоЦифрыВСтроке(ПервоеСлово) Тогда
ИсходнаяСтрока = Сред(ИсходнаяСтрока, СтрДлина(ПервоеСлово)+1);
КонецЕсли;

23 program345

11.02.15

✎

11:37

спасибо ок