VB.NETの正規表現で改行を含む文字列からデータを取得する方法

前へ 次へ
このQ&Aのポイント
  • VB.NETの正規表現を使用して改行を含む文字列から指定したデータを取得する方法について教えてください。
  • 具体的には、決まった文字列は「NAME」で、それ以降のデータを取得したいです。
  • 現在のコードでは、試行錯誤しても思うようにデータを取得することができません。適切な正規表現の書き方を教えてください。
回答を見る
  • ベストアンサー

VB.NETの正規表現の書き方を教えてください。

下のような改行を含む文字列から、1や2を指定してデータ1、データ2を取得したいです。 決まった文字列（変更のない）はNAMEのみで、 取得したい文字列ですが、例えば2を指定した場合は 具体的には NAME=b12345 A=b12345 B=b98765 C=bXYZ このような内容を取得したいです。 -------------------------------------- abcde aiueokakikukeko ここに改行を含むいろな文字列がある場合とない場合があります。 asdfghj NAME=a12345 A=a12345 B=a98765 C=aXYZ ここに改行を含むいろな文字列がある場合とない場合があります。 NAME=b12345 A=b12345 B=b98765 C=bXYZ ここに改行を含むいろな文字列がある場合とない場合があります。 NAME=c12345 A=c12345 B=c98765 C=cXYZ ここに改行を含むいろな文字列がある場合とない場合があります。 -------------------------------------- 正規表現の部分は現在はこのように書いてあります。 Dim i As Integer = 2 Dim reg As Regex Dim m As Match Dim Target As String reg = New Regex("", RegexOptions.Compiled Or RegexOptions.Multiline) m = reg.Match(Data) If m.Success = True Then Target = reg.Match(Data).Result("${Target}") End If Console.WriteLine(Target) 数量の指定をすれば何とかなりそうだと思ったのですが、 試行錯誤しても思うように取り出すことが出来ず 申し訳ないのですが、適切な書き方をご教示頂ければ幸いです。

質問者が選んだベストアンサー

  • ベストアンサー
  • sakusaker7
  • ベストアンサー率62% (800/1280)
回答No.1

