prova così:
DIM ares AS String
DIM sres AS String
DIM a_sres AS String[]
DIM nome AS NEW String[]
DIM dimensione AS NEW String[]
DIM usato AS NEW String[]
DIM disponibile AS NEW String[]
DIM uso AS NEW String[]
DIM montato AS NEW String[]
DIM i AS Integer
DIM stemp AS String[]
EXEC ["df", "-h"] TO sres
a_sres = Split(sres, "\n", "\t", TRUE) ' in questo modo pongo ogni riga come elemento di un array
a_sres.Remove(0) ' elimino la prima riga con i titoli
FOR i = 0 TO a_sres.Count - 1
stemp = Split(a_sres[i], " ", "\n", TRUE)
nome.add(stemp[0], i)
dimensione.Add(stemp[1], i)
usato.Add(stemp[2], i)
disponibile.Add(stemp[3], i)
uso.Add(stemp[4], i)
montato.Add(stemp[5], i)
NEXT
in questo modo avrai un array per ogni colonna del risultato di df che potrai usare semplicemente per ogni utilizzo
prova così:
DIM ares AS String
DIM sres AS String
DIM a_sres AS String[]
DIM nome AS NEW String[]
DIM dimensione AS NEW String[]
DIM usato AS NEW String[]
DIM disponibile AS NEW String[]
DIM uso AS NEW String[]
DIM montato AS NEW String[]
DIM i AS Integer
DIM stemp AS String[]
EXEC ["df", "-h"] TO sres
a_sres = Split(sres, "\n", "\t", TRUE) ' in questo modo pongo ogni riga come elemento di un array
a_sres.Remove(0) ' elimino la prima riga con i titoli
FOR i = 0 TO a_sres.Count - 1
stemp = Split(a_sres[i], " ", "\n", TRUE)
nome.add(stemp[0], i)
dimensione.Add(stemp[1], i)
usato.Add(stemp[2], i)
disponibile.Add(stemp[3], i)
uso.Add(stemp[4], i)
montato.Add(stemp[5], i)
NEXT
in questo modo avrai un array per ogni colonna del risultato di df che potrai usare semplicemente per ogni utilizzo
Riapro questo topic che lo trovo interessante. ;)
Con il codice postato da fsurfing ho fatto delle prove per avere un qualsiasi risultato dalla shell
in una textbox con questo codice:
textbox1.Text = (nome[i] & " " & "dimensione: " & dimensione[i] & " " & "usato: " & usato[i] & " " & uso[i] & " " & "disponibile: " & disponibile[i] & " " & "montato su: " & montato[i])
il problema e che mi visualizza solo l'ultima stringa, come faccio a visualizzarle tutte? :hard:
grazie
Oltre all'ottimo suggerimento di fsurfing, che ti consente un risultato molto elegante, puoi comunque conservare anche quell'istruzione precedentemente da te ipotizzata, però integrandola con un'altra che ti conservi le righe precedenti, e magari sostituendo TextBox con TextEdit ed aggiungendo alla fine "\n" per andare a capo ad ogni fine riga:
TextEdit1.Text = TextEdit1.text & nome[i] & " " & "dimensione: " & dimensione[i] & " " & "usato: " & usato[i] & " " & uso[i] & " " & "disponibile: " & disponibile[i] & " " & "montato su: " & montato[i] & "\n"
:-[