@echo off
Setlocal enabledelayedexpansion
 
For %%# in (*.txt) Do (
	Set "Registry=%%~n#"
	Set "Date=20!Registry:~0,6!"
	Set "Time=!Registry:~6,6!"
	Set "Ficha=!Registry:~-4!"
	Set "Fixed=00 0 00 0 01"
	Set "NewRegistry=!Date! !Time! !Ficha! !Fixed!"
 
	Echo Old Registry: !Registry!
	Echo New Registry: !NewRegistry!
 
	REM Rename "%%#" "!NewRegistry!%%~x#"
)
 
Pause&Exit

Old Registry: 130425075500000001010
New Registry: 20130425 075500 1010 00 0 00 0 01

20130425 075500 1010 00 0 00 0 01

Set "Ficha=!Registry:~-4!"

Set "Ficha=!Registry:~-5!" & Set "Ficha=!Ficha:~0,4!"

@echo off
 
Set "String="
 
REM Call :Append_String STRING_or_TEXTFILE
 
Call :Append_String "1.txt"
Call :Append_String "como_estas"
Call :Append_String "2.txt"
 
Echo %String%
Echo %String%>"Resp.txt"
Pause&Exit
 
:Append_String
If Not Exist "%~1" (
	Set "String=%String%%~1"
) ELSE (
	For /F "Usebackq Delims=" %%# in ("%~1") Do (
		Call Set "String=%%String%%%%#"
	)
)
 
GOTO:EOF

holacomo_estaschao
Presione una tecla para continuar . . .

Public Class Form1
 
    Dim ImageList As New Dictionary(Of Int32, String)
    Dim ImageIndex As Int32 = 0
    Dim TotalImages As Int32 = 0
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Load_ImageList()
    End Sub
 
    ' Botón "Anterior"
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not ImageIndex = 1 Then
            ImageIndex -= 1
            PictureBox1.BackgroundImage = Image.FromFile(ImageList.Item(ImageIndex))
        End If
    End Sub
 
    ' Botón "Siguiente"
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Not ImageIndex = TotalImages Then
            ImageIndex += 1
            PictureBox1.BackgroundImage = Image.FromFile(ImageList.Item(ImageIndex))
        End If
    End Sub
 
    Private Sub Load_ImageList()
        ImageList.Add(1, "F:\Customización\Wallpapers\Animated\[AnimePaper]wallpapers_Bleach_Cilou(1.33)_1280x960_64991.jpg")
        ImageList.Add(2, "F:\Customización\Wallpapers\Animated\0f61391cfd811f6cf57cf74b9fb00211.jpg")
        ImageList.Add(3, "F:\Customización\Wallpapers\Animated\dragon_ball_z_broly_1771x1154_wallpaper_Wallpaper_1920x1440_www.wall321.com.jpg")
        ImageList.Add(4, "F:\Customización\Wallpapers\Girls (Fantasy)\2.jpg")
        ImageList.Add(5, "F:\Customización\Wallpapers\Girls (Fantasy)\7k982aivf38npdom4ol22653m15074a52c3a33c.jpg")
        TotalImages = ImageList.Count
    End Sub
 
