- 论坛徽章:
- 0
|
""在400上汉字如果截取不当,会出现乱码,造成整条记录显示得不正""
如果单凭是这个原因,按楼主说的这个程序实在有点麻烦!个人提供自写的程序给楼主您参考一下!
首先不管定义一个字符的变量数组,长度是多少,由个人自行定义,这里举例我们要进行取值的变量(ABC)长度为100 O的类型, 而这100个长度中存在一位长度的字符或者数字,以及2位长度中文.如我们要取这100位上前50位给(DDD 50 O)
程序如下
0014.00 E ARA1 50 1
*
C MOVE ' ' OF 1
C MOVEL' ' OE 1
**********
* SRT100
**********
C:\Documents and Settings\1111\桌面\未标题-1.jpg
C SRT100 BEGSR
C Z-ADD 0 OEOF 10
C MOVELABC DDD 50
C MOVEADDD ARA1
C 1 DO 50 I 20
C ARA1,I IFEQ OE
C ADD 1 OEOF
C ENDIF
C ARA1,I IFEQ OF
C SUB 1 OEOF
C ENDIF
C ENDDO
C OEOF IFEQ 1
C MOVE OF DDD
C ENDIF
C ENDSR
最后取值后的DDD就是我们想要的50位长度.程序会自动判别是否有中文而给予中文字段头尾的箭!
头!因为个人比较麻烦写字,所以写得简略一下!
以上解析不知道大家看明白没有.没明白的话,我再提供完整的RPG程序!
[ 本帖最后由 leason 于 2006-5-22 18:32 编辑 ] |
|