求正则，取内容

Question

根据开头“Select Case iColNo”和结尾“End Select”用正则匹配出以下红色部分：        ' カラム日本語名称
        Public Overrides Function GetColumnJName(ByVal iColNo As Int32) As String
            Select Case iColNo
                Case CID.CatalogNo
                    Return "ｶﾀﾛｸﾞNo."
                Case CID.ParamGroupNo
                    Return "ﾊﾟﾗﾒｰﾀｸﾞﾙｰﾌﾟ"
                Case CID.Title
                    Return "ﾀｲﾄﾙ"
                Case CID.WebDataFlag
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成有無"
                Case CID.WebDataType
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成条件"
                Case CID.ReportFlag
                    Return "届出申請ﾃﾞｰﾀ作成有無"
                Case CID.ReportType
                    Return "届出種別"
                Case CID.ReportStatus
                    Return "届出ｽﾃｰﾀｽ"
                Case CID.ExportCatalogNo
                    Return "抽出条件ｶﾀﾛｸﾞNo."
                Case CID.InfoManageFlag
                    Return "管理範囲分のお知らせ作成ﾌﾗｸﾞ"
                Case CID.UpdCount
                    Return "更新ｶｳﾝﾀ"
                Case Else
                    Err.Raise(ErrCode.INVALID_COLUMNID)
            End Select
            Return Nothing
        End Function请给表达式

Answer 1

(?=Select Case iColNo)[\s\S]+?(?=End Select)

Answer 2

(?=Select Case iColNo)[\s\S]+?(?<=End Select)

Answer 3

不对，我希望匹配出的结果为：match=@"
                Case CID.CatalogNo 
                    Return "ｶﾀﾛｸﾞNo." 
                Case CID.ParamGroupNo 
                    Return "ﾊﾟﾗﾒｰﾀｸﾞﾙｰﾌﾟ" 
                Case CID.Title 
                    Return "ﾀｲﾄﾙ" 
                Case CID.WebDataFlag 
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成有無" 
                Case CID.WebDataType 
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成条件" 
                Case CID.ReportFlag 
                    Return "届出申請ﾃﾞｰﾀ作成有無" 
                Case CID.ReportType 
                    Return "届出種別" 
                Case CID.ReportStatus 
                    Return "届出ｽﾃｰﾀｽ" 
                Case CID.ExportCatalogNo 
                    Return "抽出条件ｶﾀﾛｸﾞNo." 
                Case CID.InfoManageFlag 
                    Return "管理範囲分のお知らせ作成ﾌﾗｸﾞ" 
                Case CID.UpdCount 
                    Return "更新ｶｳﾝﾀ" 
                Case Else 
                    Err.Raise(ErrCode.INVALID_COLUMNID) 
"

Answer 4

不对，我希望匹配出的结果为：match=@"
                Case CID.CatalogNo 
                    Return "ｶﾀﾛｸﾞNo." 
                Case CID.ParamGroupNo 
                    Return "ﾊﾟﾗﾒｰﾀｸﾞﾙｰﾌﾟ" 
                Case CID.Title 
                    Return "ﾀｲﾄﾙ" 
                Case CID.WebDataFlag 
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成有無" 
                Case CID.WebDataType 
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成条件" 
                Case CID.ReportFlag 
                    Return "届出申請ﾃﾞｰﾀ作成有無" 
                Case CID.ReportType 
                    Return "届出種別" 
                Case CID.ReportStatus 
                    Return "届出ｽﾃｰﾀｽ" 
                Case CID.ExportCatalogNo 
                    Return "抽出条件ｶﾀﾛｸﾞNo." 
                Case CID.InfoManageFlag 
                    Return "管理範囲分のお知らせ作成ﾌﾗｸﾞ" 
                Case CID.UpdCount 
                    Return "更新ｶｳﾝﾀ" 
                Case Else 
                    Err.Raise(ErrCode.INVALID_COLUMNID) 
"

Answer 5

