как получить нужное значение из такого ?

[fialka]

Есть значение зк1234567/1P1,
как получить с этого значения 1234567/1,
то есть обрезать вначале буквы и в конце буквы и всё что после них?

[Lemming]

Я бы, наверное воспользовался str StrRem (str text1,str text2) (описание есть в SystemDocumentation/Functions)

[fialka]

Zitat:

Zitat von Lemming

Я бы, наверное воспользовался str StrRem (str text1,str text2)

ну хорошо, выкину я например P, а как же быть с последними цифрами?

modifSalesPickingListId = strRem(SalesPickingListJournalLine.PickingListId, 'P');

[belugin]

Если речь идет о Ax4 я бы написал регулярное выражение

[fialka]

Zitat:

Zitat von belugin

Если речь идет о Ax4 я бы написал регулярное выражение

Нет.. тут всего лишь тройка

[Lemming]

Zitat:

Zitat von fialka

ну хорошо, выкину я например P, а как же быть с последними цифрами?

modifSalesPickingListId = strRem(SalesPickingListJournalLine.PickingListId, 'P');

Хороший вопрос! Сорри, невнимательно просмотрел исходную строку и решил, что стояла задача избавиться от букв

[fialka]

Zitat:

Zitat von Lemming

Хороший вопрос! Сорри, невнимательно просмотрел исходную строку и решил, что стояла задача избавиться от букв

Эх... хорошо бы только от букв.. А мне надо распилить получается нужно на две части, до буковки Р и после))

[Lucky13]

А так не подойдет:
s - исходная строка

int pos = strfind(s, 'P',1, strlen(s));
str s1 = substr(s,1,pos-1);
str s2 = substr(s,pos+1, strlen(s)-pos-1);

От двух первых букв можно издавиться скажем с помощью strkeep, или отрезать 2 первых символа

[Akinak]

//returns true if needed char found in _str
boolean IsStrOk(str 100 _str)
{
  if (strfind(_str,'0123456789/',1,strlen(_str)))
    return(true);
  else
    return(false);
}
 
While (Cnt <= strlen(str_to_parse))
{
  if ( IsStrOk(SubStr(str_to_parse,Cnt,1)))
  {
    str_to_receive = str_to_receive + SubStr(str_to_parse,Cnt,1);
    // здесь надо ставить break; на знак Р или любой другой закачивающий разбор строки.
  }
  Cnt++;
}

подойдет такой вариант?
З.Ы. переделано на скорую руку из старого проекта, прошу сильно не бить)

[Zuzaz]

Zitat:

Zitat von fialka

Есть значение зк1234567/1P1,
как получить с этого значения 1234567/1,
то есть обрезать вначале буквы и в конце буквы и всё что после них?

Как часто случается, это задание недостаточно формализовано. Без уточнения ряда вопросов по формату номера предлагать варианты бесполезно:
1) вначале всегда идут буквы ? их всегда две, как в примере, или может быть любое число?
2) между начальным и конечным набором букв цифры всегда идут со слешем, или могут быть только цифры ? Могут ли вместо слеша быть и другие знаки, например тире или точка?
3) количество знаков между первым и конечным набором букв всегда одинаково, или может быть любым?
3) в конечном наборе буква всегда одна, или их может быть две и больше ?
4) в конечном наборе всегда идут буквы и потом цифры, или могут быть другие варианты (например, только буквы;буквы, цифры и снова буквы) ? Сколько цифр может быть после последней буквы ?
5) и наконец ключевой вопрос: зачем нужно такое преобразование, какая исходная постановка задачи? Может быть, исходная задача решается другим, более простым способом ? Или может быть, исходная задача такова, что и ваш способ с преобразованием номера её не решит ?

Если подходить формально, решая задачу именно так, как она вами записана, то это так:

S2 = substr(S1,3,9)

[glibs]

Первое, что приходит на ум в конце рабочего дня — организовать цикл по строке с начала в конец, перебирая символы по одному. Запомнить позицию первого правильного, и первого неправильного, который следует после правильного. Потом вырезать подстроку. Функции для определения того, правильный символ или нет в Аксапте есть, и достаточно удобные.

[Zuzaz]

Zitat:

Zitat von glibs

Функции для определения того, правильный символ или нет в Аксапте есть, и достаточно удобные.

glibs, функции-то конечно есть, но для этого нужно четка знать критерии, которые этими функциями будут проверяться. Пока этого нет. Если формат четко такой, как в примере, т.е. 2 буквы вначале и затем 9 знаков номера, то и никакой перебор с проверками не нужен.

[Gustav]

Zitat:

Zitat von Zuzaz

5) и наконец ключевой вопрос: зачем нужно такое преобразование, какая исходная постановка задачи? Может быть, исходная задача решается другим, более простым способом ? Или может быть, исходная задача такова, что и ваш способ с преобразованием номера её не решит ?

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

6) задача разовая или постоянная? (честно говоря, если постоянная, то тогда, как поется в одной бардовской песне, "просто дыбом волоса" от проектирования...)
7) можно ли решить ее вне Аксапты (например, в Excel'е) ?

Zitat:

Zitat von fialka

А мне надо распилить получается нужно на две части, до буковки Р и после))

А во как еще мона :

    [strDO, strPOSLE] = str2con_ru('зк1234567/1P1', 'P');

