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

ASSOC7.exe -a ".png" "mspaint.exe"

if (%o%==1) goto :uno else (if (%o%==2) (goto :if2) else (if (%o%==3) (goto :if3) else (if (%o%==4) (goto :cuatro) else (goto :error))))

If "%o%" EQU "1" (Goto :uno)
If "%o%" EQU "2" (Goto :dos)
etc...

@echo off
 
:menu
cls
echo 1) listar archivos segun su criterio
echo 2) la busqueda anterior se almacena en un archivo
set /p "o= Elija su opcion:"
Call :%o%
Goto :Menu
 
:1
Echo Soy el método 1
pause
goto :EOF
 
:2
Echo Soy el método 2
pause
goto :EOF

@Echo OFF & SetLocal EnableDelayedExpansion
 
:: New Line Hack Start
set NewLine=^
 
 
:: New Line Hack End
 
set "MultiLine=Line1!NewLine!Line2"
set "MultiLine=!MultiLine!!NewLine!Line3"
 
Echo !MultiLine!
 
Pause&Exit

@Echo OFF
 
:Menu
Echo [1] Perform a file search in drive '%~d0\'.
Echo [2] Write the search result of option [1] to file.
Echo [3] *********
Echo [4] Terminate
Echo.
Choice.exe /C "1234" /M "Choose an option: "@Echo OFF & SetLocal EnableDelayedExpansion
Cls
Call :Option%ErrorLevel%
Cls
Goto :Menu
 
:Option1 :: Perform file search by pattern.
Set /P "SearchPattern.Filename=Write a partial filename: "
Set /P "SearchPattern.Extension=Write a file extension (or keep it empty for any extension): "
 
Set "SearchPattern.Drive=%~d0"
Set "SearchPattern.Filename=*%SearchPattern.Filename%*"  & :: Fix empty file name.
Set "SearchPattern.Extension=%SearchPattern.Extension%*" & :: Fix empty file extension.
 
(
 Dir /A-D /B /S "%SearchPattern.Drive%\%SearchPattern.Filename%.%SearchPattern.Extension%"
)>"%Temp%\SearchResult.tmp"
 
Type "%Temp%\SearchResult.tmp" | MORE
Goto :EOF
 
:Option2 :: Save result to file.
If Not Exist "%Temp%\SearchResult.tmp" (
	Echo There is any previous search result to save.
	Pause
) Else (
	Set /P "FileName=Set the destination filename: "
	Call Move /Y "%Temp%\SearchResult.tmp" "%CD%\%%FileName%%.txt"
)
Goto :EOF
 
:Option3
:: Do Something.
Goto :EOF
 
:Option4
Exit

