/ Request a homepage and extract its title by regular expression
url = "http://d...content-available-to-author-only...x.com/u/37805589/WebTA/web_hw7.html";
xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlHttp.open("GET", url, false, "");
xmlHttp.send(); // Send the request
contents = xmlHttp.responseText; // Get the contents
//WScript.Echo(contents); // Print the contents if necessary
// Use regression expression to extract the title
//re = new RegExp("<title>(.*)<\/title>", "gi");
//while(1)
{
re = /^<A(.*?)<\/A>/gi;
// get <xmp> string
x_re= /<xmp><A(.*?)<\/A><\/xmp>/gi;
var arr=[];
arr=contents.match(re);
re2=/^<\s*A\s+HREF\s*=\s*"?(.*?)"?\s*>(.*?)<\s*\/\s*A\s*>/i;
// if(arr!=null)
for(i=0;i<arr.length;i++)
{
//WScript.Echo("index = " + index);
//re.exec(arr[i]);
re2.exec(arr[i]);
//WScript.Echo(" text= " + RegExp.$1);
// rtemove <...>
str=RegExp.$2;
str=str.replace(/<.>/g,"");
str=str.replace(/<\/.>/g,"");
//str=str.replace("/<xmp>/","");
WScript.Echo(" text= " + str);
}
}
LyBSZXF1ZXN0IGEgaG9tZXBhZ2UgYW5kIGV4dHJhY3QgaXRzIHRpdGxlIGJ5IHJlZ3VsYXIgZXhwcmVzc2lvbgp1cmwgPSAiaHR0cDovL2QuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLnguY29tL3UvMzc4MDU1ODkvV2ViVEEvd2ViX2h3Ny5odG1sIjsKeG1sSHR0cCA9IG5ldyBBY3RpdmVYT2JqZWN0KCJNaWNyb3NvZnQuWE1MSFRUUCIpOwp4bWxIdHRwLm9wZW4oIkdFVCIsIHVybCwgZmFsc2UsICIiKTsKeG1sSHR0cC5zZW5kKCk7CQkJCS8vIFNlbmQgdGhlIHJlcXVlc3QKY29udGVudHMgPSB4bWxIdHRwLnJlc3BvbnNlVGV4dDsJLy8gR2V0IHRoZSBjb250ZW50cwovL1dTY3JpcHQuRWNobyhjb250ZW50cyk7CQkvLyBQcmludCB0aGUgY29udGVudHMgaWYgbmVjZXNzYXJ5CgovLyBVc2UgcmVncmVzc2lvbiBleHByZXNzaW9uIHRvIGV4dHJhY3QgdGhlIHRpdGxlCi8vcmUgPSBuZXcgUmVnRXhwKCI8dGl0bGU+KC4qKTxcL3RpdGxlPiIsICJnaSIpOwovL3doaWxlKDEpCnsKCXJlID0gL148QSguKj8pPFwvQT4vZ2k7CgkvLyBnZXQgPHhtcD4gc3RyaW5nCgl4X3JlPSAvPHhtcD48QSguKj8pPFwvQT48XC94bXA+L2dpOwoJCgl2YXIgYXJyPVtdOwoJYXJyPWNvbnRlbnRzLm1hdGNoKHJlKTsJCglyZTI9L148XHMqQVxzK0hSRUZccyo9XHMqIj8oLio/KSI/XHMqPiguKj8pPFxzKlwvXHMqQVxzKj4vaTsKCQogICAvLyBpZihhcnIhPW51bGwpCiAgIGZvcihpPTA7aTxhcnIubGVuZ3RoO2krKykKCXsKCQkvL1dTY3JpcHQuRWNobygiaW5kZXggPSAiICsgaW5kZXgpOwoJCS8vcmUuZXhlYyhhcnJbaV0pOwoJCXJlMi5leGVjKGFycltpXSk7CgkJLy9XU2NyaXB0LkVjaG8oIiB0ZXh0PSAiICsgUmVnRXhwLiQxKTsKCQkvLyBydGVtb3ZlIDwuLi4+CgkJc3RyPVJlZ0V4cC4kMjsKCQlzdHI9c3RyLnJlcGxhY2UoLzwuPi9nLCIiKTsKCQlzdHI9c3RyLnJlcGxhY2UoLzxcLy4+L2csIiIpOwoJCS8vc3RyPXN0ci5yZXBsYWNlKCIvPHhtcD4vIiwiIik7CgkJV1NjcmlwdC5FY2hvKCIgdGV4dD0gIiArIHN0cik7Cgl9Cn0=