請教一個RPG數字字串問題！

╰●-●╯

遇到一個RPG問題，不知各位是否有更好的解法?

若NUM=302 , STR(type 6A)

MOVE NUM  STR

STR會等於'000302'

我需要的結果是STR='   302'
不知各位是否有比較快的方式處理？

又若NUM=30.2
STR也會等於'000302'
有何方式讓STR='  30.2'

目前的方式是用loop在一個字一個字處理，我覺得是個笨方法，所以提出來請教各位。謝謝！！

bobofish29

用内部函数%char

1. 
   
2. 18       C                   Z-ADD     302                NUM              6 0
   
3. 20       C                   MOVEL    *BLANKS        STR               6   
   
4. 22       C                   EVAL      STR=%CHAR(NUM)
   
5. 结果 STR='302   '  
   

复制代码

同样

1. 
   
2. 如果NUM=30.2
   
3. 23       C                   Z-ADD      30.2              NUM                6 1
   
4. 24       C                   MOVEL     *BLANKS       STR                 6   
   
5. 25       C                   MOVEL     *BLANKS       TEMP               6   
   
6. 26       C                   MOVE       NUM              TEMP                  
   
7. 27       C                   MOVE       TEMP             NUM1              6 0
   
8. 28       C                   EVAL        STR=%CHAR(NUM1)
   
9. 结果 STR='302   '                       
   

复制代码

wildfish

rpgle支持。如果是rpg的话，只能用苯的方法了。

╰●-●╯

收到，感謝！

srcctz

evalr str = %char(num)

fzrxh

rpg/rpgle中move就好了

thursday

*BLANKS和*BLANK到底有什么区别啊？我以前都是用后者的！

pl421

[quote]原帖由 "thursday"]*BLANKS和*BLANK到底有什么区别啊？我以前都是用后者的！[/quote 发表：

这两个有区别吗？

bonbonben

好像没有区别。

aiyoo

例如 variable= 2.34
%editc(variable:'3')可以实现小数的显示