Differenze tra le versioni di "Conoscere la distribuzione Linux montata"

Da Gambas-it.org - Wikipedia.
Riga 6: Riga 6:
  
 
Vediamo di seguito 3 possibili modalità:
 
Vediamo di seguito 3 possibili modalità:
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim s As String
 
   Dim s As String
Riga 14: Riga 14:
 
   Print s
 
   Print s
 
    
 
    
  ''' End'''
+
  End
  
  
 
+
  Public Sub Main()
  '''Public''' Sub Main()
 
 
    
 
    
 
   Dim s As String
 
   Dim s As String
Riga 26: Riga 25:
 
   Print s
 
   Print s
 
    
 
    
  '''End'''
+
  End
  
  
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim s As String
 
   Dim s As String
Riga 38: Riga 37:
 
   Print s
 
   Print s
 
    
 
    
  '''End'''
+
  End
 +
Volendo si può aggiungere anche l'architettura:
 +
Public Sub Main()
 +
 +
  Dim s As String
 +
 
 +
  s = Replace(File.Load("/etc/issue"), "\\", "\0")
 +
  s = Scan(s, "*\0*")[0] & System.Architecture
 +
   
 +
  Print s
 +
 
 +
End

Versione delle 16:13, 19 set 2023

Per conoscere il nome della distribuzione Linux da noi montata ed utilizzata, è sufficiente leggere all'interno di uno di seguenti file di sistema, presenti nella cartella "/etc":

/etc/lsb-release
/etc/issue
/etc/issue.net


Vediamo di seguito 3 possibili modalità:

Public Sub Main()

  Dim s As String
 
  s = File.Load("/etc/issue.net")
  
  Print s
  
End


Public Sub Main()
 
  Dim s As String
 
  s = Scan(File.Load("/etc/lsb-release"), "*DESCRIPTION=*\n")[1]
  
  Print s
  
End


Public Sub Main()

  Dim s As String
 
  s = Replace(File.Load("/etc/issue"), "\\", "\0")
  s = Scan(s, "*\0*")[0]
   
  Print s
  
End

Volendo si può aggiungere anche l'architettura:

Public Sub Main()

  Dim s As String
 
  s = Replace(File.Load("/etc/issue"), "\\", "\0")
  s = Scan(s, "*\0*")[0] & System.Architecture
   
  Print s
  
End