Logfile Analyse

# hide powershell console window
Add-Type –MemberDefinition '[DllImport("user32.dll")]public static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);' -name Window -namespace W32  
[void][W32.Window]::ShowWindow((Get-Process -id $pid).MainWindowHandle, 0) 

# function which generates the form
function GenerateForm {

    #region Import the Assemblies
    [reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null  
    [reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null  
    #endregion

    $form1 = New-Object System.Windows.Forms.Form -Property @{
      Name = 'form1'  
      Text = "Logfile Translator"  
      ClientSize = '846,558'  
    }
    $tabs = New-Object System.Windows.Forms.TabControl -Property @{
      Name = "tabs"  
      Anchor = 15
      Location = '12,12'  
      Size = '822,534'  
      SelectedIndex = 0
      add_SelectedIndexChanged = {
        if ($tabs.SelectedIndex -eq 2){
            $transtables = New-Object System.Collections.ArrayList
            $dgvTable.Rows | %{
                $transtables.Add((Import-CSV -LiteralPath $_.Cells[1].Value.toString() -Delimiter $comboDelimiter.Text))
            }
        
            $transresult = $global:matches | %{
                $obj = [ordered]@{}
                $cnt = 1
                foreach($grp in ($_.Groups | select -skip 1)){
                    $obj.($dgvTable.Rows[$cnt-1].Cells.Value) = $transtables[($cnt-1)] | ?{$_.($txtSearchColumn.Text) -eq $grp.Value} | select -Firs 1 -Expand $txtReplaceColumn.Text
                    $cnt++
                }
                [pscustomobject]$obj
            }

            $data = New-Object System.Collections.ArrayList
            $data.AddRange(@($transresult))
            $dgvResult.DataSource = $data
        }
      }
      add_Selecting = {
        if($_.TabPageIndex -eq 2 -and $dgvTable.Rows.Count -lt 1){
            [System.Windows.Forms.MessageBox]::Show("Please fill translation table first!","Info",0,48)  
            $_.Cancel = $true
        }
      }
    }
    $form1.Controls.Add($tabs)
    
    $tabLogfile = New-Object System.Windows.Forms.TabPage -Property @{
      Name = "tabLogfile"  
      Text = "Logfile"  
      Size =  '814,508'  
      Location = '22,4'  
      Padding = 10
      UseVisualStyleBackColor = $True
    }
    $tabs.Controls.Add($tabLogfile)
    
    $label1 = New-Object System.Windows.Forms.Label -Property @{
      Name = "label1"  
      Anchor = 9
      Location = '701,18'  
      Size = '100,23'  
      Text = "Preview"  
      TextAlign = 64
    }
    $tabLogfile.Controls.Add($label1)
    
    $txtLogfile = New-Object System.Windows.Forms.TextBox -Property @{
      Name = 'txtLogfile'  
      Location = '13,44'  
      Size = '788,451'  
      Anchor = 15
      Multiline = $True
      ReadOnly = $True
      ScrollBars = "Both"  
    }
    $tabLogfile.Controls.Add($txtLogfile)
    
    $btnLoadLogfile = New-Object System.Windows.Forms.Button -Property @{
      Name = 'btnLoadLogfile'  
      Location = '13,13'  
      Size = '91,23'  
      Text = "Load logfile ..."  
      add_Click = {
        $dlg = New-Object System.Windows.Forms.OpenFileDialog -Property @{Multiselect = $false}
        if($dlg.ShowDialog() -eq 'OK'){  
            $txtLogfile.Text = Get-Content $dlg.FileName -raw
            $global:logfile = $dlg.FileName
        }

      }
    }
    $tabLogfile.Controls.Add($btnLoadLogfile)
    
    $tabTranslation = New-Object System.Windows.Forms.TabPage -Property @{
      Name = "tabTranslation"  
      Location = '22,4'  
      Size = '814,508'  
      Padding = 10
      Text = "Translation"  
    }
    $tabs.Controls.Add($tabTranslation)
    
    $btnUpdateRegex = New-Object System.Windows.Forms.Button -Property @{
      Name = "btnUpdateRegex"  
      Text = "Update"  
      Location = '707,10'  
      Size = '94,23'  
      Anchor = "Top,Right"  
      Enabled = $false
      add_Click = {
        try{
            $global:regex = [regex]::new($txtParserRegex.Text)
            if ($global:regex.GetGroupNumbers().Count -le 1){
                throw "Please define at least 1 submatch definition!"  
            }
            $dgvTable.Rows.Clear()
            $global:matches = $global:regex.Matches((Get-Content $global:logfile -raw))
        
            1..($global:regex.GetGroupNumbers().Count - 1) | %{
                $dgvTable.Rows.Add(@($_,''))  
            }
        }catch{
            [System.Windows.Forms.MessageBox]::Show("Invalid regular expression!`n`n $($_.Exception.Message)","Regular expression syntax error",0,48)  
        }
      }
    }
    $tabTranslation.Controls.Add($btnUpdateRegex)
    
    $csvPanel = New-Object System.Windows.Forms.Panel -Property @{
      Name = "csvPanel"  
      Location =  '300,282'  
      Size = '315,120'  
      Padding = 10
      
    }
    $tabTranslation.Controls.Add($csvPanel)
    
    $txtReplaceColumn = New-Object System.Windows.Forms.TextBox -Property @{
      Anchor = 13
      Name = "txtReplaceColumn"  
      Size = '183,20'  
      Location = '119,60'  
        TabIndex = 2
    }
    $csvPanel.Controls.Add($txtReplaceColumn)
    
    $label7 = New-Object System.Windows.Forms.Label -Property @{
      Name = "label7"  
      Text = "Replace with column"  
      Size = '109,23'  
      Location = '13,63'  
    }
    $csvPanel.Controls.Add($label7)
    
    $txtSearchColumn = New-Object System.Windows.Forms.TextBox -Property @{
      Name = "txtSearchColumn"  
      Size = '183,20'  
      Location = '119,34'  
      Anchor = 13
        TabIndex = 1
    }
    $csvPanel.Controls.Add($txtSearchColumn)
    
    $label6 = New-Object System.Windows.Forms.Label -Property @{
      Name = "label6"  
      Text = "Search in column"  
      Size = '100,23'  
      Location = '13,37'  
    }
    $csvPanel.Controls.Add($label6)
    
    $comboDelimiter = New-Object System.Windows.Forms.ComboBox -Property @{
      Name = "comboDelimiter"  
    Size = '75,21'  
      Location = '119,7'  
      Text = ";"  
        TabIndex = 0
    }
    [void]$comboDelimiter.Items.Add(",")  
    [void]$comboDelimiter.Items.Add(";")  
    $csvPanel.Controls.Add($comboDelimiter)
    
    $label5 = New-Object System.Windows.Forms.Label -Property @{
      Name = "label5"  
      Size = '64,23'  
      Location = '13,10'  
      Text = "Delimiter"  
    }
    $csvPanel.Controls.Add($label5)

    $comboLookupFormat = New-Object System.Windows.Forms.ComboBox -Property @{
      Name = "comboLookupFormat"  
      Size = '121,21'  
      Location = '154,282'  
      DropDownStyle = 2
      add_SelectedIndexChanged = {
        switch($comboLookupFormat.Text){
            "CSV" {$csvPanel.Visible = $true}  
        }
      }
    }
    [void]$comboLookupFormat.Items.Add("CSV")  
    $comboLookupFormat.SelectedIndex = 0
    $tabTranslation.Controls.Add($comboLookupFormat)
       
    $label4 = New-Object System.Windows.Forms.Label -Property @{
      Name = "label4"  
      Size = '135,23'  
      Location = '13,285'  
      Text = "Lookup table format"  
    }
    $tabTranslation.Controls.Add($label4)
    
    $label3 = New-Object System.Windows.Forms.Label -Property @{
      Name = "label3"  
      Size = '135,40'  
      Location = '13,53'  
      Text = "Translation Table assignments"  
    }
    $tabTranslation.Controls.Add($label3)
    
    $dgvTable = New-Object System.Windows.Forms.DataGridView -Property @{
      Name = "dgvTable"  
      Size = '647,216'  
      Location = '154,53'  
      Anchor = 13
      AllowUserToAddRows = $false
      add_CellDoubleClick = {
        if ($_.ColumnIndex -eq 1){
            $dlg = New-Object System.Windows.Forms.OpenFileDialog -Property @{Multiselect = $false}
            switch($comboLookupFormat.Text){
                'CSV' {$dlg.Filter = "CSV Files | *.csv"}  
                default {$dlg.Filter = "All files | *.*"}  
            }
            if($dlg.ShowDialog() -eq 'OK'){  
                $dgvTable.Rows[$_.RowIndex].Cells[1].Value = $dlg.FileName
            }
        }
      }
    }
    $dgvTable.Columns.Add((New-Object System.Windows.Forms.DataGridViewTextBoxColumn -Property @{
        FillWeight = 50
        HeaderText = "Regex Submatch"  
        Name = ""  
        Width = 100
    }))
    $dgvTable.Columns.Add((New-Object System.Windows.Forms.DataGridViewTextBoxColumn -Property @{
        AutoSizeMode = 16
        FillWeight = 200
        HeaderText = "Lookup in file"  
        Name = ""  
        Width = 504
    }))
    $tabTranslation.Controls.Add($dgvTable)
    
    $txtParserRegex = New-Object System.Windows.Forms.TextBox  -Property @{
      Name = "txtParserRegex"  
      Size = '547,20'  
      Location = '154,12'  
      Anchor = 13
      add_TextChanged = {
        $btnUpdateRegex.Enabled = $txtParserRegex.Text -ne ''  
      }
    }
    $tabTranslation.Controls.Add($txtParserRegex)
    
    $label2 = New-Object System.Windows.Forms.Label  -Property @{
      Name = "label2"  
      Size = '135,23'  
      Location = '13,10'  
      Text = "Parser Regular Expression"  
      TextAlign = 16
    }
    $tabTranslation.Controls.Add($label2)
    
    $tabResults = New-Object System.Windows.Forms.TabPage  -Property @{
      Name = "tabResults"  
      Size = '814,508'  
      Location = '4,22'  
      Text = "Result"  
      Padding = 10
      UseVisualStyleBackColor = $True
    }
    $tabs.Controls.Add($tabResults)
    
    $btnExport = New-Object System.Windows.Forms.Button  -Property @{
      Name = "btnExport"  
      Size = '75,23'  
      Location = '726,472'  
      Text = "Export"  
      Anchor = 'Bottom,Right'  
      add_Click = {
        $dlg = New-Object System.Windows.Forms.SaveFileDialog
        $dlg.Filter = "CSV Files | *.csv"  
        if($dlg.ShowDialog() -eq 'OK'){  
            $dgvResult.DataSource | Export-CSV -LiteralPath $dlg.FileName -Delimiter ";" -NoType -Encoding Default  
        }

      }
    }
    $tabResults.Controls.Add($btnExport)
    
    $dgvResult = New-Object System.Windows.Forms.DataGridView  -Property @{
      Name = "dgvResult"  
      Size = '788,453'  
      Location = '13,13'  
      Anchor = 15
    }
    $tabResults.Controls.Add($dgvResult)
    
    $InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
    
    #Save the initial state of the form
    $InitialFormWindowState = $form1.WindowState
    #Init the OnLoad event to correct the initial state of the form
    $form1.add_Load({
      #Correct the initial state of the form to prevent the .Net maximized form issue
      $form1.WindowState = $InitialFormWindowState
    })
    #Show the Form
    [void]$form1.ShowDialog()
}

# call form function
GenerateForm