RPGLE问题

princefxj

如何用最简单的方法实现：
'xxxx  '  --->;  '  xxxx'
(6A)            

6A是固定的，但'xxxx'的长度可变（可1－5位）

wildfish

如果支持的话evalr 6a=%trim(6a)

princefxj

有evalr的吗？还是eval(R)?

wildfish

好像只有新版本的rpg才支持的。
不过我们都没这样用
我觉得你可以自己做一个函数
先去取得字段的函数 得调用api
callp cee什么来着，我忘了
用空格去scan，然后，取得后面空格的长度b
在用一个循环，从b+1开始的
dow i<=字段的maxlen-b
eval %substr(6a:b+1,1)=%substr(6a:i:1)
eval i=i+1
enddo

XFIVE

原帖由 "princefxj" 发表：
如何用最简单的方法实现：
'xxxx  '  --->;  '  xxxx'
(6A)            

6A是固定的，但'xxxx'的长度可变（可1－5位）

没看懂？？？

暴走族

1. EVAL      STR1=%SUBST(STR1:%LEN(%TRIMR(STR1))+1
   
2.                                   :%LEN(STR1)-%LEN(%TRIMR(STR1)))
   
3.                                   +%TRIMR(STR1)         
   

复制代码

记得判断是否%len(str1)>;%len(trimr(str1)) 也就是右面的确有空格的时候才运行.否则就报错了