関数引数の分解

わんくま同盟ホームわんくま同盟の最新記事 MyBlog 　　　Ognac試行部屋　　　

グループ化構成体を参考にしました。

パターン

処理文字列

御託

rc =  FUNCA ( a  , b ) ;        の引数は  a　と bです。
 rc =  FUNCB (  FUNCA(a,b) , c)  の引数は FUNCA(a,b)  と  c の二つです。    
 同様に  FUNC_x( xx, x,,,(((....))),,,,)  と幾らでも入れ子にできます。
 この文字列を 、アプリケーションで処理する時、少し面倒です。 '(' に対応する')'を見つけるのに、順次読み飛ばして行くのが確実でしょう。
 字句解析を作りこむのは大層なので、少し面倒。
 
 正規表現でなんとか処理できないでしょうか。単純な字面処理なので、できないように感じます。
 しかし、カウント処理が可能な指定があります。 .net.Framework方言では   
  (?&lt;TITLE&gt;[^\(\)]*)(((?'O'\()[^\(\)]*)+((?'C-O'\))[^\(\)]*?)+)*(?(O)(?!))です。
  Unix系では別の書式のようです。(不案内です)
  (*) 処理中に、引数の切り出しに頭から読み込んでいる部分があるので、サンプルとして一貫性が欠けてます。こういうことができるということで願います。

2008/10/02 : 上記に示したパターンは当初
　(?<TITLE>[^\(\)]*)(((?'O'\()[^\(\)]*)+((?'C-O'\))[^\(\)]*?)+)*(?(O)(?!))
でしたが、ブラケット内ではEscape不要なので訂正しました。

ソース


■e:\user\cervi.reseller\ognadmin\ognogn.com\www\Regex\Analize_Argument.aspx■
<%@ Page Language="C#" MasterPageFile="~/MasterPage.master" AutoEventWireup="true" CodeFile="Analize_Argument.aspx.cs" Inherits="Regex_Analize_Argument" Title="関数引数の分解"  validateRequest="False"  maintainScrollPositionOnPostBack ="true" %>

<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
    <asp:UpdatePanel ID="UpdatePanel1" runat="server">
    <ContentTemplate>

    <a href=http://msdn.microsoft.com/ja-jp/library/bs2twtah(VS.80).aspx>グループ化構成体</a>を参考にしました。
    <br />
    <br />
    <asp:Label ID="LBL_パターン" runat="server" Text="パターン"></asp:Label>
    <br />
    <asp:TextBox ID="TB_パターン" runat="server" Width="100%">(?&lt;TITLE&gt;[^()]*)(((?&#39;O&#39;\()[^()]*)+((?&#39;C-O&#39;\))[^()]*?)+)*(?(O)(?!))</asp:TextBox>
    <br />
    <br />
    <asp:Label ID="lbl_処理文字列" runat="server" Text="処理文字列"></asp:Label>
    <br />
    <asp:TextBox ID="TB_処理文字列" runat="server" Width="100%">Func_A ( FuncB( a , b ) , 
    Func_C( a , b , c) , Func_D( Sin(30) , cos(40) ) , 漢字 )</asp:TextBox>
    <br />
    <br />
    <asp:Button ID="btn_実行" runat="server" onclick="btn_実行_Click" Text="実行" />
    <br />
    <br />
    <asp:TextBox ID="TB_結果" runat="server" Height="233px" ReadOnly="True" 
        TextMode="MultiLine" Width="100%"></asp:TextBox>


    </ContentTemplate>
    </asp:UpdatePanel>
</asp:Content>



■e:\user\cervi.reseller\ognadmin\ognogn.com\www\Regex\Analize_Argument.aspx.cs■
using System;
using System.Collections;
using System.Configuration;
using System.Data;
using System.Linq;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.HtmlControls;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Xml.Linq;
using System.Text.RegularExpressions;
using System.Text;
using System.IO;
using System.Collections.Generic;


public partial class Regex_Analize_Argument : System.Web.UI.Page
{
    protected void Page_PreInit(object sender, EventArgs e)
    {
        Page.Theme = (string)Session["テーマ"];
    }

    protected void Page_Load(object sender, EventArgs e)
    {
    }
    private int NEST = 0;
    private void ネストカッコ_SUB(StringBuilder sb, string pat, string text)
    {
        NEST++;
        ネストカッコ_SUB_SUB(sb, pat, text);
        NEST--;
    }
    private string pad(int n)
    {
        string pad_ = string.Empty;
        for (int i = 0; i < n; i++)
        {
            pad_ += "   ";
        }
        return pad_;

    }
    private void ネストカッコ_SUB_SUB(StringBuilder sb, string pat, string text)
    {

        if (text.Trim().Length == 0) return;
        var re = new Regex(pat, RegexOptions.Multiline);
        MatchCollection mc = re.Matches(text);
        foreach (Match m in mc)
        {
            if (m.Value.Trim().Length == 0) continue;
            int n = m.Groups.Count - 1;
            string sub = m.Groups[n].Value.Trim();

            sb.AppendLine(pad(NEST) + "◆関数名 : " + m.Groups["TITLE"].Value); //+ " : 引数 : " + sub);
            sb.AppendLine(pad(NEST) + "  引数   : ");

            TB_結果.Text += "\n" + " 関数 :" + m.Groups["TITLE"].Value;
            TB_結果.Text += "\n" + "       引数 : " + sub;

            List<string> ls = subをconnmaで区切る(sub);
            foreach (string s in ls)
            {
                if (s.IndexOf('(') > -1)  // 括弧が無いのは最終レベルとする
                {
                    ネストカッコ_SUB(sb, pat, s);
                }
                else
                {
                    sb.Append(pad(NEST + 1) + s + System.Environment.NewLine);
                }
            }
        }
    }

    private List<string> subをconnmaで区切る(string sub)
    {
        List<string> ls = new List<string>();
        StringBuilder sb = new StringBuilder(1024);
        int nest = 0;
        foreach (char c in sub)
        {
            if (c == '(') nest++;
            if (c == ')') nest--;
            if (nest == 0 && c == ',')
            {
                ls.Add(sb.ToString());
                sb.Length = 0;
            }
            else
            {
                sb.Append(c);
            }
        }
        if (sb.Length > 0) { ls.Add(sb.ToString()); sb.Length = 0; }
        return ls;
    }

    protected void btn_実行_Click(object sender, EventArgs e)
    {
        try
        {
            StringBuilder sb = new StringBuilder(1024);
            string pat = TB_パターン.Text;
            string text = TB_処理文字列.Text;
            ネストカッコ_SUB(sb, pat, text);

            TB_結果.Text += "\n--------------------------\n";
            TB_結果.Text += sb.ToString();

        }
        catch (Exception ex)
        {
            TB_結果.Text = ex.Message;
        }
    }
}