Differenze tra le versioni di "Conoscere la versione di Gambas"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Possiamo conoscere il numero della versione di Gambas presente nel nostro sistema almeno mediante due modalità. ===Con il solo codice Gambas=== Se l'aggiornamento della propria vers...) |
|||
Riga 3: | Riga 3: | ||
===Con il solo codice Gambas=== | ===Con il solo codice Gambas=== | ||
− | Se l'aggiornamento della propria versione di Gambas viene effettuato | + | Se l'aggiornamento della propria versione di Gambas viene effettuato via SVN, allora se ne può conoscere il numero semplicemente leggendolo dal file "''/home/....../trunk/VERSION''": |
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
Riga 11: | Riga 11: | ||
Print "Gambas - versione "; s | Print "Gambas - versione "; s | ||
+ | |||
+ | '''End''' | ||
+ | |||
+ | |||
+ | oppure estraendo il numero di versione del pacchetto di aggiornamento dal file "''/home/....../trunk/config.h''": | ||
+ | '''Public''' Sub Main() | ||
+ | |||
+ | Dim s As String | ||
+ | |||
+ | s = File.Load(User.Home &/ "trunk/config.h") | ||
+ | |||
+ | s = Scan(s, "*#define PACKAGE_STRING \"*\"*")[1] | ||
+ | |||
+ | Print "Versione: "; s | ||
'''End''' | '''End''' |
Versione delle 10:39, 11 set 2016
Possiamo conoscere il numero della versione di Gambas presente nel nostro sistema almeno mediante due modalità.
Con il solo codice Gambas
Se l'aggiornamento della propria versione di Gambas viene effettuato via SVN, allora se ne può conoscere il numero semplicemente leggendolo dal file "/home/....../trunk/VERSION":
Public Sub Button1_Click() Dim s As String s = File.Load(User.Home &/ "trunk/VERSION") Print "Gambas - versione "; s End
oppure estraendo il numero di versione del pacchetto di aggiornamento dal file "/home/....../trunk/config.h":
Public Sub Main() Dim s As String s = File.Load(User.Home &/ "trunk/config.h") s = Scan(s, "*#define PACKAGE_STRING \"*\"*")[1] Print "Versione: "; s End
Con Shell
In generale si potrà utilizzare anche Shell:
Public Sub Button1_Click() Dim s As String Shell "gbx3 --version" To s Print s End
Se si possiede Gambas-2, allora il comando sarà gbx2.