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

Da Gambas-it.org - Wikipedia.
(Creata pagina con "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 "/...")
 
Riga 8: Riga 8:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
   
 
   
  Dim s As String
+
  Dim s As String
 
    
 
    
 
   s = File.Load("/etc/issue.net")
 
   s = File.Load("/etc/issue.net")
Riga 20: Riga 20:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
    
 
    
  Dim s As String
+
  Dim s As String
 
    
 
    
 
   s = Scan(File.Load("/etc/lsb-release"), "*DESCRIPTION=*\n")[1]
 
   s = Scan(File.Load("/etc/lsb-release"), "*DESCRIPTION=*\n")[1]
Riga 31: Riga 31:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
   
 
   
  Dim s As String
+
  Dim s As String
 
    
 
    
 
   s = Replace(File.Load("/etc/issue"), "\\", "\0")
 
   s = Replace(File.Load("/etc/issue"), "\\", "\0")

Versione delle 15:18, 27 ago 2022

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