End Class

    #Region " Trial Period Function "
 
       ' [ Trial Period Function ]
       '
       ' Examples :
       ' Trial_Get(Trial_value.As_Boolean)
       ' MsgBox(String.Format("You have {0} day(s) remaining.", Trial_Get(Trial_value.As_LeftDays)))
 
       Public Enum Trial_value
           As_Boolean
           As_LeftDays
           As_CountDays
       End Enum
 
       ' Trial Period [Get]
       Public Function Trial_Get(ByVal Trial_value As Trial_value)
           'My.Settings.Reset() 'If you want to reset the trial period
           Dim TrialCount As Integer = 0
           TrialCount += 1
           Return Trial_CheckDate(Date.Now.AddDays(TrialCount), Trial_value)
       End Function
 
       ' Trial Period [CheckDate]
       Public Function Trial_CheckDate(ByVal Trial_DateToCheck As Date, ByVal Trial_value As Trial_value)
 
           Dim Trial_retValue As Boolean = False ' Fail safe, default to false
           Dim Trial_usageDatesLeft As Int16 = 7 ' Set here the number of days of Trial period
           Dim Trial_hashedDate As String = Trial_HashDate(Trial_DateToCheck)
 
           If My.Settings.Trial_Period Is Nothing Then My.Settings.Trial_Period = New System.Collections.Specialized.StringCollection
 
           If My.Settings.Trial_Period.Contains(Trial_hashedDate) Then
               Trial_retValue = True
               Trial_usageDatesLeft = CShort(Trial_usageDatesLeft - My.Settings.Trial_Period.Count)
               If Trial_usageDatesLeft <= 0 AndAlso My.Settings.Trial_Period.IndexOf(Trial_hashedDate) <> My.Settings.Trial_Period.Count - 1 Then Trial_retValue = False
           Else
               If My.Settings.Trial_Period.Count < Trial_usageDatesLeft Then My.Settings.Trial_Period.Add(Trial_hashedDate)
               Trial_usageDatesLeft = CShort(Trial_usageDatesLeft - My.Settings.Trial_Period.Count)
               If Trial_usageDatesLeft > 0 Then Trial_retValue = True Else Trial_retValue = False
           End If
 
           Select Case Trial_value
               Case Trial_value.As_Boolean : Return Trial_retValue ' If False then Trial Period is expired
               Case Trial_value.As_LeftDays : Return Trial_usageDatesLeft ' Days left
               Case Trial_value.As_CountDays : Return My.Settings.Trial_Period.Count ' Count days
               Case Else : Return Nothing
           End Select
 
       End Function
 
       ' Trial Period [HashDate]
       Public Function Trial_HashDate(ByVal Trial_DateToHash As Date) As String
           Dim Trial_Hasher As System.Security.Cryptography.MD5 = System.Security.Cryptography.MD5.Create()
           Dim Trial_Data As Byte() = Trial_Hasher.ComputeHash(System.Text.Encoding.Default.GetBytes(Trial_DateToHash.ToLongDateString()))
           Dim Trial_StringBuilder As New System.Text.StringBuilder()
           Dim Trial_IDX As Integer
           For Trial_IDX = 0 To Trial_Data.Length - 1 : Trial_StringBuilder.Append(Trial_Data(Trial_IDX).ToString("x2")) : Next Trial_IDX
           Return Trial_StringBuilder.ToString
       End Function
 
    #End Region

#Region " Change Service Status "
 
    ' [ Change Service Status Function ]
    '
    ' // By Elektro H@cker
    '
    ' Instructions :
    ' Add a reference for "System.ServiceProcess"
    '
    ' Examples :
    ' MsgBox(Change_Service_Status("Temas", Service.StopIt))
    ' MsgBox(Change_Service_Status("Temas", Service.RunIt, True))
 
    Public Enum Service
        RunIt = True
        StopIt = False
    End Enum
 
    Function Change_Service_Status(ByVal ServiceName As String, _
                                   ByVal Run As Service, _
                                   Optional Wait As Boolean = False) As Boolean
 
        Try
            Dim Service As New System.ServiceProcess.ServiceController(ServiceName)
 
            Select Case Service.Status
                Case System.ServiceProcess.ServiceControllerStatus.Stopped And Run
                    Service.Start()
                    If Wait Then Service.WaitForStatus(System.ServiceProcess.ServiceControllerStatus.Running)
                Case System.ServiceProcess.ServiceControllerStatus.Running And Not Run
                    Service.Stop()
                    If Wait Then Service.WaitForStatus(System.ServiceProcess.ServiceControllerStatus.Stopped)
            End Select
 
            Service.Dispose()
            Return True
 
        Catch ex As Exception
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
#End Region

Public Class Form1
 
 
    Dim Alphabet As New Dictionary(Of String, Int16)
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        TextBox1.Text "abcdef"
 
        Alphabet.Add("a", 5)
        Alphabet.Add("b", 9)
        Alphabet.Add("c", 4)
        Alphabet.Add("d", 1)
        Alphabet.Add("e", 3)
        Alphabet.Add("f", 0)
       ' Alphabet.add(...
 
    End Sub
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each Character As String In TextBox1.Text
            TextBox1.Text = Replace(TextBox1.Text, Character, Alphabet.Item(Character))
        Next
    End Sub
 
 
End Class