Chinaunix

标题: 如何在CLP中使STRING右对齐？ [打印本页]

作者: huaimie 时间: 2006-03-10 16:12
标题: 如何在CLP中使STRING右对齐？
请教，如何在CLP中使STRING右对齐？就是去掉STRING右边的空格。

作者: pl421 时间: 2006-03-10 17:08
http://bbs.chinaunix.net/viewthread.php?tid=484175
这个对您有用嘛？

作者: huaimie 时间: 2006-03-10 17:20
没什么用，这个都知道的。

作者: huaimie 时间: 2006-03-10 17:22
*TCAT组合使用可以去掉前面的空格，但是后面的怎么去掉呢？

作者: pl421 时间: 2006-03-10 17:25
你想实现什么效果，据个例子。

作者: huaimie 时间: 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'

作者: coolk 时间: 2006-03-11 13:42
难度应该不算高的吧！办法也应该很多的！）：

作者: huaimie 时间: 2006-03-14 10:09
呵呵，请指教啊

作者: huaimie 时间: 2006-03-15 16:50
沒人指教嗎？

作者: huaimie 时间: 2006-03-15 17:19
LOOP: IF (%SST(&A LEN-1 1) *EQ ' ') THEN DO
CHGVAR &A ' ' *CAT &A
GOTO LOOP

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)