[.NET]プログラムコードの変換（C#、VB.NET→HTML）[Page3]

[はじめに]
「[.NET]プログラムコードの変換（C#、VB.NET→HTML）[Page2]」からの続きです。

[プログラムソース]
ブログの容量制限の為、下記に分けて記述しています。
[.NET]プログラムコードの変換（C#、VB.NET→HTML）[Page1]
[.NET]プログラムコードの変換（C#、VB.NET→HTML）[Page2]
[.NET]プログラムコードの変換（C#、VB.NET→HTML）[Page3]

コードのコピー

Imports System.Text.RegularExpressions ''' <summary> ''' 変換（SQLServerコード→HTML） ''' </summary> ''' <remarks></remarks> Public Class SqlServerCodeConverterToHtml     Inherits CodeConverterToHtml #Region "定数定義"     ''' <summary>     ''' 背景色     ''' </summary>     ''' <remarks></remarks>     Private Const BACK_COLOR As String = "#FFFFE0"     ''' <summary>     ''' 背景色（タイトル）     ''' </summary>     ''' <remarks></remarks>     Private Const BACK_COLOR_TITLE As String = "#66CCCC"     ''' <summary>     ''' 前景色     ''' </summary>     ''' <remarks></remarks>     Private Const FORE_COLOR As String = "#000000"     ''' <summary>     ''' 前景色（コメント）     ''' </summary>     ''' <remarks></remarks>     Private Const FORE_COLOR_COMMENT As String = "#008040"     ''' <summary>     ''' 前景色（文字列）     ''' </summary>     ''' <remarks></remarks>     Private Const FORE_COLOR_STRING As String = "#FF0000"     ''' <summary>     ''' 前景色（予約語）     ''' </summary>     ''' <remarks></remarks>     Private Const FORE_COLOR_RESERVED_WORD As String = "#0000FF" #End Region #Region "変数定義"     ''' <summary>     ''' 正規表現     ''' </summary>     ''' <remarks></remarks>     Private m_RegEx As Regex = Nothing     ''' <summary>     ''' 予約語一覧     ''' </summary>     ''' <remarks></remarks>     Private m_ReservedWords As New List(Of String) #End Region #Region "コンストラクタ"     ''' <summary>     ''' コンストラクタ     ''' </summary>     ''' <remarks></remarks>     Public Sub New()     End Sub #End Region #Region "変換対象の文字列を検索する正規表現を取得する。"     ''' <summary>     ''' 変換対象の文字列を検索する正規表現を取得する。     ''' </summary>     ''' <returns>正規表現</returns>     ''' <remarks></remarks>     Protected Overrides Function GetRegEx() As Regex         If Not (Me.m_RegEx Is Nothing) Then             Return Me.m_RegEx         End If         Dim strPatternAll As String = Nothing         '正規表現パターン         '※コメント判別         '（先頭開始、0個以上の「&nbsp;」、1個以上の「--」、0個以上の任意文字）         Dim strPattern1 As String = "^(&nbsp;)*(--)+.*"         '※コメント判別         '（先頭開始、0個以上の空白、1個以上の「--」、0個以上の任意文字）         Dim strPattern2 As String = "^\s*(--)+.*"         '※文字列判別         '（「'」開始、0個以上の任意文字、最も手前の「'」終了）         Dim strPattern3 As String = "'.*?'"         '※予約語判別         '（単語単位で予約語の何れかと同じ）         Dim wkStr As String = String.Join("|", Me.GetReservedWords())         Dim strPattern4 As String = "\b(" & wkStr & ")\b"         strPatternAll = _                     strPattern1 & "|" & strPattern2 & "|" & _                     strPattern3 & "|" & strPattern4          Me.m_RegEx = New Regex(strPatternAll, RegexOptions.IgnoreCase)         Return Me.m_RegEx     End Function #End Region #Region "正規表現の検索結果を編集する。"     ''' <summary>     ''' 正規表現の検索結果を編集する。     ''' </summary>     ''' <param name="match">検索結果</param>     ''' <returns>編集結果</returns>     ''' <remarks></remarks>     Protected Overrides Function MatchEvaluator(ByVal match As Match) As String         If match.Value.Replace("&nbsp;", "").StartsWith("--") OrElse _             match.Value.Trim().StartsWith("--") Then             'コメントの場合                         Dim wk1 As Integer = match.Value.IndexOf("--")             If wk1 = 0 Then                 Return String.Format( _                     "<font color='{0}'>{1}</font>", _                     FORE_COLOR_COMMENT, _                     match.Value.Substring(wk1))             End If             Return match.Value.Substring(0, wk1) & _                     String.Format( _                     "<font color='{0}'>{1}</font>", _                     FORE_COLOR_COMMENT, _                     match.Value.Substring(wk1))         End If         If match.Value.StartsWith("'") AndAlso _             match.Value.EndsWith("'") Then             '文字列の場合                         Return String.Format( _                 "<font color='{0}'>{1}</font>", _                 FORE_COLOR_STRING, _                 match.Value)         End If         '予約語の場合         Return String.Format( _             "<font color='{0}'>{1}</font>", _             FORE_COLOR_RESERVED_WORD, _             match.Value)     End Function #End Region #Region "予約語一覧を取得する。"     ''' <summary>     ''' 予約語一覧を取得する。     ''' </summary>     ''' <returns>予約語一覧</returns>     ''' <remarks></remarks>     Public Overrides Function GetReservedWords() As String()         If Me.m_ReservedWords.Count > 0 Then             Return Me.m_ReservedWords.ToArray()         End If         With Me.m_ReservedWords             .AddRange(New String() {"ADD", "ALL", "ALTER", "AND", "ANY"})             .AddRange(New String() {"AS", "ASC", "AUTHORIZATION", "BACKUP", "BEGIN"})             .AddRange(New String() {"BETWEEN", "BREAK", "BROWSE", "BULK", "BY"})             .AddRange(New String() {"CASCADE", "CASE", "CHECK", "CHECKPOINT", "CLOSE"})             .AddRange(New String() {"CLUSTERED", "COALESCE", "COLLATE", "COLUMN", "COMMIT"})             .AddRange(New String() {"COMPUTE", "CONSTRAINT", "CONTAINS", "CONTAINSTABLE", "CONTINUE"})             .AddRange(New String() {"CONVERT", "CREATE", "CROSS", "CURRENT", "CURRENT_DATE"})             .AddRange(New String() {"CURRENT_TIME", "CURRENT_TIMESTAMP", "CURRENT_USER", "CURSOR", "DATABASE"})             .AddRange(New String() {"DBCC", "DEALLOCATE", "DECLARE", "DEFAULT", "DELETE"})             .AddRange(New String() {"DENY", "DESC", "DISK", "DISTINCT", "DISTRIBUTED"})             .AddRange(New String() {"DOUBLE", "DROP", "DUMP", "ELSE", "END"})             .AddRange(New String() {"ERRLVL", "ESCAPE", "EXCEPT", "EXEC", "EXECUTE"})             .AddRange(New String() {"EXISTS", "EXIT", "EXTERNAL", "FETCH", "FILE"})             .AddRange(New String() {"FILLFACTOR", "FOR", "FOREIGN", "FREETEXT", "FREETEXTTABLE"})             .AddRange(New String() {"FROM", "FULL", "FUNCTION", "GOTO", "GRANT"})             .AddRange(New String() {"GROUP", "HAVING", "HOLDLOCK", "IDENTITY", "IDENTITY_INSERT"})             .AddRange(New String() {"IDENTITYCOL", "IF", "IN", "INDEX", "INNER"})             .AddRange(New String() {"INSERT", "INTERSECT", "INTO", "IS", "JOIN"})             .AddRange(New String() {"KEY", "KILL", "LEFT", "LIKE", "LINENO"})             .AddRange(New String() {"LOAD", "MERGE", "NATIONAL", "NOCHECK", "NONCLUSTERED"})             .AddRange(New String() {"NOT", "NULL", "NULLIF", "OF", "OFF"})             .AddRange(New String() {"OFFSETS", "ON", "OPEN", "OPENDATASOURCE", "OPENQUERY"})             .AddRange(New String() {"OPENROWSET", "OPENXML", "OPTION", "OR", "ORDER"})             .AddRange(New String() {"OUTER", "OVER", "PERCENT", "PIVOT", "PLAN"})             .AddRange(New String() {"PRECISION", "PRIMARY", "PRINT", "PROC", "PROCEDURE"})             .AddRange(New String() {"PUBLIC", "RAISERROR", "READ", "READTEXT", "RECONFIGURE"})             .AddRange(New String() {"REFERENCES", "REPLICATION", "RESTORE", "RESTRICT", "RETURN"})             .AddRange(New String() {"REVERT", "REVOKE", "RIGHT", "ROLLBACK", "ROWCOUNT"})             .AddRange(New String() {"ROWGUIDCOL", "RULE", "SAVE", "SCHEMA", "SECURITYAUDIT"})             .AddRange(New String() {"SELECT", "SEMANTICKEYPHRASETABLE", "SEMANTICSIMILARITYDETAILSTABLE"})             .AddRange(New String() {"SEMANTICSIMILARITYTABLE", "SESSION_USER"})             .AddRange(New String() {"SET", "SETUSER", "SHUTDOWN", "SOME"})             .AddRange(New String() {"STATISTICS", "SYSTEM_USER", "TABLE"})             .AddRange(New String() {"TABLESAMPLE", "TEXTSIZE", "THEN"})             .AddRange(New String() {"TO", "TOP", "TRAN"})             .AddRange(New String() {"TRANSACTION", "TRIGGER", "TRUNCATE"})             .AddRange(New String() {"TRY_CONVERT", "TSEQUAL", "UNION"})             .AddRange(New String() {"UNIQUE", "UNPIVOT", "UPDATE"})             .AddRange(New String() {"UPDATETEXT", "USE", "USER"})             .AddRange(New String() {"VALUES", "VARYING", "VIEW"})             .AddRange(New String() {"WAITFOR", "WHEN", "WHERE"})             .AddRange(New String() {"WHILE", "WITH", "WITHINGROUP", "WRITETEXT"})         End With         Return Me.m_ReservedWords.ToArray()     End Function #End Region #Region "タイトルを取得"     ''' <summary>     ''' タイトルを取得     ''' </summary>     ''' <returns></returns>     ''' <remarks></remarks>     Public Overrides Function GetDefaultTitle() As String         Return "SQLServer"     End Function #End Region #Region "背景色（タイトル）を取得"     ''' <summary>     ''' 背景色（タイトル）を取得     ''' </summary>     ''' <returns></returns>     ''' <remarks></remarks>     Public Overrides Function GetTitleBackColor() As String         Return BACK_COLOR_TITLE     End Function #End Region #Region "背景色を取得"     ''' <summary>     ''' 背景色を取得     ''' </summary>     ''' <returns></returns>     ''' <remarks></remarks>     Public Overrides Function GetBackColor() As String         Return BACK_COLOR     End Function #End Region #Region "前景色を取得"     ''' <summary>     ''' 前景色を取得     ''' </summary>     ''' <returns>前景色</returns>     ''' <remarks></remarks>     Public Overrides Function GetForeColor() As String         Return FORE_COLOR     End Function #End Region End Class

[VB.NET]SqlServerCodeConverterToHtml

タグ：SQLServer ソース変換 クリップボード クリップボードにコピー HTML変換