DouKaku?

与えられた文字列から特定の条件を満たす文字列を抽出するコードを書いてください。 状況としてはテキスト形式で渡された原稿の中から、画像のファイル名を抽出するようなものをイメージしてください。

サンプル入力

aaa abc-hidden.png>hoge-big.jpeg
---foo-hidden-small.gif|^_^a.bmp
--hiddena-hoge.png<=not hidden~~
--small.jpg<=not small(^_^)
normal-small-big.hoge

サンプル出力

name:'abc', ext:'png', size: normal hidden: True
name:'hoge', ext:'jpeg', size: big hidden: False
name:'foo', ext:'gif', size: small hidden: True
name:'a', ext:'bmp', size: normal hidden: False
name:'hoge', ext:'png', size: normal hidden: False
name:'small', ext:'jpg', size: normal hidden: False
name:'small', ext:'hoge', size: big hidden: False

探すべき文字列は下の条件を満たします

• アルファベットと1個のピリオド、ハイフンで構成される
• 前後にはアルファベットではない文字がある(abcd.jpgがaaaabcd.jpghogeなどと書かれていることはない)
• ピリオドの後ろは拡張子で、アルファベットだけで構成されている
• ピリオドの直前に-hidden, -small, -bigがある場合には特殊な意味がある。複数個ある場合(a-hidden-big.jpgなど)も同じ
• ファイル名に-hiddenと-smallまたは-hiddenと-bigの両方が含まれる場合は-hiddenの方が先にある
• 特殊な意味の-hidden, -small, -big以外でハイフンが使われることはない
• 特殊な意味の-smallと-bigの両方が付くことはない

出力は以下の条件を満たす必要があります

• ファイル名が出現した順に表示される
• ファイル名に-hiddenが含まれるかどうかを真偽値で表示する
• ファイル名に-smallまたは-bigが含まれる場合はsmallまたはbigと、含まれない場合はnormalと表示する
• -hidden, -small, -bigを取り除いたファイル名部分と、拡張子を表示する

このお題は、正規表現のグループに名前をつけて連想配列として取得できるPythonからの挑戦状です。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

Dim input As String = "aaa abc-hidden.png>hoge-big.jpeg" & vbCrLf & _
                      "---foo-hidden-small.gif|^_^a.bmp" & vbCrLf & _
                      "--hiddena-hoge.png<=not hidden~~" & vbCrLf & _
                      "--small.jpg<=not small(^_^)" & vbCrLf & _
                      "normal-small-big.hoge"

For Each m As Match In Regex.Matches(input, "(?<name>[A-Za-z]+)(?<hidden>-hidden)?(-(?<size>big|small))?\.(?<ext>[A-Za-z]+)")
    Dim size As String = IIf(m.Groups("size").Success, m.Groups("size"), "normal").ToString
    Console.WriteLine(String.Format("name:'{0}', ext:'{1}', size: {2} hidden: {3}", m.Groups("name"), m.Groups("ext"), size, m.Groups("hidden").Success))
Next