VBA <p>タグの中にあるテキスト取得について

Question

ただいま、VBAでWeb操作を学んでいる最中なのですが、
Webサイト上の<p>タグ内のテキストが取得できず苦戦しています。

---

<p class="~~"> 　テストさん　←ここを取得したいです。 <br /> らーめん <br />

---

コードの一部ですが、以下打ち込んだコードです。

For Each test In webIE.document.getElementByTagName("p")
If test.innerText = InStr(test, "テスト") Then
Cells(cnt, 1).Value = test.innerText
End If

どう修正すれば良いか教えて頂けると助かります。

Comments

[kenshirou]

具体的には、pタグの中の最初のbrタグの手前までを取得したいということでしょうか？

[hirokin92]

そうです！色々試したのですが、できなかったので教えて頂きたいです。すみません。

Answer 1

test.innerTextの内容は、おそらく「テストさん」と「らーめん」の間に改行（具体的にはvbCrLf）が入っているのではないかと思います。
（VBAのウォッチ式だとこの改行が見えないかも知れませんが。）
test.innerTextの内容の、最初の改行までの文字を取得する方法はいくつかありますが、手っ取り早いのは、test.innerTextを改行文字で分断・配列化し、その最初の要素を取得する方法です。

    Dim pText As String
    pText = test.innerText
    Dim pLines() As String
    pLines = Split(pText, vbCrLf)
    MsgBox pLines(0)   '取得したい文字 

Comments

[hirokin92]

返事が遅れてしまい、すみませんでした。
お答えいただきありがとうございます。
なるほどsplit関数を使うのですね。
失念してました。

試してみます！

[kenshirou]

その他、対象テキストの左側から改行文字を検索して、見つかった位置の手前までの文字を取得する（改行文字が無ければ元のテキストそのもの）という方法もあります。
どちらかというと、この方法が正当なのでしょうが、今回は手抜き？の方法としてsplit関数を使用しました。