怎样通过IHTMLDocument2接口，遍历本地html文件中的元素

怎样通过IHTMLDocument2接口，遍历本地html文件中的元素

已经解决了：
CString CTestDlg::ParseElementFromResponse(CString strResponse)
{
CString strRet("");
//declare our MSHTML variables and create a document
MSHTML::IHTMLDocument2Ptr pDoc;
MSHTML::IHTMLDocument3Ptr pDoc3;
MSHTML::IHTMLElementCollectionPtr pCollection;
MSHTML::IHTMLElementPtr pElement;

HRESULT hr = CoCreateInstance(CLSID_HTMLDocument, NULL, CLSCTX_INPROC_SERVER, IID_IHTMLDocument2, (void**)&pDoc);

//put the code into SAFEARRAY and write it into document
SAFEARRAY* psa = SafeArrayCreateVector(VT_VARIANT, 0, 1);
VARIANT *param;
bstr_t bsData = (LPCTSTR)strResponse;
hr = SafeArrayAccessData(psa, (LPVOID*)¶m);
param->vt = VT_BSTR;
param->bstrVal = (BSTR)bsData;

hr = pDoc->write(psa);
hr = pDoc->close();

SafeArrayDestroy(psa);

//I'll use IHTMLDocument3 to retrieve tags. Note it is available only in IE5+
//If you don't want to use it, u can just run through all tags in HTML
//(IHTMLDocument2->all property)
pDoc3 = pDoc;

//display HREF parameter of every link (A tag) in ListBox
pCollection = pDoc3->getElementsByTagName(L"input");
for(long i=0; ilength; i++)
{
pElement = pCollection->item(i, (long)0);
if(pElement != NULL)
{
//second parameter says that you want to get text inside attribute as is
strRet += (LPCTSTR)bstr_t(pElement->getAttribute("name", 2));
strRet += "=";
strRet += (LPCTSTR)bstr_t(pElement->getAttribute("value", 2));
strRet += ";";
}
}


return strRet;
}