在Axapta中实现split函数

在Axapta中没有找到类似于C#中的split函数,在SQL Server中也没有类似的函数,当初写SQL函数的时候用了SQL Server中的系统函数charindex和substr来实现这样的功能,于是首先想到了用函数strFind和subStr来实现split函数.下列代码可以分解一个字符串并打印:

static   void  split(Args _args)
{
    
int position;
    str srcStr;
    ;
    srcStr 
= "AA,BB,CC,";

    
while(true)
    
{
        position 
= strFind(srcStr,",",1,strlen(srcStr));
        
        
if(!position)
        
{
            print(srcStr);
            
break;
        }


        print(subStr(srcStr,
1,position-1));
        srcStr 
= subStr(srcStr,position+1,strlen(srcStr)-position);
    }

    pause;

}
上面的代码显得臃肿并且很容易出错,因为要考虑边界情况,如果用Axapta中的Container实现这个功能就优雅得多,代码如下:
static   void  Split2(Args _args)
{
    Container c;
    str srcStr;
    
int i;
    ;
    srcStr 
= "AA,BB,CC,";

    c 
= Global::str2con(srcStr,",");
    
for(i=1;i<=conlen(c);i++)
    
{
        print(conpeek(c,i));
    }

    pause;


}
当然如果查看str2con的代码就会知道,str2con也是用了strScan和substr对字符串进行分析处理,不过眼不见心不烦,不是吗?呵呵.另外str2con用函数match判断了字符串如果可以转换成数字,就会把字符串转换成数字,这点不够可爱,可以自己写一个str2conXpp之类的,把这个match去掉.

你可能感兴趣的:(split)