正規表現で・・・ (ID:142922)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > この間にある文字すべて(改行含む) 『123[a]¶あいうえお¶かきくけこ¶』と 『456[b]¶さしすせそ¶たちつてと¶』が 取得できれば良いという事でしょうか? （改行文字を¶で表しています） だとすれば今回は、区切り文字列が 『<HR color=#000000 WIDTH=90% SIZE=2>』 で固定されているので、正規表現を使わずとも処理できそうです。 Option Explicit Private Sub Form_Load() Label1.Caption = _ "<HR color=#000000 WIDTH=90% SIZE=2>123[a]" & vbCrLf & _ "あいうえお" & vbCrLf & _ "かきくけこ" & vbCrLf & _ "<HR color=#000000 WIDTH=90% SIZE=2>456[b]" & vbCrLf & _ "さしすせそ" & vbCrLf & _ "たちつてと" & vbCrLf & _ "<HR color=#000000 WIDTH=90% SIZE=2>" End Sub Private Sub Command1_Click() Dim result() As String result = Split(Label1.Caption, "<HR color=#000000 WIDTH=90% SIZE=2>") '確認 Dim v As Variant For Each v In result Debug.Print "『" & v & "』" Next End Sub