Age: 41 Joined: 01 Feb 2008 Posts: 387 Location: Воронеж
Posted: Thu May 13, 2010 3:41 pm Post subject:
Недавно обсуждалось, возможно подойдет одно из предложений.
http://www.sapnet.ru/viewtopic.php?t=3675 _________________ Hормальные люди делают вещи намного более безумные чем всё, что делают сумасшедшие (c) С.Лем
Age: 175 Joined: 04 Oct 2007 Posts: 1218 Location: Санкт-Петербург
Posted: Thu May 13, 2010 4:41 pm Post subject:
Ну еще варианты:
Удаление всех не цифровых символов.
Code:
DATA: str(30) TYPE C VALUE '12qwe34rty56ui78 90',
n TYPE i.
DESCRIBE FIELD str LENGTH n IN CHARACTER MODE.
WHILE NOT n IS INITIAL.
n = n - 1.
CHECK str+n(1) NA ' 1234567890'.
CLEAR str+n(1).
ENDWHILE.
CONDENSE str NO-GAPS.
WRITE / str.
Оставить цифры с разделителями.
Code:
DATA: str(100) TYPE C VALUE ' First:123,456,789.99.,fdg, ( Diff:1.44. ) sum-33.',
IsDig TYPE C,
n TYPE i.
DESCRIBE FIELD str LENGTH n IN CHARACTER MODE.
WHILE NOT n IS INITIAL.
n = n - 1.
IF str+n(1) CA '1234567890'.
IsDig = 'X'.
ELSEIF NOT IsDig IS INITIAL AND str+n(1) NA '.,1234567890'.
CLEAR IsDig.
ENDIF.
IF IsDig IS INITIAL.
CLEAR str+n(1).
ENDIF.
ENDWHILE.
CONDENSE str.
WRITE / str.
_________________ Молитва - это запрос разработчику на изменение кода программы.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
