如何将带小数点的字符串转成数字呢？

19830120LJZ

我刚才搜索了帖子，以前也有人问过，但是好象没给出具体的答案，
我自己也尝试用了%DEC但是不可以，%DEC要求的参数是数字类型的。
请大家帮忙；
EX：
S1='123.45'
希望得到S2=123.45

sunokla

几个月前的时候练习了一个程序，希望有帮助：
0001.00 DZifu             S              8A   INZ('12345.67')                  
0002.00 Dfirst            S              5A                                    
0003.00 Dlast             S              2A                                    
0004.00 Dfirstn           S              5P 0                                   
0005.00 Dlastn            S              2P 2                                   
0006.00 DC                S              1S 0                                   
0007.00 Dresult           S              7P 2                                   
0008.00 C     '.'           SCAN      Zifu          C                 1 0      
0009.00 C                   EVAL      first=%SUBST(Zifu:1:C-1)                  
0010.00 C                   EVAL      last=%subst(Zifu:C+1)                     
0011.00 C                   MOVE      first         firstn                     
0012.00 C                   MOVE      last          lastn                       
0013.00 C                   EVAL      result=firstn+lastn                       
0014.00 C                   SETON                                        LR

19830120LJZ

谢谢，我试试先。

pbj968

用%DEC就可以啊

tomroom

用ds ,截取在rpg用move 转换

sa_hata

原帖由 sunokla 于 2006-5-31 17:42 发表
几个月前的时候练习了一个程序，希望有帮助：
0001.00 DZifu             S              8A   INZ('12345.67')                  
0002.00 Dfirst            S              5A                             ...

RPGLE @_@   今天早上找了几个 RPGLE 的程序来看,现在看起来好像明白了一些

realqsecofr

不会调用C函数？ 看看我以前的贴子， 3行高定。

Keller_c

原帖由 19830120LJZ 于 2006-5-31 15:47 发表
我刚才搜索了帖子，以前也有人问过，但是好象没给出具体的答案，
我自己也尝试用了%DEC但是不可以，%DEC要求的参数是数字类型的。
请大家帮忙；
EX：
S1='123.45'
希望得到S2=123.45

/free
s2 = %dec(s1:5:2);
/end-free