assoc | find /I ".png"

.png=png.irfanview_file

HKEY_CLASSES_ROOT\.png

HKEY_CLASSES_ROOT\{CLAVE ASOCIADA}\Shell\Open\Command

HKEY_CLASSES_ROOT\png.irfanview_file\Shell\Open\Command

"C:\Windows\System32\mspaint.exe" "%1" 

Windows Registry Editor Version 5.00
 
[HKEY_CLASSES_ROOT\.png]
@="CustomAssociation.png"
 
[HKEY_CLASSES_ROOT\CustomAssociation.png\Shell\Open\Command]
@="\"C:\\Windows\\System32\\mspaint.exe\" \"%1\""
 
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.png\OpenWithProgids]
"CustomAssociation.png"=hex(0):

:: Converted with Reg2Bat by Elektro
 
@Echo OFF
REG ADD "HKCR\.png"                                     /V "" /D "CustomAssociation.png"                       /F
REG ADD "HKCR\CustomAssociation.png\Shell\Open\Command" /V "" /D "\"C:\Windows\System32\mspaint.exe\" \"%%1\"" /F
Pause&Exit

(^\w+)\s+([\w\.\,\;\-\s+]+?)\s+(\d{4})\s+(\w+$)

Imports System.Text
 
Public Class Form1
 
#Region " Regular expression "
 
    ' La cadena de referencia.
    ReadOnly str As String = "09B321       Alberti Ramirez, Juan    1988    CASADO"
 
    ' Las partes de la expresion regular.
    ReadOnly regExToken1 As String = "^\w+" ' "09B321"
    ReadOnly regExToken2 As String = "[\w\.\,\;\-\s+]+?" ' "Alberti Ramirez, Juan"
    ReadOnly regExToken3 As String = "\d{4}" ' "1988"
    ReadOnly regExToken4 As String = "\w+$" ' "CASADO"
 
    ' La expresión regular completa.
    ' (^\w+)\s+([\w\.\,\;\-\s+]+?)\s+(\d{4})\s+(\w+$)
    ReadOnly fullEx = String.Format("({0})\s+({1})\s+({2})\s+({3})",
                                    regExToken1, regExToken2, regExToken3, regExToken4)
 
    ' La instancia del motor RegEx.
    ReadOnly regEx As New RegularExpressions.Regex(fullEx, RegularExpressions.RegexOptions.Singleline)
 
    ' Las capturas de cada token/grupo de la expresión regular.
    ReadOnly regExGroup1 As RegularExpressions.Group = regEx.Match(str).Groups(1)
    ReadOnly regExGroup2 As RegularExpressions.Group = regEx.Match(str).Groups(2)
    ReadOnly regExGroup3 As RegularExpressions.Group = regEx.Match(str).Groups(3)
    ReadOnly regExGroup4 As RegularExpressions.Group = regEx.Match(str).Groups(4)
 
#End Region
 
    Private Shadows Sub Load() Handles MyBase.Load
 
        Dim sb As New StringBuilder
        With sb
            .AppendLine(String.Format("Token 1: '{0}'", regExGroup1.Value))
            .AppendLine(String.Format("Token 2: '{0}'", regExGroup2.Value))
            .AppendLine(String.Format("Token 3: '{0}'", regExGroup3.Value))
            .AppendLine(String.Format("Token 4: '{0}'", regExGroup4.Value))
        End With
 
        MessageBox.Show(sb.ToString, "Capturas RegEx", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
    End Sub
 
End Class