La materia di studio era l’utilizzo di VBA in Office.

Per tale corso avevo preparato un bel po’ di materiale, tra script, esempi e slides.

A seguire vi metto le slides pubblicate già su Slideshare.

Chiunque fosse interessato a ricevere il materiale integrale del corso (slides e codice di esempio) alla modica cifra di 15,00 euro + spese di spedizione non esiti a contattarmi.

Il vecchio sito è sempre disponibile (per gli amanti del retrò style :-) ) all’url http://old.diegolamonica.info.

Al momento sto ultimando la migrazione tutti i contenuti e sto ottimizzando l’installazione di WordPress.

Quindi, mentre vi preoccuperete di navigare i contenuti di questo blog, n0n arrabbiatevi troppo (almeno per ora) se vi compaiono errori di tanto in tanto ;)

Per ora non ho pianificato ancora la migrazione di una serie di servizi che prima avevo reso disponibili sul sito (Newsletter e NoPaste), nel tempo reintegrerò di nuovo queste funzionalità per garantirvi sempre il meglio.

Grazie e mi auguro che sia di vostro gradimento il nuovo layout!

Di seguito è rappresentata la funzione Replace da copiare ed incollare in un Modulo ed utilizzabile da Visual Basic 5 quanto dalle versioni precedenti.
Tale funzione utilizza la stessa sintassi della funzione introdotta con il Visual Basic 6 così da consentire eventuali migrazioni delle procedure che ne fanno utilizzo in modo trasparente (rimuovendo quindi solo la funzione dal modulo).

Public Function Replace(ByVal Expression As String, Find As String, sReplace As String, Optional Start As Long = 1) As String
  Dim S As String
  Dim I As Integer
  For I = Start To Len(Expression)
    S = UCase(Mid(Expression, I, Len(Find)))
    If S = UCase(Find) Then
       Expression = Left(Expression, I - 1) & sReplace & _
          Mid(Expression, I + Len(Find))
       I = I + Len(sReplace) - 1
    End If
  Next
  Replace = Expression
End Function

L’algoritmo che dovetti implementare per cancellare ciascun file fa uso di una API di Windows ed il codice è simile a quello che segue:

Private Type SHFILEOPSTRUCT
 hWnd As Long
 wFunc As Long
 pFrom As String
 pTo As String
 fFlags As Integer
 fAborted As Boolean
 hNameMaps As Long
 sProgress As String
End Type
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Declare Function SHFileOperation Lib "shell32.dll" Alias
  "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Function SpostaNelCestino(file_name As String)
  Dim SHFileOp As SHFILEOPSTRUCT
  With SHFileOp
   .wFunc = FO_DELETE
   .pFrom = file_name
   .fFlags = FOF_ALLOWUNDO
  End With
  SHFileOperation SHFileOp
End Sub

Rimarcando la mia fama tra gli amici per non riutilizzare mai software impacchettato e freeware, ma sempre propenso a sviluppare internamente quella specifica funzione ad-hoc, decisi di svilupparmi una procedura per lo splitting del file in una serie di n files di una determinata dimensione ed ovviamente sviluppai anche la funzione per la ricongiunzione dei files in un unico grande file.

Il frammento di codice che trovate di seguito, è estratto da un progetto leggermente più grosso ed ho preferito riportare semplicemente l’essenziale per comprendere come funziona il tutto:

Dest = FreeFile
 MergedFile = "C:\Merged.txt"
 Offset = 1
 Open MergedFile for Binary Access Write Lock Read As FDest
 For I=Lbound(filesArray) to UBound(filesArray)
 FSorg = FreeFile
 Open filesArray(I) for binary Access Read Lock Write as FSorg
 S=String(Lof(FSorg),chr(0))
 Get FSorg,1,S
 Close FSorg
 Put FDest,Offset, S
 Offset = Offset + len(S)
 next
 Close FDest

Questa procedura preleva da un array filesArray i nomi dei files da concatenare e li salva in un unico file indicato nella variabile MergedFile

