会员
周边
新闻
博问
闪存
众包
赞助商
Chat2DB
所有博客
当前博客
我的博客
我的园子
账号设置
会员中心
简洁模式
...
退出登录
注册
登录
差劲
博客园
首页
新随笔
联系
订阅
管理
◆◆0如何取得字符串最后一位
下面介绍一个取得字符串最后一位的方法,直接上代码:
1
2
3
4
5
6
7
8
9
10
11
REPORT
ztest
_shift
.
DATA
:
l_number
(
10
)
TYPE
c
VALUE
'12345678F'
,
l
_len
TYPE
i
,
l
_off
TYPE
i
,
l_ret
(
10
)
TYPE
c
.
l
_len
=
strlen
(
l
_number
)
.
l
_len
=
l
_len
-
1.
l
_ret
=
l
_number
+
l_len
(
1
)
.
WRITE
:l
_number
,
/
l
_ret
.
运行后:
posted @
2020-03-23 16:50
差劲
阅读(
241
) 评论(
0
)
收藏
举报
刷新页面
返回顶部
公告