A proposito della funzione Scan se andate sulla guida in linea attualmente trovate questo esempio:Dim sRisultato As String
Dim sLinea As String
Dim sElt As String
Exec "df" To sResult
For Each sLinea In Split(sRisultato, "\n")
For Each sElt In Scan(sLinea, "* * * * *")
Print sElt; "|";
Next
Print
Next
che contiene due errori.
Chi li trova per primo vince un chilo di fieno per capre appenniniche.
:ciao: :ciao:
:ciao:
Exec ["df"] To sRisultato
Poi quel PRINT per andare a capo... :-\
For Each sElt In Scan(sLine, "* * * * * *")
E anche qui un punticino?? :P
...
For Each sElt In Scan(sLine, "* * * * * *")
E anche qui un punticino?? :P
...
:ok: :ok: :ok:
Per un po la biada non mancherà ;D
Hai vinto, l'altro era un refuso, era rimasta la variabile in inglese sResult nella frase Exec.
Se l'esempio lo si scrive così, si capisce meglio:
Public Sub Main()
Dim sRisultato As String
Dim sLinea As String
Dim sElt As String
Dim b As Byte
Exec ["df"] To sRisultato
For Each sLinea In Split(sRisultato, "\n")
Print "-----------------------------------------------------------------------------------------------------"
For Each sElt In Scan(sLinea, "* * * * * *")
b = (16 - Len(sElt))
Print sElt; Space(b); "|";
Next
Print
Next
End
:D :ciao: :ciao:
Si può rimediare così:
Public Sub Main()
Dim sRisultato As String
Dim sLinea As String
Dim sElt As String
Dim b As Byte
Dim ss As String[]
Dim i As Integer
Exec ["df"] To sRisultato
ss = Split(sRisultato, "\n")
Print "File system |"; "1k-blocchi |"; "Usati |"; "Disponibili |"; "Uso% |"; "Montato su |"
For i = 1 To ss.Max
sLinea = ss[i]
Print "-----------------------------------------------------------------------------------------------------"
For Each sElt In Scan(sLinea, "* * * * * *")
b = (16 - Len(sElt))
Print sElt; Space(b); "|";
Next
Print
Next
End
:ciao: