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''...)
 
 
(3 versioni intermedie di uno stesso utente non sono mostrate)
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=darkgreen>''/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 di esempio, 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=gray>' ''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("<FONT Color=darkgreen>''/percorso/cartella/contenente/i/file''</font>", "*.avi", gb.File)
 +
    Print s
 
   Next
 
   Next
 
   
 
   
−
  '''End'''
+
  End

Versione attuale delle 09:37, 19 nov 2023

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 di esempio, 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=35462"