Tempo addietro mi capitò sviluppando una procedura batch che un sistema generava dei files e che questi dovevano essere trasferiti in una cartella condivisa sul server per cui mi serviva un metodo per capire se effettivamente tale cartella era condivisa o meno.

Il codice che segue mi ha aiutato nella risoluzione del problema:

Type SHFILEINFO
 hIcon As Long
 iIcon As Long
 dwAttributes As Long
 szDisplayName As String * MAX_PATH
 szTypeName As String * 80
End Type

Public Const SHGFI_ATTRIBUTES = &H800
Public Const SFGAO_SHARE = &H20000
Public Declare Function SHGetFileInfo Lib  "shell32.dll" Alias "SHGetFileInfoA" _
 (ByVal pszPath As String, ByVal swFileAttributes As Long, _
 psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long

Public Function IsSharedThisFolder(ByVal Path As String) As Boolean
 Dim sfi As SHFILEINFO

 SHGetFileInfo Path, 0, sfi, Len(sfi), SHGFI_ATTRIBUTES
 IsSharedThisFolder=(sfi.dwAttributes And SFGAO_SHARE)
End Function

Per ovviare a quanto previsto ho cercato un po’ in giro su internet una serie di possibili soluzioni e trovandone una l’ho poi adattata alle mie esigenze.

Di seguito c’è un estratto di codice sviluppato con Microsoft Visual Basic 6.0 adattato genericamente a scaricare l’immagine http://www.diegolamonica.info/images/diegolamonica.jpg da questo sito e collocarla nella root del disco rigido.

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
 "URLDownloadToFileA" (ByVal pCaller As Long, _
 ByVal szURL As String, _
 ByVal szFileName As String, _
 ByVal dwReserved As Long, _
 ByVal lpfnCB As Long) As Long
 Public Function DownloadFile(URL As String, _
 LocalFilename As String) As Boolean

 Dim lngRetVal As Long

 lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)

 If lngRetVal = 0 Then DownloadFile = True
 End Function

 Private Sub Form_Load()

 ' Sostituire il primo parametro con il file che si vuole scaricare
 ' ed il secondo argomento con il nome del file locale nel quale vuoi salvarlo.

 ret = DownloadFile("http://diegolamonica.info/images/diegolamonica.jpg", "c:\logo_diego.jpg")
 End Sub

Come?

Partendo dal presupposto che si conoscano almeno i concetti alle basi le regular expression (a tal proposito è stato messo un riferimento ad un tutorial di base) il pattern per identificare all’interno di un testo, per esempio, la parola CED (così come avviene su questo sito) è:

(?=[^\>]+<)(?=[^a-z])(?:CED)

Cosa fà? Semplice a descriverlo non tanto semplice nel comprendere quale illuminazione assurda ha folgorato la mia mente!

In pratica l’analisi dell’espressione è indicata nell’elenco puntato che segue:

• Estrai il termine CED (nell’espressione: (?:CED) ) che si trova in un contesto in cui:
  • Prima del termine non ci sia alcun carattere compreso tra a e z (nell’espressione: (?=[^a-z]) )
  • Che non sia il valore di un attributo o l’attributo stesso di un tag (nell’espressione (?=[^\>]+<) ).

Ovviamente poi bisonga formattarlo ed utilizzare le funzioni più appropriate in base al linguaggio di programmazione che viene utilizzato.

Un piccolo appunto ancora prima di lasciarvi alla singola riga di codice capace di fare ciò che è esposto nel nostro scenario: il matching della regular expression deve avvenire in modalità case insensitive (modificatore /i) e bisogna prevedere la presenza di un testo organizzato su più linee (modificatore /s).

L’esempio che presento è fatto in PHP utilizzando la funzione preg_replace alla quale aggiungo un riferimento.

 $testo = preg_replace("/(?=[^\\>]+<)(?<=[^a-z])(?:$ricerca)/si", "\\0", $testo);