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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
改行を含んだ文字列を正規表現で置換するには?
Visual Basic(VBA)
-
VBScriptの正規表現で半角スペースをマッチ
その他(プログラミング・Web制作)
-
ExcelのVBA 正規表現でタブを利用するには?
Excel(エクセル)
-
-
4
VBScript.RegExp正規表現での後方参照
Visual Basic(VBA)
-
5
文字列からタブコードを取り除きたい
Visual Basic(VBA)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
エクセルでエラーが出て困っています。
Excel(エクセル)
-
8
ExcelでRegExpのFunctionの作成
Excel(エクセル)
-
9
vbaの正規表現で、マッチした一部分を抽出したい
PowerPoint(パワーポイント)
-
10
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
11
エクセルVBA 最終行はlast row ? end row ?
英語
-
12
正規表現で、特定の文字列を含む行の改行を削除したい
AJAX
-
13
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
14
VBのFunctionで、配列を引数や返却値にできますか?
Visual Basic(VBA)
-
15
変数名の取得
Visual Basic(VBA)
-
16
【VBAユーザーフォームで閉じるボタンを表示したくない】
Visual Basic(VBA)
-
17
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
18
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
19
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
20
ワードのマクロで段落番号(文字も含む)取得ってできますか
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで改行の入ったデータの正規...
-
as3 addchildで生成したMCにリ...
-
VBAユーザーホームテキストボッ...
-
プログラミング、アーキテクチ...
-
YOASOBI
-
【VB.NET】別Formのボタンが押...
-
ボタンの上にマウスを置くと虫...
-
フォームのテキストの入力数字...
-
テキストボックスの中身をリセ...
-
テキストボックスにセルの値を...
-
FLASHでの色変更
-
VB.NETで数十行のプログラムを...
-
【Photoshop】レイヤー効果の境...
-
SNMPの標準MIBについて
-
IP Address 入力フォームについて
-
マウス自体の移動量の取得
-
ウインドウハンドルとインスタ...
-
CreateDialogについて
-
VB6.0のHideのバグ?
-
ipconfig /releaseって何ですか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで改行の入ったデータの正規...
-
VBAユーザーホームテキストボッ...
-
テキストファイルから読み込ん...
-
外部SWFファイルを再生バーでコ...
-
AS3 mc0~5をまとめて処理する
-
エンドロール風テキストの表示...
-
ロールオーバーで下画像を表示...
-
看護師です。体温表のマクロを...
-
縦横比率のを変えずに画像のサ...
-
photoshopで書いた四角の枠の中...
-
YOASOBI
-
VBScriptでMsgBoxのYesNoボック...
-
プログラミング、アーキテクチ...
-
python ボタンを押すと複数の関...
-
別のアプリケーションのテキス...
-
テキストボックスの中身をリセ...
-
テキストボックスにセルの値を...
-
五芒星は、悪魔崇拝とどういう...
-
else if文の順序を変えることに...
-
変数に256文字以上のテキストを...
おすすめ情報