Differenze tra le versioni di "Conoscere con le sole risorse di Gambas i dispositivi esterni montati"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per conoscere con le sole risorse di Gambas quali dispositivi sono attualmente montati dal sistemi, si verificherà il file di testo: ''/proc/self/mountinfo'' mediante il seg...') |
|||
(3 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 1: | Riga 1: | ||
Per conoscere con le sole risorse di Gambas quali dispositivi sono attualmente montati dal sistemi, si verificherà il file di testo: | Per conoscere con le sole risorse di Gambas quali dispositivi sono attualmente montati dal sistemi, si verificherà il file di testo: | ||
− | ''/proc/self/ | + | ''/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 e su ArchiLinux) |
Versione attuale delle 16:49, 14 gen 2024
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 e su ArchiLinux)