Buonasera! Ho la necessità di inserire dei dati di output nella tableview, ma non so come fare :-[
mi potete aiutare?
Esempio:
SHELL "df" TO prendi
----> poi qui cosa ci va?
Buonasera! Ho la necessità di inserire dei dati di output nella tableview, ma non so come fare :-[
mi potete aiutare?
Esempio:
SHELL "df" TO prendi
----> poi qui cosa ci va?
Dunque... poniamo il caso di avere una TableView formata da due colonne e da una quantità di righe che sarà dinamicamente determinata dal numero di stringhe restituite dal comando lanciato in Terminale. Vogliamo porre nelle celle della 1^ colonna il contenuto della variabile prendi.
Si potrebbe fare una cosa così:
Public Sub Form_Open()
Dim prendi, s As String
Dim j as Byte
' poiché il comando "df" mi restituirà un numero
' imprecisato di righe, allora per distinguerle tutte
' successivamente, ho bisogno di un array non dimensionato:
Dim sArr As New String[]
Shell "df" To prendi
' *Distinguo* ciascuna riga raccolta dalla variabile "prendi".
' Il carattere di distinzione di ciascuna riga (cioè il "punto" dove
' saranno separate) è il comando "riga a capo" (\n):
sArr = Split(prendi, "\n")
' vado ad impostare dunque la TableView:
With TableView1
.W = 700
.H = 500
.Columns.Count = 2
'...e con un numero di righe pari al numero di stringhe ottenuto
' dalla distinzione (con "Split") dell'unica stringa iniziale presente in "prendi":
.Rows.Count = sArr.Count
'...cerco poi di non stare "stretto", al fine di mostrare adeguatamente
' le stringhe in ciascuna cella della 1^ colonna:
.Columns[0].Width = 500
.Rows[0].Height = 30
End With
' procedo con assegnare a ciascuna cella
' della 1^ colonna una delle righe come distinte:
For j = 0 To sArr.Max
TableView1[j, 0].Text = sArr[j]
Next
End
:rolleyes:
Sì... forse ho esagerato nella risposta... :-X ...ad ogni modo la parte che risponde alla tua richiesta è l'ultima:
TableView1[x, y].Text = stringa_qualsiasi
Dovrebbe essere una cosa così:.....
Allora tu vuoi che ciascuna riga sia ulteriormente spezzettata in modo da far entrare ogni sua sub-parte nelle celle appartenenti ad altre colonne sulla medesima riga....
Devi giostrare ancora con la funzione Split impostando il carattere (il "punto" di discrimine) di separazione con lo spazio, giacché ogni parte comprende - mi pare da quel che vedo lanciando df nel mio terminale - una singola parola, o comunque più parole non separate da spazi.
Quindi avrai:
variabile_stringa_array = Split(qui_ci_va_una_stringa_da_suddividere_ulteriormente, " ")
...però ora il cammino lo devi continuare tu. :D