删除字符串末尾*
DATA
:?
STR
(
20
)
,
STR2
(
20
)
,
N
.
STR? =? '??abcade*' .
WRITE? STR .
IF? SUBSTRING (?? VAL? =? STR?OFF? =? STRLEN (? STR? )? -? 1? LEN? =? 1? )? =? '*' .
??STR? =? SUBSTRING (?? VAL? =? STR?LEN? =? STRLEN (? STR? )? -? 1? )? .
ENDIF .
WRITE? /?STR .
此程序是出自abap?老白,此處只為記錄下來備用,
這個程序在ehp7可以編譯通過,在ecc6 環境下可能會有編譯錯誤
DATA?v_res?TYPE?string.
v_res?=?shift_right(?val?=?str?places?=?0?).
WRITE?:?v_res.
v_res?=?shift_right(?val?=?str?sub?=?|*|?).
無須判斷
這個寫法是轉自sariel
STR? =? '??abcade*' .
WRITE? STR .
IF? SUBSTRING (?? VAL? =? STR?OFF? =? STRLEN (? STR? )? -? 1? LEN? =? 1? )? =? '*' .
??STR? =? SUBSTRING (?? VAL? =? STR?LEN? =? STRLEN (? STR? )? -? 1? )? .
ENDIF .
WRITE? /?STR .
此程序是出自abap?老白,此處只為記錄下來備用,
這個程序在ehp7可以編譯通過,在ecc6 環境下可能會有編譯錯誤
DATA?v_res?TYPE?string.
v_res?=?shift_right(?val?=?str?places?=?0?).
WRITE?:?v_res.
v_res?=?shift_right(?val?=?str?sub?=?|*|?).
無須判斷
這個寫法是轉自sariel
總結
- 上一篇: 定义进项税代码缺省值
- 下一篇: 如何删除开发用户的开发Key