RPGIV编程技巧9 如何判断一个字符串是由数字组成的？

RPGIV编程技巧（9）ile rpg中如何判断一个字符串是否全是由0-9数字组成的？

 

d          s      1000     varying
d         s      1000     varying
d lo                     c                   'abcdefghijklmnopqrstuvwxyz'
d hi                     c                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'

     .....
     = ;
     //小写变大写
     = %Xlate(lo:hi:c@String2);
     if <> ;
           //字段有字符
     else ;
          //大写变小写
        = %Xlate(hi:lo:c@String2);
        if <> ;
           //字段有字符
        else ;
           //都是数字组成的字符串
        endif ；
     endif ；

 

问：

如果字符串里还有其他的字符怎么办？？如， .  @ 等等之类的特殊字符。

答：

小数点不算错误字符。

    你这个问题其实是两个问题：1）数字与字符混合的判别；2）数字与其它字符的判别。
如果你想简单有效把这两类数据都做一类判别操作，可以这样做：

d                  s        1000         varying
d                       s          32s12      inz
    ......
      monitor ;
           = %dec() ;
      on-error ;
           //非数字字符串
      endmon ；
   .....