Parent page: Service Functions – String / WinRunner

Replace characters in a string

public function str_replace(in s, in sub1, in sub2) {
 auto loc, start, sub1_len;
 auto src, result;

 src = s;
 sub1_len = length(sub1);
  
 result = "";
 while (1) {
  loc = index(src, sub1);
  if (loc == 0)
   break;
  else {
   result = result & substr(src, 1, loc - 1) & sub2;
   src = substr(src, loc + sub1_len);   
   } 
  }
   result = result & src;

   return(result);
}

Replace pattern (regular expression) in a string

public function str_replace_ex(in s, in regex1, in sub2) {
 extern RLENGTH; # system variable
 auto loc, start;
 auto src, result;
 auto chr1, chr2;
  
# infinite loop protection
 if (length(regex1) == 2) {
  chr1 = substr(regex1,1,1);
  chr2 = substr(regex1,2,1);
  if (chr2 == "*")
   regex1 = chr1 & chr1 & chr2;
  }
  
 src = s;
 result = "";
 while (1) {
  loc = match(src, regex1);
  if (loc == 0)
   break;
  else {
   result = result & substr(src, 1, loc - 1) & sub2;
   src = substr(src, loc + RLENGTH);   
   } 
  }
   result = result & src;

   return(result);
}