Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: Gusions - 29 Ottobre 2009, 19:50:09

Titolo: Dirchooser e selezionare la cartella
Inserito da: Gusions - 29 Ottobre 2009, 19:50:09

salve, creando un tool ho la neccessità di selezionare una cartella e di entrarci dentro con il comando cd, ma non ho trovato nulla! idee?

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: fsurfing - 29 Ottobre 2009, 19:53:17

non ho capito esattamente che ti serve

se vuoi sapere quali file e cartelle sono presenti in una cartella puoi usare il comando  Dir(percorso) che restituisce un array contenente i file presenti nella cartella indicata dal percorso

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: Gusions - 29 Ottobre 2009, 19:57:39

ehm, allora, selezionando una cartella con il dirchooser vorrei poi poterci entrare con il comando cd e dare un comando in quella cartella ad esempio : sh autogen.sh

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: Ceskho - 29 Ottobre 2009, 20:17:56

Devi usare la proprietà selectedpath

Ad esempio: inserisci in un form un dirchooser ed un button e nella sb del button inserisci

Codice: [Seleziona]

PUBLIC SUB Button1_Click()

  PRINT DirChooser1.SelectedPath

END

Vedrai che scegliendo una cartella e premendo il button nel terminale apparirà l'indirizzo desiderato.

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: fsurfing - 29 Ottobre 2009, 20:20:39

prova con

Codice: [Seleziona]

shell "cd " & percorso & " && " & comando
 

percorso è il percorso della cartella

comando è il comando da eseguire

il percorso lo ricavi con dirchooser1.value come ha detto ceskho

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: Gusions - 29 Ottobre 2009, 20:33:38

ok, quello di ceskho và però poi da terminale con :

Codice: [Seleziona]

PUBLIC SUB Button1_Click()
DIM sOutput AS String
  PRINT DirChooser1.SelectedPath
SHELL "gksudo './autogen --assume-yes'" WAIT TO sOutput

TextArea1.Text = sOutput
END

non va

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: Ceskho - 29 Ottobre 2009, 20:40:15

Per forza non va...il mio era un esempio per vedere come estrapolare la directory dal dirchooser....mica era la soluzione al tuo problema....

Se siete chiari con quello che dovete fare vi aiutiamo più facilmente...


Allora...il tuo problema si risolve facilmente così:

Codice: [Seleziona]

PUBLIC SUB Button1_Click()

   DIM sOutput AS String
   DIM indirizzo AS String

   indirizzo =  DirChooser1.SelectedPath

   SHELL "cd " & indirizzo WAIT
   SHELL "gksudo './autogen --assume-yes'" TO sOutput
      WAIT

   TextArea1.Text = sOutput

END

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: Gusions - 29 Ottobre 2009, 20:51:06

non va ti faccio provare con mano

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: giulio - 29 Ottobre 2009, 21:07:57

Quando usate SHELL, sappiate che si riposiziona ogni volta nella home dell'utente.
Quindi nel codice di Ceshko, la seconda SHELL annulla la prima chiamata di cd.
Si fa:

SHELL "cd " & path_dove_vuoi_entrare & "; " & comando_da_eseguire WAIT

saluti

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: fsurfing - 29 Ottobre 2009, 21:24:20

ma cacchio!
non potevi leggere il mio post e risolvevi già un ora fa?

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: Gusions - 29 Ottobre 2009, 21:27:34

fsf non funziona! puoi applicar l'esempio?

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: Gusions - 29 Ottobre 2009, 22:00:10

risolto forse

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: fsurfing - 29 Ottobre 2009, 22:03:51

purtroppo sto installando karmic è ho gambas out

Titolo: Re: Dirchooser e selezionare la cartella
Inserito da: Ceskho - 30 Ottobre 2009, 00:18:58

Codice: [Seleziona]

PUBLIC SUB Button1_Click()

   DIM sOutput AS String
   DIM indirizzo AS String

   indirizzo =  DirChooser1.SelectedPath

   SHELL "cd " & indirizzo & "; gksudo './autogen --assume-yes'" to sOutput 
   WAIT

   TextArea1.Text = sOutput

END

Ti abbiamo scritto tutto quello che ti serviva...bastava attaccare i pezzi...