vbaで複数行のデータの一部を抜き出そうと思っています。
下記のようにすると、抜き出したデータの先頭に改行がついてしまいます。
何かいい方法はないでしょうか。
data = "start" & vbCrLf & "ABC" & vbCrLf & "DEF" & vbCrLf & "GHI" & vbCrLf & "end"
Set re = New RegExp
re.Pattern = "start((.|\n)*?)end"
re.MultiLine = True
Set mc = re.Execute(data)
For i = 0 To mc.Count - 1
MsgBox m.SubMatches(0)
Next i
上記を実行すると
vbCrLf & "ABC" & vbCrLf & "DEF" & vbCrLf & "GHI" & vbCrLf
となってしまいます。
”ABC”から抜き出す場合、正規表現をどう書けばいいのでしょうか。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
こんにちは。
vbCrLfを表すパターンは、
\r\n
です。
Sub Re8780307()
Dim re As VBScript_RegExp_55.RegExp
Dim mc As VBScript_RegExp_55.MatchCollection
Dim m As VBScript_RegExp_55.Match
Dim Data
Data = "start" & vbCrLf & "ABC" & vbCrLf & "DEF" & vbCrLf & "GHI" & vbCrLf & "end" & vbCrLf & _
"start" & vbCrLf & "JKL" & vbCrLf & "MNO" & vbCrLf & "PQR" & vbCrLf & "end"
Set re = New RegExp
re.Global = True
re.MultiLine = True
re.Pattern = "start(\r\n((.|\r\n)*?)\r\n)end"
Set mc = re.Execute(Data)
For Each m In mc
Debug.Print "■"; m.SubMatches(1); "■"
Next
End Sub
みたいなことをなさりたいのでは?
ありがとうございます。
すっかり、「¥r」の存在を忘れていました。
たぶん、これでスッキリ解決だと思います。
今からテストしてみます。
No.1
- 回答日時:
> re.Pattern = "start((.|\n)*?)end"
ここでstartの後の改行をかっこの外に出しておくべきなのでは?
re.Pattern = "start\n((.|\n)*?)end"
ありがとうございます。
今回、質問に書いたプログラムと、実際のプログラムは少し違います。
プログラムの一部を、簡略化しています。
実際は、正規表現でマッチしたのを、分割してコレクションに入れています。
その分割したデータを、再分割するところのプログラムが、今回質問したところです。
そこでは、なぜか正規表現がうまくマッチしません。
>re.Pattern = "start\n((.|\n)*?)end"
これも試してみましたが、startの文字を入れるとマッチしなくなります。
どうも、コレクションの挙動がおかしいので、その辺から見直してみます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/03/28 14:52
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
改行を含んだ文字列を正規表現で置換するには?
Visual Basic(VBA)
-
VBScriptの正規表現で半角スペースをマッチ
その他(プログラミング・Web制作)
-
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
-
4
VBScript.RegExp正規表現での後方参照
Visual Basic(VBA)
-
5
文字列からタブコードを取り除きたい
Visual Basic(VBA)
-
6
ExcelのVBA 正規表現でタブを利用するには?
Excel(エクセル)
-
7
VBのFunctionで、配列を引数や返却値にできますか?
Visual Basic(VBA)
-
8
変数名の取得
Visual Basic(VBA)
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
エクセルでエラーが出て困っています。
Excel(エクセル)
-
11
ExcelでRegExpのFunctionの作成
Excel(エクセル)
-
12
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
13
エクセルVBA 最終行はlast row ? end row ?
英語
-
14
【VBAユーザーフォームで閉じるボタンを表示したくない】
Visual Basic(VBA)
-
15
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
16
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
17
VBA プロシージャの名前の取得
その他(Microsoft Office)
-
18
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
19
VBAでCSVファイルが使用中かどうかの確認
Visual Basic(VBA)
-
20
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAユーザーホームテキストボッ...
-
五芒星は、悪魔崇拝とどういう...
-
シンボル化解除の方法
-
テキストボックスにセルの値を...
-
pdfのテキスト全文コピー、テキ...
-
VBScriptでMsgBoxのYesNoボック...
-
文字をスクロールできるGIFアプリ
-
プログラミング、アーキテクチ...
-
【VB.NET】別Formのボタンが押...
-
YOASOBI
-
else if文の順序を変えることに...
-
flash のステージの背景色
-
マウス自体の移動量の取得
-
UWSCのBTN関数について。
-
ムービークリップを動かす
-
photoshopで書いた四角の枠の中...
-
VS2008 C# ボタンのテキストを...
-
POIでのテキストボックス作成に...
-
DataTableの件数を取得したい
-
pythonの画像の貼り付けについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで改行の入ったデータの正規...
-
VBAユーザーホームテキストボッ...
-
テキストファイルから読み込ん...
-
外部SWFファイルを再生バーでコ...
-
AS3 mc0~5をまとめて処理する
-
ロールオーバーで下画像を表示...
-
エンドロール風テキストの表示...
-
看護師です。体温表のマクロを...
-
縦横比率のを変えずに画像のサ...
-
photoshopで書いた四角の枠の中...
-
YOASOBI
-
VBScriptでMsgBoxのYesNoボック...
-
プログラミング、アーキテクチ...
-
python ボタンを押すと複数の関...
-
別のアプリケーションのテキス...
-
テキストボックスの中身をリセ...
-
テキストボックスにセルの値を...
-
五芒星は、悪魔崇拝とどういう...
-
else if文の順序を変えることに...
-
RPG(AS400)の本、サイトってあ...
おすすめ情報