.insert

[pastrank]

Dunque: istruzione tipo

Codice: [Seleziona]

Dim files As String[]
Dim arr As String[]
for j=0 to 2
    files.Insert(RDir(directory, arr[j]))
next

dove arr[j] appunto, proviene da un array, e contiene dei valori, per esempio *.txt. oppure nome.txt. Il problema si ha quando si deve aggiungere pure un file nascosto, ovvero con il punto davanti al nome... c'e' modo di farlo, o non sono completamente addormentato?

[vuott]

...hai provato con il filtro  "*.*"   ?


Ho fatto un esperimento con la funzione Dir, cercando di visualizzare in console i nomi dei file nascosti contenuti nella cartella di un progetto Gambas:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

 Dim file As String

   For Each File In Dir("percorso_cartella_progetto_Gambas", "*.*")
     Print File
  Next

End

ed ho visto i nomi, comprensivi del punto, di tutti i file e le cartelle nascosti.  

[pastrank]

...hai provato con il filtro  "*.*"   ?

Beh si', ma in altri casi: qui non posso aggiungere tutti i file, se no dovrei andare a rileggere dopo cosa ho preso e agire di conseguenza: ovvero, con rdir etc etc *.* prenderei tutto e poi lo selezionerei, adesso invece con insert faccio direttamente la selezione prima del codice successivo. Ah, con Gambas 3.1.1...

[vuott]

Sembrerebbe che effettivamente un filtro diretto ed immediato sui file nascosti non possa applicarsi.


...potresti utilizzare un altro tipo di filtro - successivo   - con la proprietà .Hidden della funzione Stat.  

Facciamo un esempio banale e solo esplicativo: abbiamo una cartella contenente vari file, dei quali alcuni nascosti. Vogliamo mostrare i nomi solo dei file nascosti:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

 Dim FileName As String

   For Each FileName In Dir("percorso_della_cartella_contenente_i_file", "*.*")
     If Stat("percorso_della_cartella_contenente_i_file" & FileName).Hidden Then Print FileName
   Next

End

         

[pastrank]

potresti utilizzare un altro tipo di filtro - successivo

Temo che dovro' farlo perche' ho provato in tutti modi che mi venivano a mente (percorsi completi, escape, tutto insomma): provero' a dirlo sulla lista, anche se mi serve a poco una soluzione anche immediata (per l'appunto, sto usando il prog in un posto dove non posso chiedere di mettersi non dico a compilare, ma niente altro che non sia l'aggiornamento via repository); mi piace poco perche' nelle condizioni classiche i file normali sono 15000 circa, quelli nascosti sono 2 soltanto 

[vuott]

Temo che dovro' farlo...

Aspetta, aspetta...... prova a usare quest'altro filtro: ".*"


Io ho effettuato un nuovo esperimento con questo diverso filtro. Da una cartella, contenente vari file, dei quali alcuni nascosti, ho voluto mostrare i nomi dei soli file nascosti:

Codice: gambas [Seleziona]

    Public Sub Button1_Click()  
      
    Dim file As String  
      
      For Each File In Dir("percorso_cartella", ".*")  
        Print File  
     Next  
      
    End  

...ed ha funzionato.

[pastrank]

[Aspetta, aspetta...... prova a usare quest'altro filtro: ".*"

Ah ah. Ahime' no, l'avevo gia' provato, assieme a \.*, /.*, [\.]*, quote() del pezzo etc etc

[sotema]

se quello che ti serve è ottenere l'elenco dei file non nascosti e solo quelli, prova così:

Codice: gambas [Seleziona]

Dir("percorso", "[^.]*")

per ottenere i soli file nascosti invece:

Codice: gambas [Seleziona]

Dir(User.home, "[!^.]*")

[pastrank]

Codice: gambas [Seleziona]

Dir(User.home, "[!^.]*")

Ancora no 

[vuott]

Ho visto il tuo messagggio nella M.L.I., ed l'ho ripreso per cercare di provarlo.

Ho inserito in una cartella 6 file:
- 1 con estensione .mp3;
- 1 con estensione .odt;
- 1 con estensione .jpg;
- 3 nascosti.

Ho poi modificato leggermente il tuo codice come segue:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

Dim files As String[]
Dim directory As String

directory = "percorso_della_mia_cartella_contenente_i_6_file"

files = RDir(directory, "*.odt", gb.file)
Print files.length

files.Insert(RDir(directory, "*.jpg", gb.file))
Print files.length

files.Insert(RDir(directory, "*.mp3", gb.file))
Print files.length

files.Insert(RDir(directory, ".*", gb.file))
Print files.length

End

ecco coerentemente i risultati in console:
1
2
3
6

Pertanto a me il tuo codice funziona   . Funziona anche se pongo l'ultima istruzione così:

Codice: gambas [Seleziona]

files.Insert(RDir(directory, ".*"))

Funziona anche se voglio raccogliere solo due dei tre file nascosti:

Codice: gambas [Seleziona]

files.Insert(RDir(directory, ".set*", gb.file))
Print files.length

files.Insert(RDir(directory, ".pro*", gb.file))

in console avrò coerentemente i seguenti risultati:
1
2
3
4
5
(il sesto file, avente un nome diverso, l'ho - come previsto - escluso dal codice).

Io ho Ubuntu e Gambas 3 Versione=3.3.90

[pastrank]

Ubuntu e Gambas 3 Versione=3.3.90

Boh, sara' quella la differenza, avevo provato con quella maschera, ma purtroppo non mi va: alla fine mi sono rassegnato usare il *.*.  Presi tutti i nomi, paragono ogni file alla maschera con un like, e alla fine me la sono cavata con poche righe. Non e' proprio quello che mi piaceva fare, ma c'e' di peggio nella vita

[vuott]

....ma c'e' di peggio nella vita

Indubbiamente !