免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2268 | 回复: 9
打印 上一主题 下一主题

如何在CLP中使STRING右对齐? [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2006-03-10 16:12 |只看该作者 |倒序浏览
请教,如何在CLP中使STRING右对齐?就是去掉STRING右边的空格。

论坛徽章:
0
2 [报告]
发表于 2006-03-10 17:08 |只看该作者

论坛徽章:
0
3 [报告]
发表于 2006-03-10 17:20 |只看该作者
没什么用,这个都知道的。

论坛徽章:
0
4 [报告]
发表于 2006-03-10 17:22 |只看该作者
*TCAT组合使用可以去掉前面的空格,但是后面的怎么去掉呢?

论坛徽章:
0
5 [报告]
发表于 2006-03-10 17:25 |只看该作者
你想实现什么效果,据个例子。

论坛徽章:
0
6 [报告]
发表于 2006-03-10 17:42 |只看该作者
例如:

DCL        VAR(&N) TYPE(*CHAR) LEN(      
DCL        VAR(&M) TYPE(*CHAR) LEN(

CHGVAR     VAR(&N) VALUE('  ABCD  '))
CHGVAR     VAR(&M) VALUE('  FGH   '))

要求输出时2个STRING右对齐

'    ABDD'
'      FGH'

论坛徽章:
0
7 [报告]
发表于 2006-03-11 13:42 |只看该作者
难度应该不算高的吧!办法也应该很多的!):

论坛徽章:
0
8 [报告]
发表于 2006-03-14 10:09 |只看该作者
呵呵,请指教啊

论坛徽章:
0
9 [报告]
发表于 2006-03-15 16:50 |只看该作者
沒人指教嗎?

论坛徽章:
0
10 [报告]
发表于 2006-03-15 17:19 |只看该作者
LOOP: IF (%SST(&A LEN-1 1) *EQ ' ') THEN DO
               CHGVAR &A  ' ' *CAT &A
               GOTO LOOP
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP