Customize the Code Generated by the Resources Designer

Imports System
Imports Generators = Kodeo.Reegenerator.Generators
Imports Wrappers = Kodeo.Reegenerator.Wrappers

Namespace Scenario1
    ''' <summary>
    ''' SmallChangesToDefaultResX custom generator class.
    ''' </summary>
    Public Class SmallChangesToDefaultResX
        Inherits Generators.CodeRenderer
        ''' <summary>
        ''' Default custom tool name for resx files.
        ''' </summary>
        Public Const CustomToolName As String = "ResXFileCodeGenerator"
        ''' <summary>
        ''' Renders the code.
        ''' </summary>
        ''' <returns>A <see cref="Generators.RenderResults"/> that contains the content of the generated files.</returns>
        Public Overrides Function Render() As Generators.RenderResults
            ' execute the default custom tool.
            Dim ctResults As Byte() = MyBase.RunOtherCustomTool(CustomToolName)
            ' get Microsoft's generated code as string.
            Dim results As String = System.Text.Encoding.Default.GetString(ctResults)

            Dim preamble As String = System.Text.Encoding.Default.GetString(System.Text.Encoding.UTF8.GetPreamble())
            If results.StartsWith(preamble) Then
                results = results.Substring(preamble.Length)
            End If

            ' transform the string.
            Dim modifiedResults As String = AddSomething(results)
            ' return the string to be saved into the .Designer.cs file.
            Return New Generators.RenderResults(modifiedResults)
        End Function

        Private Function AddSomething(ByVal results As String) As String
            results = String.Format( _
    "' -------------------------------------------------------" & Environment.NewLine & _
    "' Automatically generated with Kodeo's Reegenerator" & Environment.NewLine & _
    "' Generation date: {0}" & Environment.NewLine & _
    "' Generated by: {1}" & Environment.NewLine & _
    "' -------------------------------------------------------" & Environment.NewLine & _
    "{2}", _
                       System.DateTime.Now.ToString("yyyy-MM-dd hh:mm"), _
                       System.Security.Principal.WindowsIdentity.GetCurrent().Name, _
                       results)
            Return results
        End Function

    End Class
End Namespace