用Rational Robot测试有数据关联的Web应用

string func getURLByText(source, text)
string source, text;
{
    int startText, startA, startHref;
    string remainingText, beforeText, aOpenText, hrefText, url;
    string pattern;
    pattern = "([ \\t\\n\\r]*\"(([^\"]*)$0)\")|";
    pattern += "([ \\t\\n\\r]*\\'(([^\\']*)$0)\\')|";
    pattern += "([ \\t\\n\\r]*(([^ \\t\\n\\r]*)$0)[ \\t\\n\\r>])";
    remainingText = source;
    while (1) {
        startText = strstr(remainingText, text);
        if (0 == startText) {
            break;
        } else {
   beforeText = substr(remainingText, 1, startText - 1);
   startA = 0;
   // Find the position of the last occurrence of "', beforeText)) 
   {
   // The anchor does enclose specified text.
   if (match(
   '([Hh][Rr][Ee][Ff][ \t\n\r]*=)$0',
    beforeText,
    &hrefText)) {
                 // Check the location of the found "href".
                 startHref = strstr(beforeText, hrefText);
                 if (startHref < strstr(beforeText, ">")) {
                            // Now try to extract the URL
                            if (match(
                                pattern, 
                                substr(
                             beforeText,
                             startHref + strlen(hrefText),
                             strlen(beforeText)),
                                &url)) {
                                return url;
                            }
                        }
                    }
                }
            }
        }
        remainingText =
            substr(
                remainingText,
                startText + strlen(text),
                strlen(remainingText));
    }
    return "";
}