javascript-aname aname('xxStatus','A') aarray

javascript-array


function aname(s0925,k0925){
r0925="";
if (s0925) {
s20925=s0925.split(",");
if (s20925.indexOf(k0925)<0){
r0925=k0925;
} else {
r0925=s20925[s20925.indexOf(k0925)+1];
}
}
return r0925
}

e.g. aname("d,draft,s,submit,i,input",'d' )=draft



javascript-aarray


<script>
     s1="d,draft,s,submit";
    s2=s1.split(",");
    alert(s2[s2.indexOf('s')+1]);
</script>

foxpro


PROC ANAME
PARA MELEMENT,MNAME
PRIVATE MXRESULT
STORE '' TO MXRESULT
IF NOT EMPTY(MNAME)
PRIVATE BEGIN
PRIVATE _MSTATUS
STORE 1 TO BEGIN
DIME _ARRAY(occurs(',',MNAME+','))
FOR RR=1 to occurs(',',MNAME+',')
STORE  subs(MNAME+',',begin,at(',',MNAME+',',RR)-begin) to _RESULT
STORE _RESULT TO _ARRAY(RR)
STORE at(',',MNAME+',',RR)+1 to begin
ENDFOR
DIME _ARRAY(occurs(',',MNAME+',')/2,2)
STORE ASCAN(_ARRAY,MELEMENT) TO _MSTATUS
IF _MSTATUS#0
STORE  ROUND((ASCAN(_ARRAY,MELEMENT)+.5)/2,0) TO _MSTATUS
STORE _ARRAY(_MSTATUS,2) TO MXRESULT
ENDIF
ENDIF
RETURN MXRESULT