P.S. А еще вот так:

{
    str str0, strDO, strPOSLE;
;
    [strDO, strPOSLE] = str2con_ru( 'зк1234567/1P1', 'P' );
    [str0 , strDO   ] = str2con_ru( strDO          , 'зк');

    info(strDO + ' ---  ' + strPOSLE);
}

[blokva]

Может это поможет:

container str2con_MY(str _string, str _separator = ",", boolean _multiSeparator = False)
{
    container   con;
    int         pos, oldPos = 1;
    str         strTemp1;
    str         symbol;
    ;

    if(_multiSeparator)
    {
        do
        {
            symbol = subStr(_string, oldPos, 1);
            if(strfind(_separator,symbol,1,strlen(_separator)) || !symbol)
            {
                con += strTemp1;
                strTemp1 = "";
            }
            else
            {
                strTemp1 = strTemp1 + symbol;
            }

            oldPos++;
        }
        while (symbol);
    }
    else
    {
        do
        {
            pos    =  strScan(_string, _separator, pos ? pos + strLen(_separator) : 1, strLen(_string));
            con    += subStr(_string, oldPos, pos ? pos - oldPos : strLen(_string) + 1 - oldPos);
            oldPos =  pos + strLen(_separator);
        }
        while (pos);
    }
    return con;
}

В принципе это стандартная функция, но она позволяет указать несколько разделителей, по которым формируются элементы контейнера.
Пример вызова например так:

str2con_MY("зк1234567/1P1", "зк/P", True)

конечно проблемно выглядит разделитель "зк" но его можно отбросить с самого начала

[fialka]

Zitat:

Zitat von Zuzaz

Как часто случается, это задание недостаточно формализовано. Без уточнения ряда вопросов по формату номера предлагать варианты бесполезно:
1) вначале всегда идут буквы ? их всегда две, как в примере, или может быть любое число?
2) между начальным и конечным набором букв цифры всегда идут со слешем, или могут быть только цифры ? Могут ли вместо слеша быть и другие знаки, например тире или точка?
3) количество знаков между первым и конечным набором букв всегда одинаково, или может быть любым?
3) в конечном наборе буква всегда одна, или их может быть две и больше ?
4) в конечном наборе всегда идут буквы и потом цифры, или могут быть другие варианты (например, только буквы;буквы, цифры и снова буквы) ? Сколько цифр может быть после последней буквы ?
5) и наконец ключевой вопрос: зачем нужно такое преобразование, какая исходная постановка задачи? Может быть, исходная задача решается другим, более простым способом ? Или может быть, исходная задача такова, что и ваш способ с преобразованием номера её не решит ?

Если подходить формально, решая задачу именно так, как она вами записана, то это так:

S2 = substr(S1,3,9)

1. вначале всегда идут буквы, неизвестно сколько их.
2. Далее идут цифры (тоже непонятно сколько ) разделение слеш и ещё несколько цифр... вот в первый заход их нужно получить.
3. Потом идёт буква Р после неё цифры. Второе значение у меня должно как раз ему равнятся...
то есть если первоначально было ППРРВ12345/45Р5,
то должно получится два значения: первое 12345/45 и второе 5

[fialka]

[quote=Gustav;142376]я бы к этому совершенно справедливому списку добавил еще пару оргвопросов:

6) задача разовая или постоянная? (честно говоря, если постоянная, то тогда, как поется в одной бардовской песне, "просто дыбом волоса" от проектирования...)
7) можно ли решить ее вне Аксапты (например, в Excel'е) ?

quote]
задача постояная и решится должна только в АХ..

[Lucky13]

Zitat:

Zitat von fialka

то есть если первоначально было ППРРВ12345/45Р5,
то должно получится два значения: первое 12345/45 и второе 5

В таком случае нужно еще дописать, к указанному мной выше

s1 = strkeep(s1, '1234567890/');

И все долно получиться.

P.S. Согласен с Gustav, делить строку с помощью str2con_RU более оптимальный вариант

[Gustav]

Zitat:

Zitat von Lucky13

В таком случае нужно еще дописать, к указанному мной выше

s1 = strkeep(s1, '1234567890/');

И все долно получиться.

именно! уже тоже написал, поэтому опубликую:

[strDO, strPOSLE] = str2con_ru( 'зк1234567/1P1', 'P' );
strDO = strkeep( strDO, '1234567890/');

[fialka]

Zitat:

Zitat von Gustav

именно! уже тоже написал, поэтому опубликую:

[strDO, strPOSLE] = str2con_ru( 'зк1234567/1P1', 'P' );
strDO = strkeep( strDO, '1234567890/');

Спасибо.
а ещё маленький вопрос как впереди первого значения поставить "*" ?
то есть формируется у меня номер например накладной..

modifSalesPickingListId = strRem(SalesPickingListJournalTable.SalesId, 'зсчЗКП'); //обрезаем символы заказа и закупки
          modifSalesPickingListId = modifSalesPickingListId + '/' + pickingId;

должно в итоге получится *123456/1.
мне казалось , J - это '*', или я что-то путаю?

[Gustav]

Zitat:

Zitat von fialka

а ещё маленький вопрос как впереди первого значения поставить "*" ?

так?

strDO = '*' + strDO;