なぜ2を指定すると >取得したい文字列ですが、例えば2を指定した場合は >具体的には >NAME=b12345 >A=b12345 >B=b98765 >C=bXYZ となるのかぜんぜん規則がわかりません。 1を指定すると同じデータでどう結果が変わるのでしょうか?

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VB.NETの正規表現の検索を教えてください。

    VB.NETの正規表現で文章中（HTMLソース）から番号を抜き取りたいのですが、 先頭の１つだけしか見つけられません。 htmlソース内に 番号：10000 番号：20000 番号：30000 番号：40000 という文字があるので、その後半の10000や20000を取得したいです。 下記のコードで実行すると、10000が４つ出力されてしまいます。 良い方法をご教示頂きたいです。よろしくお願いいたします。 Dim pagedata As String　　<---htmlソース Dim reg As Regex reg = New Regex("番号：(?<datano>.+)", RegexOptions.Compiled) Dim DataNo As String m = reg.Match(pagedata) While m.Success = True DataNo = reg.Match(pagedata).Result("${datano}") m = m.NextMatch() Console.WriteLine(DataNo) End While

  • VB.NETの正規表現を教えてください

    ＶＢ．ＮＥＴの正規表現でＵＲＬから特定の部分だけを 抜き取りたいのですが、どのようにしたら良いでしょうか。 下記のコードはＭＳＤＮのページで見つけたのですが、 Dim url as string="http://www.contoso.com:8080/letters/readme.html" Dim r As New Regex("^(?<proto>\w+)://[^/]+?(?<port>:\d+)?/",RegexOptions.Compiled) dim a as String a = r.Match(url).Result("${proto}${port}") とすると、aにhttp::8080　が入るというものなのですが、 これを少し変更して url = "http://www.yahoo.co.jp/~user123456/ABCDEFG/data/text" というＵＲＬだった場合にa=ABCDEFGを取得したいです。 ABCDEFGの前後は固定なので、正規表現の中にこの部分も明示して置きたいです。 IsMatchで "http://www.yahoo.co.jp/~user123456/.+/data/text" 書けばTrueが返ることまでは出来たのですが、 ABCDEFGの部分を取得する方法がわからないので、 恐れ入りますが方法を教えて頂きたいです。 よろしくお願い致します。

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

    .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) --------------------------------

    • ベストアンサー
    • Perl
  • 正規表現で指定したＵＲＬに飛びたいのですが・・・・

    お世話になっております。 ＶＢ2005ユーザーです。 こちらで回答をいただくみなさんには頭が下がる思いでいっぱいです。 もう少々、お力をお貸しいただけませんか。 宜しくお願いいたします。 当方、環境はＶＢ2005です。 WebBrowserにて、ＨＴＭＬを操作していくプログラムに挑戦しています。 ある特定の文字列のリンクに飛ぶには、正規表現を使用し、ＵＲＬを抽出するというところまでわかったのですが、 この正規表現の部分をwindowsフォーム内のテキストボックスの文字列にするにはどのようにしたらよいでしょうか？ 以下は当方がチャレンジしましたが、無理だったパターンです。 Dim r As Regex = New Regex( _ "<a\s+[^>]*href\s*=\s*(?:""(?<1>[^""]*)""|(?<1>[^\s>]+))[^>]*\s*.*" + TextBox1.text, _ RegexOptions.IgnoreCase Or RegexOptions.Compiled) Dim m As Match = r.Match(.Document.Body.InnerHtml) Dim St As String = m.Groups(1).Value '拾ってきたコード .Navigate(St) ・・・というようにしました。 上記の「+ TextBox1.text」の部分にテキストボックス内の文字列を挿入したいのです。 「+ TextBox1.text」の箇所を「TextBox1.text"」とすれば「TextBox1.text」自体を探してしまいますし・・・。 ちょっと行き詰ってしまいまして。 ご教授いただければ幸いでございます。 宜しくお願いいたします！！

  • 正規表現で<BR>の行を除外したいです。 VB.NET

    VB.NETで正規表現を使って２つの文字列に囲まれた部分を 取得したいのですが、文字列の先頭と末尾の部分の<BR>の行と 空行を削除したいです。 具体的には対象の文字列が ”ＡＢＣ <BR> <BR> あいうえお <BR> かきくけこ <BR> さしすせそ <BR> <BR> <BR> ＸＹＺ” となっていた場合に ”あいうえお <BR> かきくけこ <BR> さしすせそ” を取得したいです。 現在このようになっています。 Public STR As String Sub Form1_Load Dim sr As New System.IO.StreamReader("c:\0.html", system.Text.Encoding.Default) STR = sr.ReadToEnd TextBox2.Text = "(?<data>.+?)" End Sub Sub Button1_Click 　Dim A As String = "ＡＢＣ" 　Dim Z As String = "ＸＹＺ" 　Label1.Text = A & TextBox2.Text & Z 　Dim r As New Regex(Label1.Text, RegexOptions.Singleline) 　Dim m As System.Text.RegularExpressions.Match 　Try 　TextBox1.Text = r.Match(STR).Result("${data}") 　Catch ex As Exception 　Console.WriteLine("Error") 　End Try End Sub <BR>が<br>や<Br><bR>< br >などにも対応したりと 条件がいろいろありすぎて色々試したのですが、 どうしても分かりませんでした。 申し訳ございませんが、お助け頂ければ幸いです。

  • VB.NETの正規表現の書き方を教えてください

    いつもお世話になっております。 また正規表現がわからなくなってしまったのですが、 お助け願えないでしょうか。 Strの中にはこのようなものが入っています。 Str="あいうえお=====かきくけこ=====さしすせそたちつてと=====まみむめも=====なにぬねの" Dim r As Regex Dim m As Match Dim StrR As String r = New Regex("=====.+=====") m = r.Match(Str) While m.Success StrR = m.Value m = m.NextMatch() End While 順番に StrR="=====かきくけこ=====" StrR="=====まみむめも=====" を取得したいのですが、 上記のような書き方だと、 StrR=====かきくけこ=====さしすせそたちつてと=====まみむめも=====" を取得してしまいます。 回数の指定など色々試してはみたのですが、 どうしても目的のとおりにすることができず困っておりまして、 書き方をご教示頂きたくよろしくお願い致します。

  • ＶＢ．ＮＥＴで正規表現を教えてください。ＵＲＬ文字を取得

    ＶＢ．ＮＥＴなのですが、 htmlソースを変数に入れて、その中からＵＲＬを抽出して、 １つずつ保存していくという動作をさせたいのですが、 どうしてもＵＲＬを一つずつ取得することができません。 Dim r As Regex Dim m As Match Dim JpgFile As String r = New Regex("http://.+\.jpg") m = r.Match(html) If m.Success = False Then 　 Else JpgFile = m.Value ここで１つずつ保存 End If 現在、ここまで出来たのですが、 これだと、変数html内に複数のjpgのＵＲＬがあると 最初のＵＲＬの１文字目から、最後のＵＲＬの末尾までを一度に 取得してしまいます。 ＵＲＬの文字列はhttp://で始まっていて、終わりは・・・.jpg" になっていたり、"がなかったりします。 >で閉じる前に同じタグ内にWidthなどサイズを指定している場合もあります。 また、上記のようにタグ内に書かれていなくて、クリッカブルリンクになっていないＵＲＬの場合もありそれも取得したいです。 一つずつ取得する方法や一度に配列に読み込む方法などがありましたら、 ご教示頂けると助かります。 よろしくお願い致します。

  • 正規表現を教えてください。

    正規表現を教えてください。 C#で正規表現を用いた文字列検索を勉強中なのですが、うまくマッチさせることができません。教えていただけないでしょうか。 検索対象の文字列は下のようになります。 キーワード；値； 文字列中に該当するキーワードが存在する場合に、その値を取得するプログラムを考えています。しかし、私の正規表現では2つ目の「；」を検出してしまい、キーワードのみを取得することが出来ずに困っています。 見当違いの表記をしているとは思うのですがどなたかお助けください。 match = Regex.Match(line, "^(.*);"); C#初心者なものです。

  • .NET のスマートな正規表現の記述の仕方

    VB8 (2005)で、正規表現の書き方ですが、抽出する場合は、 以下のようにしましたが、抽出せず、単にマッチしたかとうが If文で判別する方法が知りたいです。 Imports System.Text.RegularExpressions '正規表現 Dim dat As String = "TEST 01" Dim ptn As String 'パターン Dim r As Regex ' Dim dv As String '部分 '抽出 ptn = "^TEST ([0-9]+)$" r = New Regex(ptn, RegexOptions.IgnoreCase) For Each m As Match In r.Matches(dat) dv = m.Groups(1).Value() MsgBox("抽出=[" & dv & "]") Next あと、上のようにFor文で回していますが、Globalでなく、今回は1つだけの抽出で、しかも１つだけの（）なので、これをFor文を使わずに直接取得する書き方はあるのでしょうか？ それ以前に、.NETの正規表現の書き方が一般的でなければ、ご指導お願い致します。

  • VB.NETの正規表現をVBAで記述するには

    VB2010.NETのコードをExcel2010のVBAのコードに置き換える作業をしていますが、List1のようにVB.NETのコードには、Inports System.Text.RegularExpressions で.NET正規表現パッケージが使われて、この部分をVBAではどのように記述すればよいのでしょうか。 自分なりにList2のようにしてみましたが、Dim M As MatchのMatchの部分で「ユーザ定義型は定義されていません」というコンパイルエラーが発生します。 参照設定にはSystem.Text.RegularExpressionsが見当たりませんが何を指定すればよいのでしょうか。 Microsoft VBScript Regular Expressions 5.5のRegExpオブジェクトでは後読みができないので大変困っています。 よろしくお願いします。(Windows7) ---List1:VB.NET(正常)--------------- Option Explicit On Option Strict On Imports System.Text.RegularExpressions Module Module1 　Sub Main() 　　Dim SampleText As String = "今日は西暦2014年6月20日です" 　　Dim M As Match = Regex.Match(SampleText, "(?<=西暦)\d+") 　　If Not M.Success Then 　　　Console.WriteLine("no match") 　　Else 　　　Dim MatchedText As String = M.Value 　　　Dim MatchedFrom As Integer = M.Index 　　　Dim MatchedLen As Integer = M.Length 　　　MsgBox("matched [" & MatchedText & "]" & _ 　　　　　　　" from char#" & MatchedFrom.ToString() & _ 　　　　　　　" for " & MatchedLen.ToString() & " chars.") 　　End If 　End Sub End Module ---List2:VBA(このコードではエラーになる)----- Option Explicit Sub test() 　Dim SampleText As String 　Dim M As Match 　Dim R As New Regex 　Dim MatchedText As String 　Dim MatchedFrom As Integer 　Dim MatchedLen As Integer 　SampleText = "今日は西暦2014年6月20日です" 　R = Regex("(?<=西暦)\d+") 　M = R.Match(SampleText) 　If Not M.Success Then 　　MsgBox ("no match") 　Else 　　MatchedText = M.Value 　　MatchedFrom = M.Index 　　MatchedLen = M.Length 　　MsgBox("matched [" & MatchedText & "]" & _ 　　　　　　" from char#" & MatchedFrom.ToString() & _ 　　　　　　" for " & MatchedLen.ToString() & " chars.") 　End If End Sub ------------------------------------------

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する