完整的VB.NET的语法解析程序

完整的VB.NET的语法解析程序

using  System;
using  System.Text;
using  System.Text.RegularExpressions;

namespace  Com.OSLeague.Component
... {
    /**//// <summary>
    /// 语法分析器，将所有Code根据语法进行变色
    /// <list type="VB">支持VB.NET</list>
    /// <list type="CS">支持CS</list>
    /// <author>掉掉</author>
    /// <date>2002年5月14日</date>
    /// <Memo>
    /// 练习正则表达式
    /// </Memo>
    /// </summary>
    public class CodeAnalysis
    ...{

        //
        //定义HTML开始和结束的语句，用于语法变色
        //

        const string TAG_FNTRED    = @"<font color=""red"">";
        const string TAG_FNTBLUE   = @"<font color=""blue"">" ;
        const string TAG_FNTGRN    = @"<font color=""green"">" ;
        const string TAG_FNTMRN    = @"<font color=""maroon"">" ;
        const string TAG_FNTBLACK  = @"<font color=""black"">" ;
        const string TAG_EFONT     = @"</font>" ;
        const string TAG_SPNYELLOW = @"<span style=""background-color: yellow;"">";
        const string TAG_ESPAN     = @"</span>";
        const string TAG_B         = @"<b>";
        const string TAG_EB        = @"</b>";
        const string TAG_COMMENT   = @"<font colr=#008200>";
        const string TAG_ECOMMENT   = @"</font>";

        //



        public CodeAnalysis()
        ...{
            //
            // TODO: 在此处添加构造函数逻辑
            //
        }

    
        
        /**//// <summary>
        /// 处理VB.NET代码，彩色化..
        /// </summary>
        /// <param name="Code">传入的Code</param>
        /// <returns>处理过后的代码</returns>
        public string ParseVB(string Code)
        ...{
            //
            //定义VB.NET中关键字，将其存为数组
            //

            string[] VB_Keyword = new string[]
            ...{
                "AddHandler","AddressOf","AndAlso","Alias","And","Ansi","As","Assembly","Auto","Boolean",
                "ByRef","Byte","ByVal","Call","Case","Catch","CBool","CByte","CChar",
                "CDate","CDec","CDbl","Char","CInt","Class","CLng","CObj","Const",
                "CShort","CSng","CStr","CType","Date","Decimal","Declare","Default",
                "Delegate","Dim","DirectCast","Do","Double","Each","Else","ElseIf","End",
                "Enum","Erase","Error","Event","Exit","False",
                "Finally","For","Friend","Function","Get","GetType","GoTo","Handles","If",
                "Implements","Imports","In","Inherits","Integer","Interface",
                "Is","Let","Lib","Like","Long","Loop","Me","Mod","Module",
                "MustInherit","MustOverride","MyBase","MyClass","Namespace","New","Next","Not","Nothing",
                "NotInheritable","NotOverridable","Object","On","Option","Optional","Or","OrElse",
                "Overloads","Overridable","Overrides","ParamArray","Preserve","Private","Property","Protected","Public",
                "RaiseEvent","ReadOnly","ReDim","RemoveHandler","Resume","Return",
                "Select","Set","Shadows","Shared","Short","Single","Static","Step","Stop",
                "String","Structure","Sub","SyncLock","Then","Throw",
                "To","True","Try","TypeOf","Unicode","Until","Variant","When","While",
                "With","WithEvents","WriteOnly","Xor"
            };

            

            //
            //设定转换代码颜色
            //

            string ReplaceVBComment = TAG_COMMENT + "$1" + TAG_ECOMMENT;
            string ReplaceVBKeyword = TAG_FNTBLUE + "${char}" + TAG_EFONT;
            //开始转换
            for (int i=0;i<VB_Keyword.Length;i++)
            ...{
                string TempDirectives = @"(?<char>(s" + VB_Keyword[i] + "|" + VB_Keyword[i] + @"s))";
                Code = Regex.Replace(Code,TempDirectives,ReplaceVBKeyword,RegexOptions.IgnoreCase);
                Code = Regex.Replace(Code,@"'(?<x>[^ ]*)",ReplaceVBComment);
                Code = Regex.Replace(Code,@"REM (?<x>[^ ]*)",ReplaceVBComment);
            }
            return Code;    
        }
    }
}

 

学学编译原理里的句法分析可能会有帮助