#Region " Match Dictionary Values "
 
    ' [ Match Dictionary Values ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Match_Dictionary_Values(New Dictionary(Of Integer, String) From {{1, "Hello World!"}},
    '                                "hello", False, StringComparison.CurrentCultureIgnoreCase).First.Value)
 
    Private Function Match_Dictionary_Values(Of K)(
                     ByVal Dictionary As Dictionary(Of K, String),
                     ByVal Value As String,
                     ByVal MatchWholeWord As Boolean,
                     ByVal IgnoreCase As StringComparison) As KeyValuePair(Of K, String)()
 
        If MatchWholeWord Then
 
            Return (From kp As KeyValuePair(Of K, String) In Dictionary
                    Where String.Compare(kp.Value, Value, IgnoreCase) = 0).ToArray
        Else
 
            Return (From kp As KeyValuePair(Of K, String) In Dictionary
                    Where kp.Value.IndexOf(Value, 0, IgnoreCase) > -1).ToArray
 
        End If
 
    End Function
 
#End Region

#Region " Match Dictionary Keys "
 
    ' [ Match Dictionary Keys ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Match_Dictionary_Keys(New Dictionary(Of String, Integer) From {{"Hello World!", 1}},
    '                              "hello", False, StringComparison.CurrentCultureIgnoreCase).First.Key)
 
    Private Function Match_Dictionary_Keys(Of V)(
                     ByVal Dictionary As Dictionary(Of String, V),
                     ByVal Key As String,
                     ByVal MatchWholeWord As Boolean,
                     ByVal IgnoreCase As StringComparison) As KeyValuePair(Of String, V)()
 
        If MatchWholeWord Then
 
            Return (From kp As KeyValuePair(Of String, V) In Dictionary
                    Where String.Compare(kp.Key, Key, IgnoreCase) = 0).ToArray
        Else
 
            Return (From kp As KeyValuePair(Of String, V) In Dictionary
                    Where kp.Key.IndexOf(Key, 0, IgnoreCase) > -1).ToArray
 
        End If
 
    End Function
 
#End Region

#Region " Find Dictionary Value "
 
    ' [ Find Dictionary Value ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    '  MsgBox(Find_Dictionary_Value(
    '         New Dictionary(Of Integer, String) From {{1, "ABC"}},
    '         "abc", True, StringComparison.CurrentCultureIgnoreCase))
 
    Private Function Find_Dictionary_Value(Of K)(
                     ByVal Dictionary As Dictionary(Of K, String),
                     ByVal Value As String,
                     ByVal MatchWholeWord As Boolean,
                     ByVal IgnoreCase As StringComparison) As Boolean
 
        If MatchWholeWord Then
 
            Return (From kp As KeyValuePair(Of K, String) In Dictionary
                    Where String.Compare(kp.Value, Value, IgnoreCase) = 0).Any
        Else
 
            Return (From kp As KeyValuePair(Of K, String) In Dictionary
                    Where kp.Value.IndexOf(Value, 0, IgnoreCase) > -1).Any
 
        End If
 
    End Function
 
#End Region

#Region " Find Dictionary Key "
 
    ' [ Find Dictionary Key ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Find_Dictionary_Key(
    '        New Dictionary(Of String, Integer) From {{"ABC", 1}},
    '        "abc", True, StringComparison.CurrentCultureIgnoreCase))
 
    Private Function Find_Dictionary_Key(Of V)(
                     ByVal Dictionary As Dictionary(Of String, V),
                     ByVal Key As String,
                     ByVal MatchWholeWord As Boolean,
                     ByVal IgnoreCase As StringComparison) As Boolean
 
        If MatchWholeWord Then
 
            Return (From kp As KeyValuePair(Of String, V) In Dictionary
                    Where String.Compare(kp.Key, Key, IgnoreCase) = 0).Any
        Else
 
            Return (From kp As KeyValuePair(Of String, V) In Dictionary
                    Where kp.Key.IndexOf(Key, 0, IgnoreCase) > -1).Any
 
        End If
 
    End Function
 
#End Region

@echo off
:pregunta
set /p %hola% = Bucle Infinito? :  
if %hola%==SI goto pregunta

set /p hola

@Echo OFF
 
:pregunta
SET /p "hola=Bucle Infinito?:"  
 
IF /I "%hola%" EQU "SI" (goto :pregunta)
 
Pause&Exit

Xcopy "D:\*" "F:\" /S /I /E /Y /d:06-01-2013

%t%0%%c
%t%%%c

If Wscript.Arguments.Count <> 0 Then
   WScript.StdOut.Write(Jugador(Wscript.Arguments(0)))
   WScript.Quit(0)
Else
   WScript.Quit(1)
End If
 
Function Jugador(str)
   Set regEx = New RegExp
 
   regEx.Pattern = "^\D+"
   name = regEx.Execute(str).Item(0)
 
   regEx.Pattern = "\[\D+\]$"
   pos = Mid(regEx.Execute(str).Item(0), 2, 3)
 
   cosa = "%t%%%c" 
 
   Jugador = (name & cosa & "%" & pos  & "%")
End Function

@Echo OFF
 
set "str=C l i c k   o n   t h e   N e w   P r o f i l e   b u t t o n   t o   o p e n   t h e   P r o f i l e"
set "str=%str:   ={^_^}%"
set "str=%str: =%"
set "str=%str:{^_^}= %"
 
Echo "%str%"
 
Pause&Exit

str = "C l i c k   o n   t h e   N e w   P r o f i l e   b u t t o n   t o   o p e n   t h e   P r o f i l e"
arr = split(str,"   ")
 
for each item in arr
	output = output & replace(item, " ", "") & " " 
next 
 
msgbox(output)