Differenze tra le versioni di "Conoscere con le sole risorse di Gambas i dispositivi esterni montati"
Da Gambas-it.org - Wikipedia.
| Riga 2: | Riga 2: | ||
''/proc/self/mounts'' | ''/proc/self/mounts'' | ||
mediante il seguente codice: | mediante il seguente codice: | ||
| − | + | Public Sub Main() | |
Dim s As String | Dim s As String | ||
Dim ss1, ss2 As New String[] | Dim ss1, ss2 As New String[] | ||
| − | Dim | + | Dim b As Byte |
| − | + | s = File.Load("/proc/self/mounts") | |
| − | |||
| − | |||
| − | + | ss1 = Split(s, "\n") | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | + | For b = 0 To ss1.Max | |
| + | If InStr(ss1[b], "/dev/sd") > 0 Then | ||
| + | ss2 = Split(ss1[b], " ") | ||
| + | Print ss2[0], ss2[1] | ||
| + | Endif | ||
| + | Next | ||
| + | |||
| + | End | ||
(testato su Ubuntu) | (testato su Ubuntu) | ||
Versione delle 15:46, 8 giu 2023
Per conoscere con le sole risorse di Gambas quali dispositivi sono attualmente montati dal sistemi, si verificherà il file di testo:
/proc/self/mounts
mediante il seguente codice:
Public Sub Main()
Dim s As String
Dim ss1, ss2 As New String[]
Dim b As Byte
s = File.Load("/proc/self/mounts")
ss1 = Split(s, "\n")
For b = 0 To ss1.Max
If InStr(ss1[b], "/dev/sd") > 0 Then
ss2 = Split(ss1[b], " ")
Print ss2[0], ss2[1]
Endif
Next
End
(testato su Ubuntu)
