正規表現を使って、文字列切り取り

質問

.NETですが、正規表現なのでこちらで質問させて頂きます。
ちなみに、ここにリファレンスがここにあります・・・
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpgenref/html/cpconatomiczero-widthassertions.asp

二重破線内のような文字列がある場合に、
一重破線のみを切り取りたいのです。

今思いついているのは、
Dim strRegex As String = "CREATE PROCEDURE(?<parameter>:a+)AS"
Dim reg As New System.Text.RegularExpressions.Regex(strRegex, RegexOptions.Multiline Or RegexOptions.IgnoreCase)
If reg.Match(strStoredString).Success Then
MsgBox(reg.Match(strStoredString).Result(("${parameter}")))
End If

こんな感じなのですが、
正規表現の記述方法でもいいので、教えて下さい。
よろしくお願い致します。

================================
-- aaaaaaaaaaaaeefefe
CREATE PROCEDURE [opsys_parameter]
@いつから AS datetime, -- 対象日 |
@customer_no int, --
@aaa varchar(32)
AS
xxxxx
bbbb
ccc
================================

--------------------------------
@いつから AS datetime, -- 対象日 |
@customer_no int, --
@aaa varchar(32)
--------------------------------

回答No.4

BLUEPIXY · ベストアンサー

＞こちらも、ヒットしませんでした
改行コードの扱いが違っていたようです
perlで\nとしている部分を
\r\nにしないといけないようです。
>CREATE PROCEDURE.*?\n(?<parameter>.*?)AS
.*?にすると最短でマッチしようとするので、手前のASでマッチしてしまします。
あと、[]は実際には無い場合があるのですか？

改行AS改行で終わるということを制限するために
"CREATE PROCEDURE.*?\n(.+)(\r\n)AS\r\n"
として
Result(("$1$2")))
とすればいいかもしれません。

お礼

ありがとうございました。
頂いたやり方でいけました。

正規表現 すごく覚えること多いですね。
ぜひ使いこなせるようになりたいです・・・

また、質問することもあるかもしれませんが、
その際はよろしくお願い致します。

回答No.3

BLUEPIXY

Result(("${parameter}")))
は
Result(("$1")))
になります

お礼

ありがとうございます。

そのような書き方でも、マッチした部分の値をとることが
できるんですね。

回答No.2

BLUEPIXY

"CREATE PROCEDURE \[.*\]\s(.+)AS\n"
より
"CREATE PROCEDURE \[.*\]\s+(.+)AS\n"
のがいいかも

お礼

こちらも、ヒットしませんでした><

とりあえず、

CREATE PROCEDURE.*?\n(?<parameter>.*?)AS

という記述にしたら期待したものがとれるように
なりました。
（途中にsaasなどのつづりがあってもそちらでヒットしてしまい、不完全です...）

回答No.1

BLUEPIXY

>Dim strRegex As String = "CREATE PROCEDURE(?<parameter>:a+)AS"
>Dim reg As New System.Text.RegularExpressions.Regex(strRegex, RegexOptions.Multiline Or RegexOptions.IgnoreCase)
の部分を
Dim strRegex As String = "CREATE PROCEDURE \[.*\]\s(.+)AS\n"
Dim reg As New System.Text.RegularExpressions.Regex(strRegex, RegexOptions.Multiline Or RegexOptions.Singleline Or RegexOptions.IgnoreCase)
にする。

ちなみにPerl、同じ意味
$/="//\n";
while(<DATA>){
print $1 if /CREATE PROCEDURE \[.*\]\s(.+)AS\n/s;
}
__END__
-- aaaaaaaaaaaaeefefe
CREATE PROCEDURE [opsys_parameter]
@いつから AS datetime, -- 対象日 |
@customer_no int, --
@aaa varchar(32)
AS
xxxxx
bbbb
ccc

お礼

ご回答ありがとうございます。

早速ためさせていただきましたが、
正規表現に該当しないため、今のところ
動いておりません。