Стринг в integer

malania

Драствуите. Помагите пожалуиста. У меня есть поле стринг '104,000.00'.
мне надо превратить этот стринг в int ili currn . Как это сделать?

Пономарев Артем

ФМ HRCM_STRING_TO_AMOUNT_CONVERT

slash

малость корявый фм
RS_CONV_EX_2_IN_DTEL
приводит к табличному типу
должен быть способ красивее

Jelena

Не претендуя на красоту, а чисто спортивного интереса ради.

Code:

DATA: input_string TYPE string,
      output_integer TYPE i.

CATCH SYSTEM-EXCEPTIONS
             arithmetic_errors = 1
             conversion_errors = 2.
  TRANSLATE input_string USING ', '.
  CONDENSE input_string NO-GAPS.
  output_integer = input_string.
ENDCATCH.

IF sy-subrc <> 0.
* error message - string contains wrong characters
ENDIF.

На выходе может быть любой цифровой тип, не обязательно I. Кстати, заодно проверила: работает со знаком +/-, причем знак в STRING может быть как перед числом так и после.

<Yuri>

2 Jelena:
Красивая идея :wink:

В данном примере Ваш код будет работать.
Однако в индивидуальных настройках пользователя разделителем групп разрядов, а также целой и дробной части, может оказаться любой символ, не обязательно запятая .

Sergo

Цитата:

может оказаться любой символ

Ну не знаю как насчет любого, в 4.7, по моему, это только "пробел", "запятая", "точка".

Можно установить еще и другие?

<Yuri>

Sergo написал:

Цитата:

может оказаться любой символ

Ну не знаю как насчет любого, в 4.7, по моему, это только "пробел", "запятая", "точка".

Можно установить еще и другие?

Согласен, любой из допустимых, суть не меняется.

sibrin

Code:

  SELECT SINGLE dcpfm INTO dcpfm FROM usr01 WHERE bname = sy-uname.
  CASE dcpfm.
      WHEN ' '.
         dcs = '.'. dcp = ','.
      WHEN 'X'.
         dcs = ','. dcp = '.'.
      WHEN 'Y'.
         dcs = ' '. dcp = ','.
  ENDCASE.

ColdFusion

Для преобразования строки в число с проверкой корректности ввода можно воспользоваться функцией:

Code:

  CALL FUNCTION 'MOVE_CHAR_TO_NUM'
    EXPORTING
      CHR             = pf_qty_e
    IMPORTING
      NUM             = pf_qty
    EXCEPTIONS
      CONVT_NO_NUMBER = 1
      CONVT_OVERFLOW  = 2
      OTHERS          = 3.

Для корректной работы рекомендую применить все ноты по этой функции для вашей системы.

Jelena

Попробовала MOVE_CHAR_TO_NUM (спасибо, кстати). Ей нужно давать CHAR, а на выходе должно быть Р. Если пробовать STRING и I, то валится в дамп, что естественно. Кроме того, Р нужно определять с DECIMALS, иначе число округляется. Так что если как у автора STRING в I, то еще нужно туда-сюда сконвертировать. Мда, за универсальность надо платить.

РМщик

Code:

 CALL FUNCTION 'RS_CONV_EX_2_IN_NO_DD'
      EXPORTING
        INPUT_EXTERNAL  = SSSS
      IMPORTING
        OUTPUT_INTERNAL = ZZZZZ
      EXCEPTIONS
        ERROR_MESSAGE   = 100
        OTHERS          = 200.

приведет SSSS к такому виду, как определен ZZZZZ
(можно и к integer, и к P )

Сергей Королев

Ну вот еще вариант:

Code:

      CALL FUNCTION 'CATS_NUMERIC_INPUT_CHECK'
           EXPORTING
                input      = input
                internal   = 'X'
           IMPORTING
                output     = output
           EXCEPTIONS
                no_numeric = 1
                OTHERS     = 2.

И input, и output должны быть символьными, если internal = 'X', то в output будет внутренний формат, который можно присвоить переменной числового типа. Функция проверяет формат с учетом пользовательской настройки.
Функция существует, начиная с 4.6с

Правила форума

Стринг в integer

Кто сейчас на конференции