Regexを使ってASCIIプロトコルを解析する

Question

私は、ASCIIベースのプロトコルを使ってTelnetセッションを介してデバイスとやりとりする簡単なアプリケーションに取り組んでいます。

デバイスとのやりとりがたくさんあるので、入ってくる文字列を高速に解析する方法を探しています。今、メーカーはRegexスキームをリリースするのにとても親切でした。しかし、Regexは私にとって非常に新しいので、私は値を取得する方法を理解していません。私はどのように一致するか知っているが、私はそれから値を取得したいと一致するとき。応答の

正規表現スキーム

NameAndValue := [A-Z_]+:("(\\.|[^"\\])*"|(\\.|[^\s"\\])*) 
Value := ("(\\.|[^"\\])*"|(\\.|[^\s"\\])*) 
ValueUnquoted := (\\.|[^\s"\\])* 
ValueQuoted := "(\\.|[^"\\])*" 
CharQuoted := (\\.|[^"\\]) 
CharUnquoted := (\\.|[^\s"\\]) 
EscapedChar := \\. 
CharCommon := [^\s"\\] 
CharEscape := \\ 
CharQuote := " 
CharSpace := \s 

例Iは、文書をたくさん読んで、たくさんのアプローチのを試してみた

CMD1:"string value" CMD2:1 CMD3:"string value again" <LF> or <CR>+<LF> 

、しかし誰かが右、直接に私を指摘することができます。

しかし、私は、コマンドとその値のインデックス位置を見つけて、部分文字列を使用して値だけを取得する単純なパーサーを作成しました。それは動作しますが、私はRegexの力で "より良い"方法を好みます。

--------- EDIT 18-10-2017 ---------

より詳細な "構文解析" の要件を提供するために、@VBobCatのリクエスト。

それでは、私はプロパティFooとBarを持つオブジェクトを持っていると私はTelnet経由の文字列を受信したとき、我々は、私はそれらのいずれかにそれを解析する必要が今のプロパティcatとdog

との第2の目的を持っているとしましょうオブジェクト。幸いなことに、文字列は常にその文字列で始まります。したがって、FooとBarのオブジェクトの場合はx、catとdogのオブジェクトの場合はanimalとします。

ここで提供されているRegexでは、文字列の値をオブジェクトのプロパティに解析します。以下のような何か：

X CMD1_Foo:1 CMD2_Bar:"string value" <LF> or <CR>+<LF> 
Object X.Foo = CMD1_Foo.value 
Object X.Bar = CMD2_Bar.value 

OR

Animal CMD1_Cat:"Miauw" CMD2_Dog:"woef" <LF> or <CR>+<LF> 
Object X.Cat = CMD1_Cat.value 
Object X.Dog = CMD2_Dog.value 

Answer 1

すべてのサンプルはあなたの例と一致している場合、これは仕事ができる：

Function ParseTelnet(input As String) As DataTable 
    Dim retTable As New DataTable 
    retTable.Columns.Add("command", GetType(String)) 
    retTable.Columns.Add("value", GetType(String)) 
    Dim entries = System.Text.RegularExpressions.Regex.Split(input, "\s+(?=\w+:)") 
    Dim pairs = entries.Select(
     Function(entry) If(entry, "").Trim(Chr(9), Chr(10), Chr(13), Chr(32)).Split({":"c}, 2)).Where(
     Function(pair) pair.Count = 2) 
    For Each pair In pairs 
     If pair(1).StartsWith("""") AndAlso pair(1).EndsWith("""") Then 
      retTable.Rows.Add(pair(0), pair(1).Substring(1, pair(1).Length - 2)) 
     Else 
      retTable.Rows.Add(pair(0), pair(1)) 
     End If 
    Next 
    Return retTable 
End Function