不对，我希望匹配出的结果为：match=@"
                Case CID.CatalogNo 
                    Return "ｶﾀﾛｸﾞNo." 
                Case CID.ParamGroupNo 
                    Return "ﾊﾟﾗﾒｰﾀｸﾞﾙｰﾌﾟ" 
                Case CID.Title 
                    Return "ﾀｲﾄﾙ" 
                Case CID.WebDataFlag 
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成有無" 
                Case CID.WebDataType 
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成条件" 
                Case CID.ReportFlag 
                    Return "届出申請ﾃﾞｰﾀ作成有無" 
                Case CID.ReportType 
                    Return "届出種別" 
                Case CID.ReportStatus 
                    Return "届出ｽﾃｰﾀｽ" 
                Case CID.ExportCatalogNo 
                    Return "抽出条件ｶﾀﾛｸﾞNo." 
                Case CID.InfoManageFlag 
                    Return "管理範囲分のお知らせ作成ﾌﾗｸﾞ" 
                Case CID.UpdCount 
                    Return "更新ｶｳﾝﾀ" 
                Case Else 
                    Err.Raise(ErrCode.INVALID_COLUMNID) 
"

Answer 6

不对，我希望匹配出的结果为：match=@"
                Case CID.CatalogNo 
                    Return "ｶﾀﾛｸﾞNo." 
                Case CID.ParamGroupNo 
                    Return "ﾊﾟﾗﾒｰﾀｸﾞﾙｰﾌﾟ" 
                Case CID.Title 
                    Return "ﾀｲﾄﾙ" 
                Case CID.WebDataFlag 
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成有無" 
                Case CID.WebDataType 
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成条件" 
                Case CID.ReportFlag 
                    Return "届出申請ﾃﾞｰﾀ作成有無" 
                Case CID.ReportType 
                    Return "届出種別" 
                Case CID.ReportStatus 
                    Return "届出ｽﾃｰﾀｽ" 
                Case CID.ExportCatalogNo 
                    Return "抽出条件ｶﾀﾛｸﾞNo." 
                Case CID.InfoManageFlag 
                    Return "管理範囲分のお知らせ作成ﾌﾗｸﾞ" 
                Case CID.UpdCount 
                    Return "更新ｶｳﾝﾀ" 
                Case Else 
                    Err.Raise(ErrCode.INVALID_COLUMNID) 
"

Answer 7

(?=Select Case iColNo)[\s\S]+?(?=End Select)

Answer 8

(?=Select Case iColNo)[\s\S]+?(?=End Select)
用这个可以啊

Answer 9

不对啊，不应该包含第一行啊，现在匹配出来的是，而我只需要红色部分            Select Case iColNo 
                Case CID.CatalogNo 
                    Return "ｶﾀﾛｸﾞNo." 
                Case CID.ParamGroupNo 
                    Return "ﾊﾟﾗﾒｰﾀｸﾞﾙｰﾌﾟ" 
                Case CID.Title 
                    Return "ﾀｲﾄﾙ" 
                Case CID.WebDataFlag 
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成有無" 
                Case CID.WebDataType 
                    Return "ﾄｯﾌﾟﾒﾆｭｰ参照用作成条件" 
                Case CID.ReportFlag 
                    Return "届出申請ﾃﾞｰﾀ作成有無" 
                Case CID.ReportType 
                    Return "届出種別" 
                Case CID.ReportStatus 
                    Return "届出ｽﾃｰﾀｽ" 
                Case CID.ExportCatalogNo 
                    Return "抽出条件ｶﾀﾛｸﾞNo." 
                Case CID.InfoManageFlag 
                    Return "管理範囲分のお知らせ作成ﾌﾗｸﾞ" 
                Case CID.UpdCount 
                    Return "更新ｶｳﾝﾀ" 
                Case Else 
                    Err.Raise(ErrCode.INVALID_COLUMNID) 

Answer 10

(?<=Select Case iColNo)[\s\S]+?(?=End Select)
这样就OK拉

Answer 11

刚学了，(? <=Select Case iColNo)[\s\S]+?(?=End Select) 肯定没有问题