https://foro.gambas-es.org/viewtopic.php?f=1&t=6461&p=38829#p38829
-----------------------------------
vuott
Miercoles, 21 Junio 2017, 12:16

Re: Leer Un Texto Anterior A Una Palabra
-----------------------------------
[u]Sin[/u] utilizar el comando Shell.


Ya que te interesa conocer solo el nombre de las interfaces de red, tú podrías recobrar sus nombres desde sus file-device en la carpeta "[i]/proc/net/dev_snmp6[/i]".

Ejemplo:
[code linenumbers=false syntax=gambas]Public Sub Main()

  Dim archivos As String[]
  Dim s As String
  
    archivos = Dir("/proc/net/dev_snmp6", Null, gb.Device)
    
    For Each s In archivos
      Print s
    Next

End[/code]



Una otra posibilidad podría ser recobrando sus nombres desde el archivo "[i]/proc/net/dev[/i]".

Ejemplo:
[code linenumbers=false syntax=gambas]Public Sub Main()
  
   Dim ss As String[]
  Dim s As String
  Dim b As Byte
  
   s = File.Load("/proc/net/dev")
  
   ss = Split(s, gb.NewLine)

   For b = 2 To ss.Max
     If IsNull(ss[b]) = False Then Print LTrim(Scan(ss[b], "*:*")[0])
   Next

End[/code]


