конверт в строку

apetrenko

Нужно сконвертить дробное число в строку.
без лидирующих и завершающих нулей. И без пробелов.

пример енсть число 0000067.8900000

в строке долдно быть '67.89'

есть стандартная функция конверта или писать свою?

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

shift + F1

РМщик

Code:

PROGRAM A.

DATA:  F TYPE P DECIMALS 7,
       S(10).

F = '0000067.8900000'.
WRITE F TO S DECIMALS 2.
CONDENSE: S.

WRITE:/  'Numeric =', F,
      /  'String  =', S.

apetrenko

спасибо.. как я вижу все оказалось проще :oops:

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

РМщик, не катит. А если число 0000067.891234...?

Все же shif left/right deleting ... оно надежнее.

РМщик

Пономарев Артем написал:

0000067.891234...?

[Интересно, это какого типа число будет?

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

Легко.
Предлогаю проверить.

Code:

DATA: p TYPE p DECIMALS 7,
          s TYPE string.

p = '10.5467'.
s = p.

С ведущими нулями я, конечно, погорячился.
Хотя если число приходит откель-нибудь снаружи и сразу в строке...
тогда и не такие варианты возможны.
Естественно необходимо предусмотреть проверку на отсутствие дробной части.

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

конверт в строку

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