'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' after you get the html code from the inet control '''
''' pass the code to getInnerText function            '''
''' and it will return the text for the html page     '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function getInnerText(lpHtmlText)
 static JSEngin
 if not IsObject(JSEngin) then
    set JSEngin = CreateAndIntilizeScriptCtrl
 end if
 getInnerText = JSEngin.Run("getInnerText", lpHtmlText)
end function

private function CreateAndIntilizeScriptCtrl()
dim js_code
js_code = "function getInnerText(HtmlText)" + vbNewLine + _
"{" + vbNewLine + _
"var LineNum, NewLine='$newline';" + vbNewLine + _
"for(var LineNum=1;;LineNum++)if(HtmlText.indexOf('$newline'+LineNum)==-1)break;" + vbNewLine + _
"NewLine+=LineNum;" + vbNewLine + _
"HtmlText=HtmlText.replace(/\r\n/g,NewLine);" + vbNewLine + _
"HtmlText=HtmlText.replace(/\n/g,NewLine);" + vbNewLine + _
"var reg_replacment=['','$6','','','','','','']" + vbNewLine + _
"var regs=[/<style([^>]*)>(.*)<\/style([^>]*)>/ig," + vbNewLine + _
"          /<select([^>]*)>(.*)<option(.*) (selected){1}([^>]*)>([^<]*)(.*)<\/select([^>]*)>/ig," + vbNewLine + _
"          /<select([^>]*)>(.*?)<\/select([^>]*)>/ig," + vbNewLine + _
"          /<script([^>]*)>([^<]*?)<\/script([^>]*)>/ig," + vbNewLine + _
"          /<script([^>]*)>(.*?)<\/script([^>]*)>/ig," + vbNewLine + _
"          /(<!---->)/," + vbNewLine + _
"          /<!--([^-]*)-->/," + vbNewLine + _
"          /<([^ ])([^>]*)>/ig];" + vbNewLine + _
"for(var reg in regs)HtmlText=HtmlText.replace(regs[reg],reg_replacment[reg])" + vbNewLine + _
"while(HtmlText.indexOf(NewLine)>-1)HtmlText=HtmlText.replace(NewLine,'\r\n');" + vbNewLine + _
"return HtmlText;" + vbNewLine + _
"}"
dim objJS
set objJS = CreateObject("MSScriptControl.ScriptControl.1")
objJS.Language = "JavaScript"
objJS.AddCode js_code
set CreateAndIntilizeScriptCtrl = objJS
end function