用X++实现有规律分割的长字符串，分别提取(如逗号隔开)

来源：互联网发布：win10网络图标不见了编辑：程序博客网时间：2024/05/20 03:04

/***用X++实现有规律分割的长字符串，分别提取(如逗号隔开)*/

Job Test

static void xyf_ProcessLongStr_set(Args _args)

{

YAM_ProcessLongStr st = new YAM_ProcessLongStr();

setIterator setIt; //set会自动排序和去除冗余字符串

ListIterator ListIt;//list同理，只是list不会去除字符串冗余和不会自动排序

str s = 'd,te,ut,o,w,q';

; /**

要拆分的分隔符为逗号，即可容许各种有规律的分隔符

默认为"，"

st.ProcessMulitSet(s,',');

setIt = new setIterator(st.parmSet());

while(setIt.more())

{

print setIt.value();

setIt.next();

}

print st.parmSet().toString();

pause;

}

Class (Function)

class YAM_ProcessLongStr

{

Set _set;

List _list;

}

/**********************************************/

void ProcessMulitList(csm_text _str,

str 10 _flag = ','

)

{

int CountLine=0,long;

CSM_Text _Sid,next_Sid,longIdx;

str DateIdx;

;

_list = new list(types::String);

_Sid = strRem(_str,"/n");

_Sid = strRem(_Sid,"/r");

longIdx = _Sid;

while(StrFind(_Sid,_flag,1,30)!=0)

{

long = strFind(_Sid,_flag,1,30);

DateIdx = substr(_Sid,1,long-1);

_list.addEnd(DateIdx);

next_Sid = substr(_Sid,long+1,strlen(longIdx)-long);

_Sid = strltrim(next_Sid);

long =0;

}

_list.addEnd(_Sid) ;

}

/**********************************************/

void ProcessMulitSet(CSM_text _str ,

str 10 _flag = ','

)

{

int CountLine=0,long;

CSM_Text _Sid,next_Sid,longIdx;

str DateIdx;

;

_set = new set(types::String);

_Sid = strRem(_str,"/n");

_Sid = strRem(_Sid,"/r");

longIdx = _Sid;

while(StrFind(_Sid,_flag,1,30)!=0)

{

long = strFind(_Sid,_flag,1,30);

DateIdx = substr(_Sid,1,long-1);

_set.add(DateIdx);

next_Sid = substr(_Sid,long+1,strlen(longIdx)-long);

_Sid = strltrim(next_Sid);

long =0;

}

_set.add(_Sid) ;

}

/**********************************************/

list parmList()

{

;

return _list;

}

/**********************************************/

set parmSet()

{

;

return _set;

}