[RISOLTO] FOR EACH ..... IN Dir(......, "*.JPG").Sort() chiarimenti

[guglielmofede]

SALVE,

in oggetto, ho indicato una funzione che vorrei fare Mia.
In verità so quello che fa, in sintesi mi da i nomi dei file con estensione JPG inseriti in una cartella in ordine crescente.
Però chi comanda l'avanzamento e il ciclo for.
Mi servirebbe avere i nomi dei file ad ogni Mia richiesta e alla fine della lista ripartire dall'inizio.
Vorrei utilizzare solo comandi GAMBAS senza l'ausilio della shell e dei comandi OPEN etc...

Credo/Spero sia possibile, anche perchè la vedo come una sintassi più elegante e semplice.

A Presto.....

[fsurfing]

questo può essere un modo :

Codice: [Seleziona]

PUBLIC SUB Button4_Click()

  DIM lista AS NEW string[]
  DIM i AS Integer
  
  lista = Dir(User.Home).Sort(gb.Ascent)
  
  FOR EACH lista 
      label1.Text = lista[i]
      WAIT 0.5
      INC i
  NEXT 

END

anche se non capisco cosa intendi con

e alla fine della lista ripartire dall'inizio.

[guglielmofede]

SALVE,

intanto GRAZIE !

e alla fine della lista ripartire dall'inizio.

Intendevo dal primo elemento della lista.
Come si fa a sapere la dimensione della tabella ?

A Presto.....

[Ceskho]

SALVE,

intanto GRAZIE !

e alla fine della lista ripartire dall'inizio.

Intendevo dal primo elemento della lista.
Come si fa a sapere la dimensione della tabella ?

A Presto.....

Tabella? Nel senso quella contenuta in un database?

[guglielmofede]

SALVE,

intendevo la lunghezza dell'array creata con

Codice: [Seleziona]

 DIM lista AS NEW string[]

A Presto...

[guglielmofede]

SALVE,

con la funzione

Codice: [Seleziona]

  lista = Dir(User.Home).Sort(gb.Ascent)

si riesce ad avere i nomi dei file nella directory specificata.
Ma come si fa a sapere quanti sono i file ?

Con

Codice: [Seleziona]

 FOR EACH lista 
      conteggio +=1
  NEXT 

si può sapere, ma un modo più diretto ?

A Presto.....

[milio]

DIM n AS Integer

  n = Dir(User.Home).Count

[fsurfing]

oppure semplicemente con

Codice: [Seleziona]

n=lista.count

[guglielmofede]

SALVE,

GRAZIE a Tutti.......

Ho cambiato l'oggetto con risolto.

A Presto.........