Funzione Replace in Microsoft Visual Basic 5

Diego La Monica — Fri, 27 Aug 2010 09:59:26 +0000

Sin dalla versione 6 del Visual Basic è stata introdotta la funzione Replace che consente di sostituire una parte di una stringa con una nuova stringa. Questa però è una funzionalità che gli sviluppatori che utilizzano Visual Basic 5 (o una versione precedente) non possono utilizzare se non implementando tale funzione da zero. L’esigenza mi è nata dal momento in cui avevo da manutenere dei vecchi progetti di alcuni clienti che richiedevano l’uso di tale versione.

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

Diego La Monica » Retrocompatibilità

Funzione Replace in Microsoft Visual Basic 5