[RISOLTO] FileChooser1 e restituzione scelta

[ilfurlan]

Utilizzando FileChooser,

Con

Codice: [Seleziona]

FileChooser1.Filter = ["*.png", "Seleziona una immagine nel formato:   "]

imposto la visualizzazione dei file nel solo formato .png

Con

Codice: [Seleziona]

If FileChooser1.SelectedPath = "" Then
  Message.Info("Non hai selezionato una immagine")
End If

segnalo che la scelta non è stata fatta

Nonostante il filtro impostato, in FileChooser rimane comunque la possibilità di visualizzare "Tutti i file", quindi, per evitare scelte diverse da una immagine .png ho inserito

Codice: [Seleziona]

If FileChooser1.SelectedPath <> "*.png" Then
  Message.Info("Non hai selezionato una immagine nel formato .png   ")
End If

ma, quest'ultima parte non funziona, perchè?   

Grazie 

[vuott]

Con precisione, che cosa restituisce la proprietà ".SelectedPath" della Classe FileChooser ?

[ilfurlan]

Con precisione, che cosa restituisce la proprietà ".SelectedPath" della Classe FileChooser ?

Gambas dice:

Returns the current selected file.

[vuott]

...ossia l'intero "percorso" del file, quindi.........

[ilfurlan]

L'intero percorso, ma completo del file, esempio:
User/Home/Miacartella/File.jpg
quindi, se con l'asterisco escludo tutto quello che viene prima dovrebbe restare .jpg

è questo che non capisco 

[vuott]

..l'asterisco include qualunque cosa......

Ad ogni modo per ottenere la sola estensione di un file, ....ovviamente ci sarebbero molti modi, ma il modo più semplice è fornito dal Metodo .Ext( ) della Classe File.

[ilfurlan]

............il modo più semplice è fornito dal Metodo .Ext( ) della Classe File.

ok, grazie mille, ma mi piaceva capire perché come lo avevo scritto io non funzionava

[vuott]

... mi piaceva capire perché come lo avevo scritto io non funzionava

Perché la stringa "*.png" svolge la sua precipua funzionalità (ossia come filtro, come discriminante), anche utilizzando l'asterisco, soltanto all'interno del primo elemento del vettore restituito dalla proprietà ".Filter" della Classe FileChooser.

[ilfurlan]

Perché la stringa "*.png" svolge la sua precipua funzionalità (ossia come filtro, come discriminante), anche utilizzando l'asterisco, soltanto all'interno del primo elemento del vettore restituito dalla proprietà ".Filter" della Classe FileChooser

Questo non lo sapevo, grazie mille, adesso ho capito 

[vuott]

Quello che ho scritto è riferito ovviamente al caso in questione, non in senso assoluto.

Ad ogni modo il problema sta nel fatto che tu, per effettuare il confronto, hai usato l'operatore = dell'uguaglianza, che presuppone una esatta e puntuale corrispondenza con i caratteri presenti nelle due stringhe.
E' il caso di ricordare che la proprietà .SelectedPath ritorna il completo percorso del file (dell'unico) scelto. Essa restituisce, infatti, una stringa, e non già un array di stringhe.

[vuott]

Va ulteriormente aggiunto che - ad ogni modo - l'asterisco come filtro vale solo con le risorse Gambas che lo ammettono e lo usano dunque come tale.
Infatti qui il risultato è "False", e non "True" come invece ci si aspetterebbe, se si credesse che l'asterisco vale sempre e comunque come filtro:

Codice: [Seleziona]

Public Sub Main()

  Dim s As String
  
    s = "aloa"
    
    Print s = "*oa"
  
End

Qui la stringa "*oa" è interpretata esattamente come 2A 6C 61 e non come "qualsiasi stringa che termina con i caratteri oa " !

[vuott]

...l'asterisco come filtro vale solo con le risorse Gambas che lo ammettono e lo usano dunque come tale.

Devi utilizzare l'operatore Like unitamente all'asterisco.

Codice: [Seleziona]

If FileChooser1.SelectedPath Not Like "*.png" Then
   Print "Non hai selezionato una immagine nel formato .png   "
Endif

Oppure anche l'operatore Ends, ma eliminando l'asterisco prima dell'estensione del file immagine:

Codice: [Seleziona]

If FileChooser1.SelectedPath Not Ends ".png" Then
   Print "Non hai selezionato una immagine nel formato .png   "
Endif

Potresti utilizzare anche la funzione Comp( ):

Codice: [Seleziona]

If Comp(FileChooser1.SelectedPath, "*.png", gb.Like) Then
  Print "Non hai selezionato una immagine nel formato .png   "
Endif

[ilfurlan]

Ottima spiegazione, purtroppo mi ero fissato su

Returns the current selected file.

convinto quindi che mi restituiva il nome del file senza pensare che

E' il caso di ricordare che la proprietà .SelectedPath ritorna il completo percorso del file (dell'unico) scelto. Essa restituisce, infatti, una stringa, e non già un array di stringhe.

infatti, come dici tu

Va ulteriormente aggiunto che - ad ogni modo - l'asterisco come filtro vale solo con le risorse Gambas che lo ammettono e lo usano dunque come tale.
Infatti qui il risultato è "False", e non "True" come invece ci si aspetterebbe, se si credesse che l'asterisco vale sempre e comunque come filtro:

mi restituiva sempre false anche selezionando un'immagine .png

 

[allegfede]

non se se ti puo' essere utile, ma il filechooser ha anche la proprieta' "filter" che ti permette di restringere i tipi di file da visualizzare e conseguentemente poter selezionare:
FileChooser1.Filter = ["*.png;*.jpg;*.jpeg;*.bmp", "Picture files", "*.svg;*.wmf", "Drawing files"]

[ilfurlan]

non se se ti puo' essere utile, ma il filechooser ha anche la proprieta' "filter" che ti permette di restringere i tipi di file da visualizzare e conseguentemente poter selezionare:
FileChooser1.Filter = ["*.png;*.jpg;*.jpeg;*.bmp", "Picture files", "*.svg;*.wmf", "Drawing files"]

Grazie allegfede, sì il filtro è la prima cosa che ho utilizzato...
il mio problema era poi impedire scelte diverse o errate ma con le spiegazioni di vuott
(che è bravo perchè ti porta alla soluzione facendoti prima ragionare sulle cose)
ho risolto