Software - La programmazione
Ho iniziato a programmare fin dalle scuole medie. Il mio primo "vero" personal computer è stato, come la maggior parte degli informatici che hanno superato i trentanni, il mitico Commodore 64.
La programmazione mi ha sempre divertito e affascinato. Ho iniziato con il Basic 2.0 (in particolare il Simons' Basic) del C64, via via migliorando alle superiori e perfezionando la mia tecnica e l'uso di diversi linguaggi negli anni universitari e lavorativi, fino ad oggi che utilizzo con disinvoltura linguaggi quali Visual Basic, Java e C++ sviluppando prodotti di elevata complessità anche mediante l'utilizzo di architetture distribuite.
Listati codice VB / C / C++ / .NET
Per quanto possibile cercherò in questa sezione di proporre qualche esempio di programmazione.
Ho inserito in questa sezione piccoli listati di codice di largo utilizzo.
Elenco Listati
Dato un percorso raccoglie il nome dei file in un array (VB6 - no API)
Questa funzione e' di largo utilizzo per trovare i file all'interno di un percorso.
Il percorso puo' essere trovato con API SHGetSpecialFolderLocation:
' SCOPO : Ritorna il nome dei file presenti in una directory
' RET : L'array contenente i nomi dei file della directory
'
' Autore: Massimo Muracchioli @
'
' USA : modFile.AddBLtoPath -> Aggiunge il \ ad un percorso se non esiste
'
' IN : la directory con o senza \ finale , eventualmente l'aggiunge
' IN : il tipo di file
' OUT : il dimensione dell'array , se negativo vuol dire che ci sono
' piu' file di quelli presenti nella directory
'
' Effetti collaterali : Nessuno rilevato
'
' Errori : Se fallisce comando DIR, (improbabile)
Public Function ListFileInDir(ByVal directory As String, _
ByVal tipoFile As VbFileAttribute, _
ByRef n As Integer) As String()
Const MAX_VAL = 32000
Const ARR_VAL_INI = 300
On Error GoTo ERRORE
Dim filename As String
Dim filenames() As String
Dim i As Integer
i = 0
ReDim filenames(ARR_VAL_INI)
filename = ""
filename = Dir(modFile.AddBLtoPath(directory), tipoFile)
Do Until filename = ""
i = i + 1
filenames(i) = filename
filename = Dir
Loop
ReDim Preserve filenames(i)
n = i
ListFileInDir = filenames
Exit Function
ERRORE:
If Err.Number = 5 Then
MsgBox "[modFile.ListFileInDir] - Errore nel comando DIR"
Err.Clear
n = 0
ListFileInDir = filenames
Exit Function
End If
If i = ARR_VAL_INI + 1 Then
ReDim Preserve filenames(MAX_VAL)
Resume
Else
' "ERRORE: Sono stati inseriti solo i primi " & MAX_VAL & " file"
Err.Clear
n = 1 - i
ListFileInDir = filenames
End If
End Function