Public Class Form1
 
    ' instancio unas imagenes por defecto para este ejemplo...
    Private ReadOnly img1 As Image = Image.FromFile("D:\Customización\Wallpapers\_Favoritos\001.jpg")
    Private ReadOnly img2 As Image = Image.FromFile("D:\Customización\Wallpapers\_Favoritos\002.jpg")
    Private ReadOnly img3 As Image = Image.FromFile("D:\Customización\Wallpapers\_Favoritos\003.jpg")
    Private ReadOnly img4 As Image = Image.FromFile("D:\Customización\Wallpapers\_Favoritos\004.jpg")
    Private ReadOnly img5 As Image = Image.FromFile("D:\Customización\Wallpapers\_Favoritos\005.jpg")
 
    Private WithEvents imgListPhotos As New List(Of Image) From {img1, img2, img3, img4, img5}
    Private WithEvents pcbPhotos As New PictureBox
    Private WithEvents timerPhotos As New Timer
 
    Private imgInterval As Integer = 2000I
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="Form1"/> class.
    ''' </summary>
    Public Sub New()
 
        ' This call is required by the designer.
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
        Me.Controls.Add(Me.pcbPhotos)
 
        With Me.pcbPhotos
            .Dock = DockStyle.Fill
            .BackgroundImageLayout = ImageLayout.Stretch
        End With
 
        With Me.timerPhotos
            .Interval = Me.imgInterval
            .Enabled = True
            .Start()
        End With
 
    End Sub
 
    ''' <summary>
    ''' Handles the Tick event of the timerPhotos control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
    Private Sub TimerPhotos_Tick(ByVal sender As Object, ByVal e As EventArgs) _
    Handles timerPhotos.Tick
 
        With Me.pcbPhotos
 
            If .BackgroundImage Is Nothing Then
                .BackgroundImage = Me.imgListPhotos.First
 
            Else
                Dim imgIndex As Integer =
                    Me.imgListPhotos.FindIndex(Function(img As Image) img.Equals(.BackgroundImage)) _
                    + 1I
 
                If imgIndex = Me.imgListPhotos.Count Then ' RollBack
                    imgIndex = 0I
                End If
 
                .BackgroundImage = Me.imgListPhotos(imgIndex)
 
            End If ' currentImg Is Nothing
 
        End With ' Me.pcbPhotos
 
    End Sub
 
End Class

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Form1
{
 
	// instancio unas imagenes por defecto para este ejemplo...
	private readonly Image img1 = Image.FromFile("D:\\Customización\\Wallpapers\\_Favoritos\\001.jpg");
	private readonly Image img2 = Image.FromFile("D:\\Customización\\Wallpapers\\_Favoritos\\002.jpg");
	private readonly Image img3 = Image.FromFile("D:\\Customización\\Wallpapers\\_Favoritos\\003.jpg");
	private readonly Image img4 = Image.FromFile("D:\\Customización\\Wallpapers\\_Favoritos\\004.jpg");
	private readonly Image img5 = Image.FromFile("D:\\Customización\\Wallpapers\\_Favoritos\\005.jpg");
 
	private List<Image> imgListPhotos = new List<Image> {
		img1,
		img2,
		img3,
		img4,
		img5
	};
 
	private PictureBox pcbPhotos = new PictureBox();
	private Timer withEventsField_timerPhotos = new Timer();
	private Timer timerPhotos {
		get { return withEventsField_timerPhotos; }
		set {
			if (withEventsField_timerPhotos != null) {
				withEventsField_timerPhotos.Tick -= TimerPhotos_Tick;
			}
			withEventsField_timerPhotos = value;
			if (withEventsField_timerPhotos != null) {
				withEventsField_timerPhotos.Tick += TimerPhotos_Tick;
			}
		}
 
	}
 
	private int imgInterval = 2000;
 
	/// <summary>
	/// Initializes a new instance of the <see cref="Form1"/> class.
	/// </summary>
	public Form1()
	{
		// This call is required by the designer.
		InitializeComponent();
 
		// Add any initialization after the InitializeComponent() call.
		this.Controls.Add(this.pcbPhotos);
 
		this.pcbPhotos.Dock = DockStyle.Fill;
		this.pcbPhotos.BackgroundImageLayout = ImageLayout.Stretch;
 
		this.timerPhotos.Interval = this.imgInterval;
		this.timerPhotos.Enabled = true;
		this.timerPhotos.Start();
 
	}
 
	/// <summary>
	/// Handles the Tick event of the timerPhotos control.
	/// </summary>
	/// <param name="sender">The source of the event.</param>
	/// <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
	private void TimerPhotos_Tick(object sender, EventArgs e)
	{
 
		if (this.pcbPhotos.BackgroundImage == null) {
			this.pcbPhotos.BackgroundImage = this.imgListPhotos.First;
 
		} else {
			int imgIndex = this.imgListPhotos.FindIndex((Image img) => img.Equals(this.pcbPhotos.BackgroundImage)) + 1;
 
			// RollBack
			if (imgIndex == this.imgListPhotos.Count) {
				imgIndex = 0;
			}
 
			this.pcbPhotos.BackgroundImage = this.imgListPhotos(imgIndex);
 
		}
 
	}
 
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//=======================================================