/*------------------------------------------------------------------- xtrimr(string,n) trims off n chars on right of string -------------------------------------------------------------------*/ char *xtrimr(char *x, int xn){ char *xret =""; int xlth; int nlth; int xsp; xlth = strlen(x); if(xn < 1) return(x); //Same Length - Return nothing if(xn == xlth) return(xret); //Trim more than length return nothing if(xn > xlth) return(xret); //Trim it nlth = xlth - xn; xret = strgetsubstr(x,1,nlth); return(xret); }//trimr