[SOLUCIONADO] ¿ Cómo encontrar el comando de consola que necesito para mi aplicación ?.

Código:

Public Sub Main()



  Dim ashelldisponibles As String[]

  Dim contenidoarchivo As String

  Dim ruta As String = "/etc/shells"

  Dim orden As String = " which mam{e,e32,e64} "

  Dim ashelladecuados As String[]



  contenidoarchivo = File.Load(ruta)



  'Convertimos cada línea de contenidoarchivo a un array con split, delimtando con final de línea, un caracter de escape que no existe y eliminamos los espacios vacíos

  'Solo nos interesa obtener los elemementos del segundo indice hasta el último indice del array. Usamos la orden Extract



  ashelldisponibles = Split(contenidoarchivo, gb.NewLine, "'", True).Extract(1, -1)

  ashelladecuados = OrdenesConSalida(orden, ashelldisponibles)



End



Public Function OrdenesConSalida(orden As String, adisponibles As String[]) As String[]



  Dim i As Integer

  Dim salida As String

  Dim posibilidades As New String[]



  For i = 0 To adisponibles.Max

    'Asignamos cada uno de los disponibles

    System.Shell = adisponibles

[i]    Shell adisponibles[i] & orden To salida

    If Not IsNull(salida) Then

      Print "La orden" & orden & "funcionará con " & adisponibles

[i]      posibilidades.Add(adisponibles[i])

    Endif

  Next

  Return posibilidades



End

Código:

Public Sub Main()



  Dim ashelldisponibles As String[]

  Dim contenidoarchivo As String

  Dim ruta As String = "/etc/shells"

  Dim orden As String = " which mam{e,e32,e64} "

  Dim ashelladecuados As String[]



  contenidoarchivo = File.Load(ruta)



  'Convertimos cada línea de contenidoarchivo a un array con split, delimitando con final de línea, un caracter de escape que no existe y eliminamos los espacios vacíos

  'Solo nos interesa obtener los elemementos del segundo indice hasta el último indice del array. Usamos la orden Extract



  ashelldisponibles = Split(contenidoarchivo, gb.NewLine, "'", True).Extract(1, -1)

  ashelladecuados = OrdenesConSalida(orden, ashelldisponibles)



End



Public Function OrdenesConSalida(orden As String, adisponibles As String[]) As String[]



  Dim j As Integer

  Dim salida As String

  Dim posibilidades As New String[]



  For j = 0 To adisponibles.Max

    'Asignamos cada uno de los disponibles

    System.Shell = adisponibles[j]

    Shell adisponibles[j] & orden To salida

    If Not IsNull(salida) Then

      Print "La orden" & orden & "funcionará con " & adisponibles[j]

      posibilidades.Add(adisponibles[j])

    Endif

  Next

  Return posibilidades



End

Código:

Public Function OrdenesConSalida(orden As String, adisponibles As String[]) As String[]

 

  Dim i As Integer

  Dim salida As String

  Dim posibilidades As New String[]

 

  For i = 0 To adisponibles.Max

    'Asignamos cada uno de los disponibles

    System.Shell = adisponibles[i]

    Shell adisponibles[i] & orden To salida

    If Not IsNull(salida) Then

      Print "La orden" & orden & "funcionará con " & adisponibles[i]

      posibilidades.Add(adisponibles[i])

    Endif

  Next

  Return posibilidades

 

End