Differenze tra le versioni di "Identificare un tipo di file dalla sua estensione"

Da Gambas-it.org - Wikipedia.
(Nuova pagina: Mostreremo un possibile algoritmo per identificare un tipo di file fra molti dalla sua estensione. Nell'esempio seguente si cercherà di individuare un file avente estensione ''.avi''...)
 
Riga 1: Riga 1:
−
Mostreremo un possibile algoritmo per identificare un tipo di file fra molti dalla sua estensione.
+
In via generale per ottenere l'estensione di un file, si utilizza la Proprietà ".Ext" della Classe statica ''File''.
−
 
+
Print File.Ext(<FONT Color=gray>''/percorso/del/file''</font>)
−
Nell'esempio seguente si cercherà di individuare un file avente estensione ''.avi'':
+
Qualora si voglia identificare un tipo di file fra molti aventi la medesima estensione si potrà usare il seguente codice, nel quale si cercherà di individuare un file avente estensione ''.avi'':
−
 
+
  '''Public''' Sub Main()
−
  '''Public''' Sub Button1_Click()
 
 
   
 
   
−
   Dim ogniFile As String
+
   Dim s As String
−
 
−
<FONT color=#006400>' ''Individua e carica nella variabile-array di tipo stringa ogni file presente nel pecorso:''</font>
 
−
  For Each ogniFile In Dir("/percorso_cartella_contenente_i_file/", "*.*")
 
−
 
−
<FONT color=#006400>' ''Quindi fra tutti quei file viene individuato soltanto il file con estensione .avi:''</font>
 
−
    If File.Ext(ogniFile) = "avi" Then
 
−
 
−
<FONT color=#006400>' ''Viene mostrato il file cercato di tipo .avi:''</font>
 
−
      Print ogniFile
 
−
    Endif
 
−
 
−
  Next
 
−
 
−
'''End'''
 
−
 
 
−
 
 
−
Si potrà, ad ogni modo, anche scrivere più brevemente:
 
−
'''Public''' Sub Button1_Click()
 
−
 
−
  Dim ogniFile As String
 
−
 
−
<FONT color=#006400>' ''Individua e carica nella variabile-array di tipo stringa soltanto i file aventi estensione .avi...''</font>
 
−
  For Each ogniFile In Dir("/percorso_cartella_contenente_i_file/", "*.avi")
 
−
 
 
−
<FONT color=#006400>' ''...e vengono mostrati:''</font>
 
−
      Print ogniFile
 
 
   
 
   
 +
<FONT color=#006400>' ''Individua e carica nella variabile-array di tipo stringa soltanto i file aventi estensione .avi e poi li mostra:''</font>
 +
  For Each s In Dir("/percorso/cartella/contenente/i/file/", "*.avi", gb.File)
 +
    Print s
 
   Next
 
   Next
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione delle 20:38, 5 set 2022

In via generale per ottenere l'estensione di un file, si utilizza la Proprietà ".Ext" della Classe statica File. 

Print File.Ext(/percorso/del/file)

Qualora si voglia identificare un tipo di file fra molti aventi la medesima estensione si potrà usare il seguente codice, nel quale si cercherà di individuare un file avente estensione .avi: 

Public Sub Main()

 Dim s As String

' Individua e carica nella variabile-array di tipo stringa soltanto i file aventi estensione .avi e poi li mostra:
 For Each s In Dir("/percorso/cartella/contenente/i/file/", "*.avi", gb.File)
   Print s
 Next

End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Identificare_un_tipo_di_file_dalla_sua_estensione&oldid=31698"