在Axapta中实现spilt
在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去掉.
