Conoscere il mime-type di un file mediante le sole risorse di Gambas

Per conoscere il "mime-type" di un determinato file con le sole risorse native di Gambas, si potrà cercare la corrispondenza fra l'estensione di questo file con il mime-type riportata nell'ampia lista contenuta nel file di sistema "/usr/share/mime/globs".

Potremo adottare il seguente codice:

Private Const globs As String = "/usr/share/mime/globs"


Public Sub Main()
 
 Dim percorsofile, gl, ris, est As String
 Dim ss As String[]
 Dim c As Short
 
' Specifica il file di cui cercare il corrispondente "mime-type":
  percorsofile = "/percorso/del/file"
  
  gl = File.Load(globs)
  ris = "L'estensione del file non è presente nel database dei 'mime-type' !"
  est = ":*." & LCase(File.Ext(percorsofile))
  
' Verifica se l'estensione del file corrente sia comunque presente nel file "/usr/share/mime/globs":
  If InStr(gl, est) Then
' Individua ogni riga componente il contenuto testuale del file "/usr/share/mime/globs":
    ss = Split(gl, "\n")
    For c = 0 To ss.Max
' Verifica quale riga del file "globs" termina con i caratteri della stringa contenuta nella variabile "est":
      If ss[c] Ends est Then
' Estrapola la prima parte della riga, ossia quella relativa al "mime-type" correlato all'estensione:
        ris = Scan(ss[c], "*:*")[0]
        Break
      Endif
    Next
  Endif
    
  Print ris
  
End