Parent page: Service Functions – String / WinRunner

Trim text line

public function str_trim(in value) {
 auto StringArray[];
 if (length(value) == 0)
 return ("");
#if we have space chars only - let's do it quickly 
 if (index(value,"\t") == 0) {
 if (split(value, StringArray, " ") == 1)
 return(StringArray[1]);
 }
 return str_rtrim(str_ltrim(value)); 
}
###
public function str_ltrim(in s) {
 auto i;
 auto src = s;
 for (i=1;i<=length(src);i++)
 if ((substr(src,i,1) != " ") && (substr(src,i,1) != "\t") && (substr(src,i,1) != " ")) # web space char
 break;
 return(substr(src, i, length(src)));
}
###
public function str_rtrim(in s) {
 auto i;
 auto src = s;
 for (i=length(src);i>0;i--)
 if ((substr(src,i,1) != " ") && (substr(src,i,1) != "\t") && (substr(src,i,1) != " ")) # web space char
 break;
 return(substr(src, 1, i));
}

Check format

public function is_alpha(in c) {
 auto ch = ascii(substr(c, 1, 1));
 if ((ch >= 65 && ch <= 90) || (ch >= 97 && ch <= 122))
 return(E_OK);
 else
 return(-1);
}
###
public function is_digit(in c) {
 auto ch = ascii(substr(c, 1, 1));
 if (ch >= 48 && ch <= 57)
 return(E_OK);
 else
 return(-1);
}
###
public function is_number(in v_str) {
 auto rc;
 rc = v_str*(-1)*(-1);
 if (rc == v_str)
 return(E_OK);
 else
 return(-1);
}
###
public function is_number2(inout v_str) {
# Note: this function is not intended to cover the all possible combinations of "," and "." occurences
 auto rc, sVector[], s, c, i;
# remove ","
 v_str = str_replace(v_str, ",", "");
 rc = v_str*(-1)*(-1);
 if (rc == v_str)
 return(E_OK);
 else
 return(-1);
}