javascript - タグ間のテキストをキャプチャする VBA

Question

ExcelでVBAを使用してWebサイトからデータを抽出しようとしています。ページソースには次のものがあります (以下)。「A」タグの間にある「This is my text」というテキストを抽出でき、「DIV」タグの間にあるすべてのテキストを抽出して、「 This is my text (XXXXX)" .....しかし、"/A" の直後に表示されるテキスト ブロックを抽出できません。たとえば、"(XXXXX)"

 <div style="padding: 1px;"><a href="#" onclick="if(typeof jsfcljs == 'function'){jsfcljs(document.getElementById('MainPage'),{'j_id32'},'');}return false">This is my text</a> (XXXXX)</div>

<div style="padding: 1px; padding-left:20px;"><a href="#" onclick="if(typeof jsfcljs == 'function'){jsfcljs(document.getElementById('MainPage'),{'j_id32'},'');}return false">This is my text</a> (XXXXXXXX)</DIV>

何か案は？？

Answer 1

必要な文字列がDIV要素内で最後のタグを閉じた後の文字列であることがわかっている場合は、次を使用します。

TXT = Right(OBJ.innerHTML, Len(OBJ.innerHTML) - InStrRev(OBJ.innerHTML, ">"))

これにより、OBJはDIV要素になります