Foro de elhacker.net

Winamp.exe "Argumento 1" "argumento 2" "argumento 3" "más argumentos"

' Pseudocode
For each folder in var.split(ControlChars.Quote)
    for each file in get.folder.files
     appendline.(archivo_de_Texto, file.Name)
  Next

            Dim entries = playerargs.Split(" "c)
            For n As Integer = 1 To entries.Length - 1
                Dim files As String() = Directory.GetFiles(entries(n))
            Next

Imports System.Text.RegularExpressions
 
        Dim Expresión As String = String.Format("{0}[^{0}$]+{0}", Convert.ToChar(32))
 
        'Esta variable simula la que tu creas en tu aplicación'
        Dim Comando As String = String.Format("Comando.exe {0}C:\ejemplo{0} {0}C:\carpeta\ruta{0} {0}D:\archivos{0}", Convert.ToChar(32))
 
        For Each x As Match In Regex.Matches(Comando, Expresión)
            MessageBox.Show(x.Value)
        Next
 

            Dim Expresión As String = String.Format("{0}[^{0}]+?{0}", Convert.ToChar(32))
 
            'Esta variable simula la que tu creas en tu aplicación'
            Dim Comando As String = String.Format(playerargs, Convert.ToChar(32))
 
            For Each x As Match In Regex.Matches(Comando, Expresión)
                MessageBox.Show(x.Value)
            Next
 

            Str = Replace(playerargs, " " & ControlChars.Quote, "")
            ' El contenido de Cadena queda así:    C:\Ruta 1"C:\Ruta 2"C:\Ruta 3"etc..."

            Dim Str As String
            ' Elimino los espacios entre argumentos
            Str = Replace(playerargs, " " & ControlChars.Quote, ControlChars.Quote)
            ' El contenido de Cadena queda así: "C:\Ruta 1""C:\Ruta 2""Más rutas..."
 
            ' El patrón delimitador (comilla)
            Dim Pattern As String = ControlChars.Quote
 
            Dim ArgsArray() As String 'Creamos un array 
 
            ArgsArray = Split(Str, Pattern) 'Llenamos el array con las cadenas cortadas.
 
            ' Mostramos como ha quedado el resultado
            For Each folder In ArgsArray
                If Not folder = Nothing Then
                    Console.WriteLine(folder)
                    MessageBox.Show(folder)
                End If
 
 
            If randomize.Checked = True Then
                '  RandomiseFile("c:\1.txt")
            End If