Titolo: Estrarre il nome del file dal percorso completo
Categoria: Codice |
|
Ultimo Aggiornamento: 28/06/04 |
Questa funzione restituisce il nome di un file estratto da un percorso completo. Ad esempio, per sapere quale base dati è aperta al momento si può usare nel seguente modo, usando la relativa funzione di 4d:
$nomeDati:=getNomeFile(Data file)
` getNomeFile
` Nexus srl
C_TEXT($0;$1)
C_STRING(255;$nomecompleto_t)
C_INTEGER($car_l)
$nomecompleto_t:=$1
` identifico il separatore usato, ":" oppure "\"
$separatore_t:=System folder[[Length(System folder)]]
$car_l:=Length($nomecompleto_t)
While (($car_l>0) & ($nomecompleto_t[[$car_l]]#$separatore_t))
$car_l:=$car_l-1
End while If ($car_l>0)
$0:=Substring($nomecompleto_t;$car_l+1)
Else $0:=$nomecompleto_t
End if
Inviato da: Umberto Migliore |
|
Visite: 12880 |
Se accedi con utente e password, puoi aggiungere dei commenti.