Differenze tra le versioni di "Temp"
Da Gambas-it.org - Wikipedia.
Riga 56: | Riga 56: | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
− | Dim percorsoTmp | + | Dim percorsoTmp As String |
Dim st As Stream | Dim st As Stream | ||
Dim b As Byte | Dim b As Byte | ||
Riga 67: | Riga 67: | ||
Print percorsoTmp | Print percorsoTmp | ||
− | st = Open | + | st = Open percorsoTmp For Read |
Seek #st, 4 | Seek #st, 4 |
Versione delle 08:37, 28 gen 2014
La funzione Temp (o anche Temp$) restituisce un percorso per i file temporanei.
Il file temporaneo viene salvato in una sub-cartella della cartella /tmp.
Il percorso per i file temporanei ha la seguente struttura:
/tmp/gambas.[identificativo utente]/[PID del processo]/[nome del file].tmp
La sintassi è:
percorso = Temp("nome_file_temporaneo") As String
Se il nome del file temporaneo nome non viene specificato, allora esso viene sostituito con un numero che viene incrementato ogni volta che la funzione Temp viene chiamata.
Esempi
Public Sub Main() Dim percorsoTmp, s As String percorsoTmp = Temp("nomeFile") s = File.Load("fileImmagine.gif") File.Save(percorsoTmp, s) ' Vediamo il percorso dove è stato salvato il file temporaneo: Print percorsoTmp End
Ponendo il caso che l'identificativo dell'utente sia gambas.1000 e che il PID del processo sia 1234, in console avremo il seguente risultato:
/tmp/gambas.1000/1234/nomeFile.tmp
Infatti, seguendo l'intero percorso ed aprendo così l'ultima cartella, troveremo il file immagine temporaneo: nomeFile.tmp.
2° esempio:
Public Sub Main() Dim percorsoTmp, s As String percorsoTmp = Temp("nomeFile") File.Save(percorsoTmp, "stringa qualsiasi") ' Vediamo il percorso dove è stato salvato il file temporaneo: Print percorsoTmp s = File.Load(s) Print s End
3° esempio:
Public Sub Main() Dim percorsoTmp As String Dim st As Stream Dim b As Byte percorsoTmp = Temp() File.Save(percorsoTmp, "stringa qualsiasi") ' Vediamo il percorso dove è stato salvato il file temporaneo: Print percorsoTmp st = Open percorsoTmp For Read Seek #st, 4 Read #st, b Print Hex(b), Chr(b) End