function delimExists(s, d, itm){
  if((s=="")|(d=="")|(itm=="")){ return "False" }
  n=delimCount(s, d);
  if(n==0){ return "False" }
  a = new Array(n);
  a = s.split(d);
  for(i=0;i<=n;i++){
    if(a[i]==itm) { return "True" }
  }
  return "False"
}

function delimCount(s, d){
  x="";
  n=0;
  l=s.length;
  if(l==0){ return 0}
  for(i=0;i<l;i++){
    x=s.charAt(i);
    if(x==d){ n=n+1 }
  }
  return (n+1);

}

function delimAdd(s, d, itm){
if((d=="")|(itm=="")){ return "Err 1" }
if(delimExists(s, d, itm)=="True"){ return "Err 2" }
  x="";
  n = 0;
  l = s.length;
  if(l==0){return itm}

  n=delimCount(s, d);

  x=""
  a = new Array((n+1));
  a = s.split(d);
  a[(n)]=itm;

  for(i=0;i<=n;i++){
    x = x+a[i]+" ";
  }
  y=a.join(d);
  return y;
  alert("l="+l+"\nn="+n+"\nx="+x+"\ny="+y)
}

function delimDel(s, d, itm){
  if((s=="")|(d=="")|(itm=="")){ return "Err 1"}
  if(delimExists(s, d, itm)=="False"){ return "Err 2"}
  n=s.indexOf(itm,0);
  if(n<0){ return "Err 2" }
  x="";
  n=0;
  l=s.length;
  n=delimCount(s, d);
  a=new Array(n);
  b=new Array(n-1);
  a=s.split(d);
//  alert(a.join(d))
  j=0;
  for(i=0;i<=n;i++){
    if(a[i]!=itm){
       b[j]=a[i]
       j=j+1
    }
  }
  x=b.join(d);
  l=x.length;
  x=x.substring(0,(l-1))
  return x;
}
function delimReplace(s, d, itm, r){
//alert(s+" "+d+" "+itm+" "+r)
  if((s=="")|(d=="")|(itm=="")|(r=="")){ return "Err 1" }
  
  n=s.indexOf(itm,0);
  if(n<0){ return "Err 2" }
  x="";
  n=0;
  l=s.length;
  n=delimCount(s, d);
  a=new Array(n);
  a=s.split(d);
  for(i=0;i<=n;i++){
    if(a[i]==itm){ a[i]=r }
  }
  x=a.join(d);
  
  return x;
}
function delimGet(s, d, n){ 
  if((s=="")|(d=="")){ return "Err 1" }
  i = delimCount(s, d);
  if((n>i)|(n<1)){ return "Err 2" }
  a = new Array(i);
  a = s.split(d);
  n=n-1;
  b = a[n];
  return b;
} 
function delimSort(s, d){
  if((s=="")|(d=="")){ return "Err 1" }
  i = delimCount(s, d);
  a = new Array(i);
  a = s.split(d);
  a = a.sort();
  b=a.join(d);
  return b;
}
function delimSearch(s, d, e, n){
  if((s=="")|(d=="")|(e=="")){ return "Err 1" }
  if(n==0){ 
    s=s.toUpperCase();
    e=e.toUpperCase(); 
  }
  n=0;
  c=delimCount(s,d);
  a = new Array(n);
  a = s.split(d);
  for(i=0;i<=c;i++){
    if(a[i]==e) { n=i+1 }
  }
  return n
}
function delim2Array(s, d){
  if((s=="")|(d=="")){ return "Err 1" }
  c = delimCount(s, d);
  a = new Array(2);
  a = s.split(d);
  return a

}